Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  827 1574 (N42E11 L=100)   692    124        2 ( 762/1540- 892/1597)   0.0 E16-E05 N39-N43
      2  259 1242 (N21E56 L= 55)  1145    260        1 ( 196/1195- 323/1283) -15.9 E63-E49 N18-N23
      3 1845 1166 (N06W63 L=175)   674     99        1 (1830/1120-1859/1221)  80.5 W60-W65 N02-N08
      4 1794 1134 (N04W57 L=168)   644    123        3 (1763/1093-1821/1177) -90.0 W53-W59 N01-N06
      5 1799 1063 (N00W56 L=167)   355     93        2 (1765/1037-1821/1093) -26.6 W52-W58 S01-N02
      6 1756  716 (S21W52 L=163)   589    153        1 (1717/ 684-1809/ 746)   6.3 W47-W57 S23-S19
      7 1682  668 (S24W45 L=156)   325     54        2 (1665/ 643-1702/ 695)  90.0 W43-W46 S25-S21
      8 1033  254 (S50E07 L=104)   400     81        0 ( 992/ 236-1075/ 274)  18.4 E11-E02 S52-S48
  

    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