Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  583 1418 (N12E37 L=103)   368     86        0 ( 555/1390- 618/1453) -18.4 E39-E33 N10-N13
      2 1871 1257 (N32W59 L=199)   580    106        1 (1846/1238-1898/1283) -11.3 W56-W62 N30-N33
      3  469 1218 (S02E39 L=101)   576    165        1 ( 428/1141- 519/1279) -33.7 E43-E33 S05-N01
      4 1717 1155 (N21W43 L=183)  1000    137        2 (1671/1092-1754/1214) -45.0 W38-W47 N17-N23
      5  141 1126 (S13E70 L= 70)  1303    167        4 ( 125/1046- 158/1190) -69.4 E73-E67 S17-S09
      6 1193 1155 (N09W07 L=147)   304     70        0 (1157/1123-1226/1179) -21.8 W04-W09 N07-N10
      7  479  968 (S16E33 L=107)   330     85        0 ( 447/ 931- 515/ 998)  56.3 E35-E30 S19-S13
      8  764  850 (S18E12 L=128)   218     58        1 ( 740/ 825- 802/ 878)  36.9 E13-E09 S19-S15
      9  439  801 (S27E34 L=105)   767    245        1 ( 375/ 721- 509/ 866)  47.7 E39-E29 S33-S22
     10  570  844 (S22E25 L=115)   295    115        0 ( 521/ 823- 624/ 866)   0.0 E28-E21 S22-S20
     11 1305  761 (S11W22 L=162)   298    101        0 (1248/ 746-1354/ 783)  33.7 W19-W25 S13-S09
     12 1561  439 (S25W53 L=193)  1639    274        3 (1480/ 360-1655/ 553)  65.2 W50-W57 S30-S16
     13 1100  431 (S37W21 L=161)   721    158        2 (1014/ 416-1181/ 453)  20.0 W14-W26 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