Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  531 1183 (N16E32 L=197)   273     79        2 ( 500/1162- 577/1209)  -9.5 E34-E28 N14-N17
      2  904  891 (S03E08 L=221)   394    185        1 ( 830/ 850- 990/ 931) -26.6 E12-E02 S05-N00
      3 1399  672 (S20W23 L=252)   246     61        0 (1382/ 649-1418/ 697) -45.0 W21-W24 S21-S18
      4  455  636 (S18E42 L=187)   489     77        1 ( 428/ 603- 496/ 664)  15.9 E45-E38 S20-S16
      5 1697  624 (S26W50 L=279)   394     31        1 (1681/ 601-1716/ 649) -36.9 W47-W51 S27-S24
      6  399  521 (S26E53 L=177)   670     80        1 ( 369/ 493- 441/ 549) -31.0 E56-E49 S28-S24
      7  409  427 (S34E59 L=170)   709     94        1 ( 393/ 391- 445/ 473)  37.9 E64-E54 S36-S29
  

    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