Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  964 1831 (N64E05 L=339)  1098    175        2 ( 889/1809-1051/1850)   5.2 E16-W07 N61-N66
      2  471 1439 (N31E42 L=301)   522    140        0 ( 418/1398- 525/1466)  26.6 E46-E37 N27-N32
      3 1317 1439 (N30W22 L=  6)   426    199        0 (1225/1425-1408/1452)  -4.1 W15-W29 N28-N30
      4  209 1314 (N21E69 L=275)  3666    222        8 ( 170/1225- 247/1423) -81.3 E80-E60 N15-N28
      5 1677 1348 (N22W50 L= 34)   603    151        2 (1647/1307-1713/1392)  59.0 W47-W54 N19-N24
      6  442 1322 (N23E42 L=302)   601    166        1 ( 402/1275- 504/1380) -35.0 E46-E36 N19-N26
      7 1550 1220 (N14W36 L= 20)   249     91        0 (1512/1192-1585/1246)  23.2 W32-W39 N12-N15
      8 1674 1132 (N08W45 L= 29)   712    142        1 (1646/1077-1698/1203) -90.0 W42-W47 N05-N12
      9  251  937 (S02E57 L=287)   346     57        0 ( 236/ 905- 269/ 968)  45.0 E58-E54 S03-N00
     10 1751  855 (S09W52 L= 36)   563     65        1 (1721/ 827-1781/ 877)  11.3 W48-W54 S11-S07
     11  220  824 (S09E62 L=282)  1784    167        3 ( 143/ 760- 291/ 852)   0.0 E75-E53 S13-S07
     12 1755  759 (S16W54 L= 38)  2691    455        8 (1578/ 691-1910/ 828)   7.5 W37-W76 S18-S12
     13  333  689 (S17E52 L=292)   415     69        0 ( 310/ 664- 361/ 727) -45.0 E54-E49 S18-S14
     14  703  651 (S19E22 L=322)   277    120        0 ( 691/ 597- 716/ 712)  66.8 E23-E20 S22-S15
     15 1073  511 (S30W02 L=346)   866    196        4 (1028/ 436-1131/ 588)  70.0 W00-W06 S35-S24
  

    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