Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1157 1558 (N30W09 L=  3)   833    168        2 (1070/1497-1238/1617) -36.0 W03-W14 N26-N34
      2  391 1367 (N18E44 L=310)   636    126        0 ( 371/1310- 410/1423) -60.3 E46-E41 N14-N21
      3 1820 1324 (N17W58 L= 52)   515     86        0 (1785/1305-1849/1339)   0.0 W54-W61 N15-N17
      4  258 1231 (N10E54 L=300)   490    111        0 ( 218/1215- 300/1248) -12.5 E58-E49 N09-N11
      5  531 1187 (N07E31 L=323)   283     72        0 ( 507/1141- 555/1226)  59.0 E32-E29 N03-N08
      6  840 1094 (N01E11 L=343)   295     67        1 ( 801/1067- 867/1115)   0.0 E13-E09 N00-N01
      7  829  906 (S11E12 L=342)   609    172        0 ( 802/ 814- 866/ 993)  70.0 E13-E09 S16-S05
      8 1261  971 (S07W14 L=  8)   198     42        0 (1226/ 957-1287/ 986)   0.0 W12-W15 S07-S05
      9  514  913 (S10E32 L=321)   247     52        0 ( 486/ 882- 536/ 947) -53.1 E34-E30 S11-S07
     10  295  700 (S22E53 L=301)  1767    352        3 ( 254/ 595- 338/ 867)  59.5 E59-E46 S28-S11
     11 1257  839 (S14W14 L=  8)   213     71        0 (1214/ 822-1291/ 852) -21.8 W11-W16 S15-S13
     12 1742  802 (S15W50 L= 44)   448    150        0 (1684/ 787-1792/ 817)  -5.2 W44-W55 S16-S14
     13  555  661 (S25E32 L=322)   575     85        1 ( 533/ 615- 580/ 712)  71.6 E34-E30 S28-S22
     14 1136  635 (S27W08 L=  2)   451     89        2 (1107/ 586-1163/ 680) -80.5 W05-W09 S30-S24
     15  494  497 (S36E41 L=313)   581     94        1 ( 468/ 461- 524/ 534) -90.0 E44-E38 S38-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