Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1626 1598 (N18W59 L= 53)  1914    360        4 (1520/1545-1746/1633) -32.9 W50-W70 N11-N22
      2 1753 1267 (S02W53 L= 46)   949    118        1 (1729/1209-1783/1332)  74.1 W50-W56 S06-N01
      3 1838 1187 (S10W59 L= 52)   704    183        3 (1784/1148-1879/1242)   0.0 W52-W65 S11-S07
      4  541 1029 (N18E29 L=325)   262    132        0 ( 505/1011- 600/1073) -39.8 E30-E24 N16-N21
      5  244  882 (N16E56 L=298)   367     53        1 ( 226/ 852- 264/ 904)  36.9 E57-E53 N14-N17
      6  234  784 (N11E60 L=293)  2181    571        3 ( 107/ 730- 365/ 824) -13.6 E78-E49 N05-N14
      7  974  543 (S20E17 L=337)   395    133        1 ( 945/ 481- 995/ 598)  40.6 E20-E13 S23-S16
      8  568  319 (S24E54 L=300)  1698    338        2 ( 525/ 218- 610/ 410)  56.3 E59-E47 S32-S17
  

    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