Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1459 1583 (N42W32 L=288)   296     90        1 (1419/1563-1491/1600)  14.0 W27-W35 N40-N43
      2 1546 1549 (N40W39 L=295)   512     65        1 (1519/1521-1575/1581) -36.9 W36-W41 N37-N42
      3 1493 1135 (N12W30 L=286)   225     45        0 (1469/1119-1517/1151)   0.0 W28-W31 N10-N12
      4 1656 1012 (N05W42 L=299)   370    112        1 (1634/ 947-1672/1069)  82.9 W41-W43 N00-N08
      5  765  919 (S06E15 L=241)   966    283        1 ( 701/ 782- 795/1055) -65.0 E20-E13 S14-N01
      6 1406  665 (S18W28 L=284)   496     69        1 (1365/ 636-1443/ 697)  45.0 W25-W30 S20-S15
      7 1250  610 (S23W18 L=274)   495    142        2 (1173/ 587-1317/ 634)  -5.7 W12-W22 S23-S21
      8  293  559 (S34E57 L=199)   639    130        1 ( 262/ 545- 328/ 575)  14.0 E60-E52 S35-S32
  

    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