Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1360 1834 (N41W66 L=171)   540     41        1 (1346/1805-1376/1863)  16.7 W62-W72 N39-N43
      2 1506 1547 (N21W48 L=153)   278     78        1 (1486/1507-1525/1571)  76.0 W46-W50 N18-N22
      3 1610 1530 (N16W55 L=160)   354     60        2 (1583/1495-1631/1555)  36.9 W53-W57 N14-N17
      4  280 1293 (N41E51 L= 53)   633    132        0 ( 270/1222- 289/1358) -77.5 E53-E49 N36-N45
      5  550 1066 (N21E28 L= 77)  1199    378        2 ( 434/ 923- 655/1166) -58.6 E35-E23 N10-N28
      6  239 1057 (N27E55 L= 49)   823    142        3 ( 192/1019- 275/1115)  21.8 E61-E50 N24-N29
      7 1661  987 (S14W37 L=142)   862    200        1 (1569/ 942-1741/1033)  -3.8 W29-W44 S15-S12
      8  287  994 (N22E51 L= 54)   446     79        0 ( 269/ 953- 309/1030)  45.0 E52-E48 N19-N23
      9 1873  995 (S21W59 L=163)   664     61        1 (1852/ 960-1892/1022)  36.9 W55-W61 S23-S18
     10  278  917 (N18E53 L= 51)   936    181        4 ( 221/ 871- 355/ 977) -37.9 E59-E46 N14-N21
     11  134  925 (N20E73 L= 32)   570     87        0 ( 112/ 886- 160/ 964) -32.0 E77-E68 N17-N22
     12 1398  632 (S26W12 L=116)   924    287        1 (1328/ 523-1452/ 760)  42.7 W04-W17 S31-S19
     13 1149  544 (S24E06 L= 98)  1469    566        0 ( 980/ 360-1330/ 719)  22.1 E23-W09 S32-S18
     14 1787  640 (S41W47 L=152)  1586    186        2 (1717/ 595-1864/ 713)   2.7 W38-W59 S43-S39
     15  508  343 (S21E60 L= 45)   815     45        0 ( 478/ 315- 538/ 371)   5.7 E65-E55 S23-S19
  

    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