Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1042 1667 (N32E18 L=139)  1425    340        0 ( 977/1545-1136/1727)  85.9 E22-E11 N22-N37
      2  510 1677 (N19E56 L=102)   673     81        2 ( 473/1646- 547/1709)  36.9 E58-E52 N17-N21
      3 1375 1653 (N42W04 L=162)   756    183        0 (1298/1597-1446/1704) -13.0 E02-W11 N39-N43
      4  429 1634 (N15E60 L= 97)   890     99        3 ( 388/1594- 454/1675) -50.2 E66-E57 N12-N18
      5  566 1630 (N17E48 L=110)   728    156        1 ( 482/1607- 636/1654)   9.5 E53-E41 N14-N19
      6 1052 1146 (N00E02 L=156)   261    105        1 (1032/1087-1081/1188) -53.1 E03-W01 S02-N02
      7 1799  977 (N13W51 L=209)   394     63        0 (1765/ 956-1825/ 994)   0.0 W47-W54 N11-N13
      8 1827  872 (N08W57 L=215)   754     69        2 (1797/ 842-1858/ 907) -71.6 W53-W60 N05-N10
      9  395  773 (S37E38 L=120)   993    226        1 ( 309/ 736- 469/ 854)  31.0 E47-E31 S40-S30
     10 1025  810 (S19W06 L=163)   252    100        0 ( 985/ 771-1062/ 842)  -9.5 W02-W08 S20-S17
     11 1832  723 (N01W65 L=222)   427     31        0 (1811/ 705-1852/ 746) -63.4 W62-W68 N00-N02
     12 1727  652 (S07W57 L=215)   670     69        1 (1696/ 627-1758/ 679)   0.0 W53-W61 S08-S05
     13 1391  655 (S17W32 L=190)   346    112        0 (1337/ 617-1421/ 675)   8.1 W28-W35 S18-S15
     14 1476  377 (S29W55 L=212)  1309    280        2 (1339/ 351-1598/ 405)  23.2 W43-W64 S33-S23
     15  750  270 (S64W09 L=167)  1452    146        4 ( 702/ 229- 805/ 331)  -6.3 W00-W18 S67-S59
  

    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