Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1405 1736 (N56W09 L=218)   809    100        1 (1354/1714-1441/1765)  29.1 W03-W13 N51-N59
      2 1181 1596 (N36E05 L=204)  1037    323        2 (1117/1457-1272/1709) -37.9 E14-W04 N28-N42
      3 1679 1490 (N44W40 L=249)   790     91        3 (1634/1453-1719/1514)   5.7 W34-W44 N41-N46
      4  330  928 (S24E45 L=164)   281     26        0 ( 314/ 902- 342/ 952) -71.6 E46-E43 S25-S22
      5 1504  774 (S05W35 L=244)   251     32        1 (1488/ 750-1527/ 798) -63.4 W34-W36 S06-S04
      6  390  557 (S48E41 L=168)   772     81        0 ( 358/ 516- 417/ 601)  45.0 E46-E36 S51-S44
      7  423  485 (S53E39 L=170)   550     73        1 ( 397/ 452- 459/ 511)  36.9 E43-E32 S56-S50
      8 1524  393 (S27W57 L=266)  2357    258        3 (1399/ 349-1643/ 448)  32.9 W47-W66 S32-S20
      9  514  401 (S58E28 L=181)   450     37        1 ( 492/ 380- 536/ 423)  35.5 E32-E24 S60-S55
  

    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