Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  827 1603 (N21E29 L=304)   247     55        0 ( 801/1581- 847/1622) -14.0 E31-E27 N20-N22
      2 1718 1502 (N46W38 L= 12)  1492    182        2 (1657/1426-1776/1567) -26.6 W30-W45 N42-N49
      3 1646 1357 (N32W30 L=  4)   947    178        0 (1592/1278-1679/1419) -36.9 W24-W34 N27-N35
      4 1577 1230 (N21W27 L=  1)   285     51        0 (1556/1197-1591/1260) -33.7 W25-W28 N19-N22
      5 1895 1066 (N24W61 L= 35)   638     65        0 (1878/1029-1913/1100) -26.6 W58-W65 N21-N25
      6  776  833 (S24E09 L=325)   294    154        0 ( 703/ 809- 845/ 852)  36.9 E13-E05 S27-S21
      7 1176  693 (S20W19 L=353)   207    127        1 (1133/ 658-1219/ 711)  21.8 W16-W21 S22-S19
      8 1245  581 (S24W27 L=  1)   805    252        0 (1137/ 542-1364/ 615)  42.3 W22-W33 S29-S19
  

    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