Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  998 1874 (N47E36 L=112)   659     66        1 ( 982/1838-1020/1910) -35.0 E42-E32 N42-N50
      2  785 1849 (N38E48 L= 99)   772     81        0 ( 741/1831- 821/1872)   8.1 E51-E43 N35-N40
      3  432 1668 (N17E62 L= 85)   490     77        1 ( 413/1635- 445/1712) -45.0 E66-E59 N14-N20
      4 1203 1628 (N33E07 L=140)   620    105        1 (1168/1576-1240/1670) -29.7 E10-E02 N30-N36
      5 1142 1547 (N26E08 L=140)   236     80        0 (1103/1531-1174/1574)  59.0 E09-E06 N23-N28
      6 1408 1448 (N28W11 L=159)   256    111        0 (1378/1397-1432/1500) -45.0 W08-W13 N25-N30
      7  639 1470 (N09E35 L=113)   545    104        2 ( 597/1441- 696/1492)  45.0 E37-E31 N06-N11
      8  447 1443 (N03E47 L=100)   467     85        2 ( 416/1398- 484/1477)  78.7 E48-E44 N00-N05
      9  999 1272 (N06E08 L=140)   527    203        0 ( 930/1225-1061/1348)  71.6 E11-E05 N02-N11
     10 1773 1260 (N29W43 L=191)   480    105        0 (1731/1211-1799/1299) -23.2 W38-W46 N26-N30
     11  566 1220 (S07E31 L=116)   440    158        0 ( 523/1151- 602/1285) -36.9 E35-E27 S10-S04
     12  169 1219 (S14E67 L= 80)   557     50        2 ( 149/1189- 200/1240)  26.6 E70-E62 S15-S12
     13  649 1059 (S14E22 L=125)   738    222        2 ( 568/1021- 746/1092)  14.0 E27-E15 S17-S11
     14  806  719 (S30E05 L=143)   210     43        0 ( 784/ 699- 831/ 742)   0.0 E06-E02 S30-S28
     15 1503  646 (S14W40 L=187)  1304    312        2 (1370/ 611-1624/ 708)  38.2 W32-W46 S19-S07
  

    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