Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1289 1855 (N54W38 L=150)   732    193        1 (1255/1820-1332/1885)  23.2 W32-W46 N50-N57
      2 1099 1608 (N35W10 L=122)   454     75        1 (1065/1569-1131/1632) -26.6 W08-W12 N31-N36
      3 1348 1492 (N25W25 L=137)   322     59        1 (1329/1468-1376/1524) -71.6 W23-W26 N23-N26
      4 1396  965 (S08W22 L=134)   215     55        1 (1368/ 947-1431/ 979)   0.0 W20-W24 S08-S06
      5 1648  858 (S16W40 L=152)   309     77        1 (1615/ 844-1683/ 875) -21.8 W37-W42 S16-S14
      6 1724  694 (S26W48 L=160)   469     99        1 (1678/ 675-1762/ 708)   0.0 W44-W51 S27-S25
      7 1592  423 (S45W44 L=156)   554    116        1 (1570/ 401-1625/ 462) -35.5 W40-W47 S46-S41
      8  987  288 (S51E12 L=101)   489    112        0 ( 953/ 254-1033/ 331) -63.4 E13-E08 S54-S46
  

    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