Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1707  649 (S18W54 L=210)   453     47        1 (1683/ 627-1735/ 672)   0.0 W51-W57 S19-S16
      2 1367  613 (S26W29 L=184)   348     95        0 (1325/ 586-1413/ 635)  38.7 W26-W31 S27-S23
      3  818  557 (S37E08 L=147)   254     65        0 ( 797/ 530- 839/ 595)  68.2 E10-E07 S38-S33
      4 1444  512 (S31W38 L=193)   273     83        0 (1402/ 500-1488/ 526)  18.4 W35-W41 S31-S29
      5  643  338 (S56E27 L=128)   379     89        0 ( 611/ 308- 689/ 364) -26.6 E30-E22 S58-S54
      6 1142  224 (S58W32 L=187)  1360    217        3 (1039/ 192-1231/ 258)   0.0 W18-W45 S60-S54
      7 1268  200 (S57W49 L=204)   735     77        1 (1235/ 170-1293/ 242) -23.2 W43-W57 S58-S52
  

    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