Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  705 1747 (N61W00 L=123)   357     82        0 ( 687/1715- 736/1778)  29.7 E02-W05 N58-N62
      2 1141 1578 (N33W25 L=147)   651    116        1 (1083/1539-1193/1607) -50.2 W21-W27 N29-N35
      3  683 1567 (N46E08 L=115)   300     77        1 ( 645/1544- 724/1587)   0.0 E11-E03 N45-N47
      4 1360 1507 (N22W35 L=158)   373    123        1 (1317/1469-1413/1541)   5.7 W30-W40 N21-N23
      5 1206 1486 (N26W24 L=147)   214     65        1 (1179/1455-1223/1510) -90.0 W22-W25 N23-N27
      6  620 1194 (N24E20 L=103)   229     95        0 ( 600/1149- 646/1233) -80.5 E20-E19 N20-N26
      7  215 1129 (N29E57 L= 66)  1014     87        3 ( 176/1091- 258/1169)  33.7 E62-E51 N26-N31
      8 1844  960 (S22W55 L=177)   807     90        1 (1825/ 914-1868/1003) -66.8 W52-W57 S25-S18
      9 1850  802 (S32W55 L=178)   664    133        0 (1801/ 770-1898/ 853)   4.1 W48-W62 S33-S30
     10  763  672 (S09E24 L= 99)   476    100        0 ( 736/ 622- 802/ 711)  33.7 E26-E20 S11-S06
     11 1616  584 (S38W29 L=151)  1579    337        2 (1466/ 513-1736/ 672)   2.2 W15-W41 S40-S35
     12  817  396 (S27E32 L= 91)   853    150        1 ( 759/ 375- 897/ 433) -49.4 E34-E27 S30-S23
     13  638  354 (S25E47 L= 76)   347     81        1 ( 596/ 337- 677/ 369)  -7.1 E50-E42 S26-S24
  

    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