Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  961 1824 (N41E36 L=138)  1040    196        3 ( 883/1764-1034/1870)  -8.5 E47-E26 N38-N43
      2  463 1650 (N16E60 L=114)  2349    369        2 ( 330/1610- 614/1691)   6.7 E79-E45 N11-N18
      3  501 1416 (N02E43 L=131)   284     63        0 ( 470/1400- 535/1432)  36.9 E45-E40 N00-N03
      4  822 1250 (N01E17 L=157)   774    242        2 ( 765/1149- 897/1335) -24.8 E23-E10 S03-N04
      5  315 1121 (S19E49 L=125)   361     63        0 ( 297/1085- 337/1151)  63.4 E50-E47 S20-S16
      6 1724 1107 (N20W41 L=215)   993    130        1 (1667/1060-1769/1151)  -5.2 W35-W46 N18-N21
      7  157 1054 (S25E67 L=107)  2340    220        4 ( 124/ 976- 187/1147)  65.6 E73-E62 S30-S19
      8  893 1081 (S07E09 L=165)   338     73        2 ( 862/1045- 925/1115)  68.2 E10-E07 S09-S04
      9 1075  690 (S23W13 L=187)   638    185        0 ( 999/ 640-1159/ 728)  56.3 W10-W16 S27-S18
     10 1360  641 (S17W32 L=206)  1279    282        0 (1218/ 608-1495/ 665)  36.3 W24-W39 S22-S11
     11  829  567 (S38W03 L=177)   569    112        2 ( 800/ 507- 865/ 614) -82.9 W00-W04 S42-S34
     12 1610  453 (S18W60 L=234)   378     28        1 (1592/ 431-1630/ 474)  71.6 W58-W62 S19-S16
     13  828  439 (S46W08 L=182)   257     38        0 ( 807/ 417- 850/ 465) -21.8 W05-W10 S47-S45
     14  526  399 (S62E21 L=153)   718    138        1 ( 461/ 359- 574/ 446)  -6.3 E31-E13 S64-S58
  

    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