Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  880 1569 (N43E01 L=156)   369     62        0 ( 847/1547- 914/1590) -36.9 E03-W02 N41-N46
      2 1746 1493 (N20W67 L=224)  3798    435        7 (1656/1429-1830/1551) -26.6 W61-W75 N14-N26
      3 1391 1349 (N20W30 L=186)   463    147        2 (1336/1305-1450/1373)   6.3 W27-W32 N16-N22
      4  382 1276 (N30E45 L=112)   386    107        0 ( 338/1262- 425/1288)   0.0 E49-E40 N29-N31
      5 1761 1214 (N04W54 L=211)   564    151        2 (1740/1172-1792/1261)  71.6 W54-W57 N01-N07
      6  815 1134 (N16E11 L=145)   352     85        0 ( 795/1085- 837/1181) -90.0 E12-E11 N13-N19
      7 1899 1097 (S06W69 L=226)   765    181        1 (1879/1058-1923/1141)  29.7 W67-W74 S10-S03
      8 1275 1051 (N04W16 L=172)   266     65        2 (1238/1037-1309/1073) -14.0 W14-W17 N03-N06
      9 1855  921 (S16W61 L=218)   795    171        1 (1813/ 872-1878/ 970) -37.9 W56-W66 S20-S12
     10 1316  927 (S04W16 L=173)   555    115        2 (1252/ 897-1369/ 952) -23.2 W13-W19 S07-S01
     11 1299  603 (S24W12 L=168)  1982    490        7 (1148/ 455-1407/ 826)  46.5 W04-W20 S38-S07
     12 1715  787 (S21W46 L=202)   838    128        3 (1682/ 756-1749/ 823) -39.8 W42-W50 S24-S18
     13  970  536 (S23E12 L=144)   378    168        0 ( 957/ 466- 982/ 613)  66.0 E11-E13 S28-S18
     14  390  454 (S22E63 L= 93)   472    119        1 ( 365/ 421- 408/ 498)  56.3 E62-E64 S25-S19
     15  496  449 (S23E51 L=105)   969    178        3 ( 447/ 412- 545/ 487)  17.1 E53-E49 S26-S20
  

    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