Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1328 1797 (N43W58 L=226)   462     49        1 (1298/1771-1355/1821)   0.0 W52-W63 N41-N43
      2 1563 1642 (N25W61 L=228)  1499    189        2 (1516/1594-1620/1694)  -3.6 W54-W70 N23-N27
      3 1719 1559 (N15W70 L=238)  1196    120        2 (1663/1516-1782/1586) -41.6 W64-W76 N10-N18
      4 1375 1441 (N21W34 L=201)   947    389        1 (1224/1360-1533/1497) -47.0 W26-W41 N11-N27
      5  905 1318 (N27W01 L=168)   237    108        1 ( 865/1281- 950/1352) -71.6 E01-W02 N23-N29
      6  318 1228 (N35E47 L=120)   548    121        0 ( 275/1202- 373/1253) -15.3 E52-E41 N32-N36
      7  309 1055 (N24E49 L=119)   828    209        1 ( 273/ 986- 372/1149) -54.0 E52-E43 N19-N30
      8  441 1070 (N23E37 L=131)   257     94        0 ( 416/1032- 466/1114) -71.6 E38-E34 N20-N26
      9  242  776 (N09E61 L=106)  1468    236        5 ( 211/ 682- 285/ 873)  76.0 E66-E58 N02-N14
     10  278  788 (N09E57 L=110)   333     53        1 ( 263/ 755- 299/ 816)  56.3 E58-E55 N07-N10
     11  469  656 (S02E44 L=123)   391     78        0 ( 445/ 631- 508/ 687) -26.6 E45-E41 S03-N00
     12 1773  586 (S44W49 L=216)   691     79        1 (1730/ 562-1803/ 620)  -9.5 W42-W56 S47-S40
     13  381  482 (S11E61 L=106)   633    113        2 ( 353/ 447- 426/ 517)  15.3 E66-E55 S13-S09
  

    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