Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  958 1828 (N42E37 L=136)  1159    212        2 ( 868/1762-1045/1877)  -7.4 E49-E26 N39-N43
      2  466 1648 (N16E59 L=114)  2312    326        2 ( 338/1608- 595/1689)   7.6 E76-E46 N11-N18
      3 1563 1571 (N45W20 L=193)   386    111        0 (1521/1524-1602/1608) -24.0 W15-W24 N42-N46
      4  835 1244 (N01E16 L=157)   709    204        1 ( 782/1147- 907/1326) -22.6 E21-E09 S02-N04
      5  230 1128 (S20E58 L=115)   436     53        3 ( 210/1099- 253/1164) -76.0 E60-E55 S21-S17
      6  326 1118 (S19E48 L=125)   354     68        0 ( 307/1087- 346/1151)  53.1 E49-E46 S20-S16
      7  162 1051 (S26E66 L=107)  2634    201        1 ( 126/ 966- 198/1139)  63.4 E73-E61 S31-S19
      8 1738 1099 (N20W43 L=216)   965    128        0 (1678/1054-1782/1139)   0.0 W36-W47 N18-N21
      9  911 1070 (S07E07 L=166)   307     68        0 ( 882/1036- 939/1103)  78.7 E08-E06 S09-S04
     10  526  816 (S31E26 L=147)   331    111        0 ( 476/ 783- 573/ 846)  40.6 E29-E22 S34-S28
     11 1763  783 (N04W55 L=228)   348     58        1 (1744/ 751-1777/ 818) -45.0 W52-W56 N02-N05
     12 1097  684 (S23W15 L=188)   759    218        0 (1003/ 629-1196/ 727)  54.0 W10-W19 S28-S17
     13 1368  633 (S17W32 L=205)  1294    281        3 (1227/ 599-1505/ 665)  34.5 W24-W40 S22-S11
     14  853  582 (S36W04 L=177)   388     55        1 ( 829/ 559- 883/ 608)  76.0 W01-W05 S38-S34
     15  809  533 (S41W02 L=176)   337     65        1 ( 789/ 503- 835/ 571) -31.0 W00-W05 S42-S38
     16 1620  451 (S18W62 L=235)   492     52        1 (1597/ 428-1648/ 476)  76.0 W59-W63 S19-S15
     17 1543  444 (S21W55 L=228)   347     62        0 (1519/ 411-1566/ 473) -68.2 W53-W57 S23-S18
     18  530  396 (S62E20 L=153)   807    140        0 ( 474/ 349- 577/ 456) -23.2 E28-E13 S65-S58
     19  841  429 (S47W09 L=182)   261     40        0 ( 818/ 409- 861/ 449) -14.0 W07-W11 S47-S45
  

    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