Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  932 1579 (N26E21 L=270)  2122    483        3 ( 829/1357- 993/1726) -46.4 E33-E13 N12-N34
      2  568 1608 (N19E47 L=244)   988    216        5 ( 522/1527- 607/1712) -65.2 E52-E43 N12-N25
      3 1732 1244 (N28W41 L=332)  1656    318        0 (1666/1103-1774/1372) -47.1 W34-W47 N20-N34
      4 1854 1158 (N27W56 L=347)  1736    276        0 (1793/1072-1917/1211)  42.7 W49-W66 N19-N31
      5  311 1033 (S20E47 L=244)   467    100        0 ( 290/ 994- 352/1078) -38.7 E49-E42 S22-S17
      6 1472  972 (N04W27 L=318)   857    290        1 (1350/ 912-1524/1078)  59.7 W20-W29 S01-N11
      7 1916  947 (N17W69 L=359)  1611    129        5 (1891/ 896-1951/1012) -21.0 W63-W78 N12-N19
      8 1873  926 (N14W62 L=353)   609     84        0 (1856/ 882-1889/ 963)  90.0 W59-W65 N11-N16
      9 1846  712 (N02W68 L=359)  1151    119        1 (1787/ 687-1902/ 736)   8.1 W59-W80 N00-N03
     10  976  660 (S26W07 L=298)   637    266        1 ( 880/ 627-1099/ 708)  47.7 W01-W13 S30-S19
     11  398  557 (S49E38 L=253)  2170    268        3 ( 305/ 493- 515/ 638)  -7.1 E49-E24 S53-S45
     12 1589  539 (S16W51 L=342)  1363    330        0 (1454/ 498-1720/ 573)  32.3 W42-W61 S21-S09
     13 1340  200 (S43W64 L=355)  2560    169        2 (1282/ 161-1415/ 265)   0.0 W50-W79 S45-S40
  

    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