Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  572 1422 (N12E38 L=103)   316     77        0 ( 548/1394- 603/1456) -18.4 E40-E34 N10-N14
      2 1861 1258 (N31W58 L=199)   549     77        2 (1836/1237-1885/1282) -26.6 W55-W61 N30-N32
      3  459 1222 (S02E40 L=101)   540    163        1 ( 419/1141- 506/1280) -26.6 E44-E34 S05-N01
      4 1708 1158 (N21W43 L=183)   922    129        3 (1663/1098-1745/1218) -45.0 W38-W46 N17-N23
      5  141 1151 (S11E71 L= 70)  2239    186        3 ( 119/1091- 164/1214) -63.4 E77-E67 S15-S07
      6 1175 1162 (N09W06 L=147)   233     50        2 (1142/1141-1206/1185) -11.3 W03-W08 N08-N10
      7  231 1082 (S14E57 L= 84)   381    141        1 ( 197/1040- 271/1117)  45.0 E59-E53 S17-S11
      8  432  935 (S19E36 L=104)   600    222        2 ( 358/ 862- 501/1011)  53.1 E41-E32 S25-S13
      9  480  822 (S25E31 L=109)  1000    374        1 ( 371/ 723- 617/ 871)  32.3 E40-E21 S33-S20
     10 1295  767 (S11W22 L=162)   260    107        0 (1239/ 750-1343/ 789)  39.8 W18-W24 S13-S08
     11 1204  680 (S18W19 L=159)   227     60        2 (1165/ 664-1235/ 695)  14.0 W16-W20 S19-S17
     12 1583  443 (S24W55 L=196)  2398    459        7 (1465/ 360-1709/ 551)  40.9 W49-W65 S30-S16
     13 1088  435 (S37W20 L=160)   712    160        1 (1004/ 421-1167/ 455)  20.0 W14-W25 S39-S33
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y