Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  842 1827 (N62W21 L=117)   531    102        0 ( 805/1792- 888/1869)  13.2 W14-W31 N59-N64
      2 1148 1790 (N47W40 L=136)   451     70        0 (1126/1750-1168/1820)  39.8 W37-W44 N43-N48
      3 1420 1707 (N32W52 L=148)  1548    223        4 (1339/1614-1502/1763) -85.6 W48-W56 N24-N37
      4  969 1368 (N25W06 L=102)   305    103        1 ( 944/1322- 998/1414) -81.9 W04-W06 N21-N28
      5  540 1391 (N38E23 L= 73)   336     72        0 ( 507/1361- 580/1412) -38.7 E25-E20 N34-N39
      6  257 1385 (N45E56 L= 41)   640     70        0 ( 220/1360- 285/1404) -14.0 E62-E50 N42-N46
      7  230 1033 (N23E55 L= 41)  3068    311        6 ( 174/ 823- 292/1242) -83.4 E63-E49 N10-N36
      8  378 1113 (N25E40 L= 56)   352    116        1 ( 337/1086- 441/1140)   6.3 E43-E34 N23-N26
      9  443  949 (N14E37 L= 59)   269     79        1 ( 416/ 916- 463/ 994)  53.1 E39-E34 N11-N15
     10 1147  836 (S09W02 L= 99)   459    165        0 (1120/ 753-1183/ 904)  53.1 E01-W05 S13-S05
     11 1756  649 (S39W44 L=141)   749    127        1 (1699/ 623-1812/ 669) -14.9 W37-W52 S40-S36
     12 1200  543 (S28E02 L= 94)   225     52        0 (1170/ 527-1221/ 561)   0.0 E04-W00 S28-S26
     13  914  471 (S25E22 L= 74)   380    122        0 ( 847/ 457- 974/ 487) -12.5 E26-E17 S26-S23
     14 1207  224 (S54E16 L= 80)  1547    246        2 (1105/ 151-1305/ 276)   8.7 E31-E05 S58-S49
  

    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