Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1687 1633 (N18W71 L=183)   939     90        1 (1649/1601-1714/1666)   0.0 W64-W81 N16-N18
      2 1411 1448 (N18W36 L=148)   774    165        1 (1334/1419-1494/1469) -37.9 W31-W40 N14-N21
      3 1158 1285 (N17W15 L=127)   198     86        0 (1137/1242-1177/1325)  80.5 W14-W15 N13-N19
      4 1884 1126 (S15W62 L=174)  6683      0       22 (1799/ 980-1947/1251) -86.6 W50-W75 S23-S06
      5 1343 1228 (N08W23 L=135)   204     85        0 (1295/1216-1382/1242) -21.8 W20-W25 N07-N09
      6  584 1113 (N22E24 L= 88)  1375    395        2 ( 423/ 995- 713/1234) -52.7 E34-E17 N12-N33
      7 1818 1128 (S12W54 L=166)   438     66        1 (1792/1100-1836/1161)  18.4 W50-W56 S13-S10
      8  869 1138 (N16E06 L=106)   278    129        0 ( 815/1125- 941/1149) -29.7 E08-E01 N14-N18
      9 1605  928 (S16W31 L=143)   643    208        0 (1560/ 840-1632/1028)  48.4 W26-W35 S19-S10
     10  966  810 (S04E09 L=103)   218     68        1 ( 950/ 770- 983/ 843)  63.4 E10-E07 S05-S01
     11  790  734 (S04E21 L= 91)   296     77        1 ( 757/ 707- 823/ 770) -63.4 E22-E19 S05-S01
     12 1137  633 (S18E05 L=107)   766    295        0 (1090/ 496-1186/ 752)  47.3 E11-W01 S25-S12
     13  447  474 (S11E54 L= 58)  1201    222        1 ( 415/ 380- 476/ 568)  58.4 E61-E48 S17-S04
     14  345  512 (S07E62 L= 50)  1719    224        6 ( 258/ 452- 406/ 566) -38.7 E69-E53 S10-S02
  

    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