Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  423 1505 (N07E53 L=247)  1491    196        3 ( 368/1422- 462/1588) -85.2 E55-E50 N00-N12
      2  920 1507 (N19E20 L=280)   352    132        1 ( 863/1463- 970/1548) -18.4 E24-E15 N17-N20
      3 1113 1342 (N15E04 L=296)   330     90        0 (1089/1300-1134/1394) -80.5 E05-E02 N11-N17
      4 1670 1005 (N12W39 L=339)   572    184        4 (1640/ 950-1719/1051) -38.7 W36-W43 N09-N14
      5 1784 1025 (N17W48 L=348)   744    121        3 (1744/ 987-1829/1048)  35.5 W45-W52 N13-N19
      6 1781  822 (N06W55 L=355)  1539    324        6 (1725/ 743-1825/ 897) -26.6 W47-W61 N02-N09
      7  690  655 (S36E10 L=290)   253     40        2 ( 663/ 640- 719/ 673)   0.0 E12-E07 S36-S34
  

    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