Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  219 1142 (S17E58 L=335)  1108    186        0 ( 191/1051- 242/1248)  90.0 E60-E56 S22-S10
      2  466 1153 (S12E37 L=355)   757    183        2 ( 425/1076- 502/1222) -58.0 E40-E33 S16-S08
      3  528 1150 (S11E33 L=360)   231     52        0 ( 505/1117- 554/1180)  76.0 E33-E31 S13-S09
      4 1893  979 (N15W61 L= 93)  3635    432        5 (1826/ 902-1943/1058)  -9.5 W51-W70 N11-N20
      5  921  879 (S18E02 L= 30)   538    220        0 ( 878/ 779- 950/ 981) -48.4 E07-W01 S23-S12
      6 1548  860 (S02W35 L= 67)  1047    239        1 (1459/ 813-1640/ 937)  -7.6 W27-W42 S04-N00
      7 1076  796 (S19W09 L= 41)   235     65        1 (1059/ 763-1099/ 828) -36.9 W07-W11 S19-S16
      8  635  771 (S31E18 L= 14)   944    308        0 ( 497/ 736- 773/ 802)  13.4 E28-E07 S34-S28
      9 1726  684 (S06W55 L= 87)   410     89        1 (1705/ 659-1748/ 718) -18.4 W51-W58 S07-S04
     10 1618  582 (S15W51 L= 83)  1059    224        0 (1527/ 550-1707/ 636)  36.0 W43-W55 S17-S09
     11 1760  513 (S13W69 L=101)  2582    281        3 (1715/ 456-1810/ 561)  81.9 W62-W76 S16-S09
     12 1557  438 (S24W54 L= 86)   738    183        3 (1523/ 380-1590/ 504) -77.5 W50-W57 S28-S19
     13 1239  440 (S34W32 L= 65)  1361    301        1 (1076/ 380-1377/ 495)  43.0 W23-W39 S41-S26
  

    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