Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  727 1817 (N34E48 L=118)  1701    331        4 ( 679/1755- 771/1884) -26.6 E58-E40 N29-N39
      2  789 1582 (N19E30 L=136)   427     90        0 ( 743/1566- 841/1596)  18.4 E32-E26 N17-N21
      3 1481 1031 (N06W26 L=192)   321    103        0 (1452/ 979-1503/1086)  90.0 W24-W26 N01-N09
      4  592  966 (S21E24 L=142)   398    161        1 ( 510/ 950- 665/ 987)  26.6 E29-E19 S23-S18
      5 1068  918 (S12W05 L=171)   281    128        0 (1008/ 896-1125/ 965)  45.0 W01-W07 S13-S07
      6 1627  917 (N04W38 L=204)   514    154        1 (1560/ 898-1688/ 931)  24.0 W34-W43 N01-N05
      7 1703  722 (S04W51 L=217)  1410    252        3 (1657/ 601-1733/ 858) -55.3 W45-W57 S10-N03
      8  872  755 (S26E02 L=164)   558    212        1 ( 764/ 735- 975/ 777)  28.6 E08-W03 S28-S22
      9 1241  734 (S17W20 L=186)   217     92        0 (1192/ 696-1282/ 759)  51.3 W18-W22 S20-S15
     10 1339  646 (S19W29 L=195)   369     89        4 (1295/ 625-1373/ 674)  21.8 W26-W31 S20-S17
     11 1535  613 (S15W43 L=209)  1261    196        2 (1434/ 577-1613/ 671)  45.0 W37-W47 S19-S09
     12 1116  389 (S41W29 L=194)  2131    466        8 ( 938/ 357-1312/ 440)  15.9 W14-W42 S45-S34
     13 1582  324 (S27W65 L=231)   951    214        2 (1529/ 303-1633/ 342)  24.0 W59-W69 S29-S25
  

    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