Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  729 1742 (N61W05 L= 19)   508    111        1 ( 701/1719- 771/1767) -56.3 W01-W08 N57-N63
      2 1131 1712 (N43W34 L= 48)   823    148        0 (1062/1670-1189/1745) -63.4 W30-W37 N37-N46
      3  675 1696 (N59E03 L= 10)   370     62        1 ( 651/1666- 699/1721) -90.0 E05-W00 N55-N61
      4 1496 1690 (N28W59 L= 72)   763    148        0 (1415/1672-1561/1703) -26.6 W51-W64 N24-N31
      5  578 1638 (N58E16 L=357)   803     92        2 ( 536/1598- 622/1674)  15.3 E21-E09 N55-N60
      6  388 1546 (N57E42 L=331)   937    171        1 ( 336/1490- 463/1595)  17.4 E49-E31 N53-N58
      7 1188 1526 (N29W26 L= 39)   326     21        0 (1162/1505-1213/1545) -33.7 W24-W28 N27-N30
      8 1469 1470 (N18W41 L= 54)   301     72        3 (1439/1438-1498/1493) -76.0 W38-W42 N15-N19
      9 1253 1346 (N17W22 L= 36)   529    217        0 (1149/1326-1361/1372) -36.0 W17-W28 N13-N21
     10  313 1124 (N29E46 L=327)   382     77        0 ( 268/1107- 344/1154)   0.0 E51-E42 N28-N30
     11 1506  654 (S29W19 L= 33)  1052    296        1 (1409/ 586-1619/ 739)   6.3 W11-W29 S31-S25
     12 1259  328 (S44E07 L=  6)  1191    177        2 (1173/ 276-1340/ 379)   7.6 E15-W00 S45-S41
     13  912  223 (S41E38 L=335)   815    142        0 ( 869/ 179- 952/ 280)  70.0 E41-E35 S45-S34
  

    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