Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1167 1565 (N39W14 L=116)   671    113        0 (1109/1528-1225/1604) -36.9 W10-W18 N35-N42
      2 1375 1461 (N30W28 L=129)   376    113        0 (1321/1445-1435/1477) -20.6 W24-W32 N28-N31
      3 1537 1353 (N22W38 L=139)   439    108        1 (1508/1315-1580/1399) -51.3 W35-W40 N19-N24
      4  778 1322 (N24E15 L= 86)   724    281        0 ( 664/1269- 890/1365) -17.4 E23-E07 N20-N27
      5 1832 1204 (N09W62 L=164)  2516    434        6 (1788/1060-1884/1330)  50.9 W55-W73 N00-N16
      6 1656  649 (S24W44 L=145)  1456    300        3 (1594/ 532-1715/ 784)  79.4 W39-W48 S31-S14
      7 1082  536 (S27W01 L=103)   547    169        3 (1020/ 473-1136/ 585)  48.8 E03-W05 S31-S23
      8  898  369 (S39E14 L= 87)   837    153        2 ( 839/ 331- 959/ 413)  24.4 E19-E08 S42-S35
  

    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