Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  867 1865 (N64W25 L=  5)  1473    206        0 ( 788/1803- 939/1923)   5.5 W12-W44 N60-N67
      2  768 1795 (N61W08 L=347)   355     24        0 ( 750/1771- 786/1817)  80.5 W05-W10 N58-N64
      3 1084 1670 (N40W25 L=  4)  1964    398        0 ( 906/1637-1269/1704) -26.6 W11-W36 N32-N45
      4 1671 1579 (N18W62 L= 42)   438     69        0 (1627/1554-1702/1603)   0.0 W56-W67 N16-N18
      5 1304 1568 (N27W33 L= 13)   281     38        0 (1287/1539-1324/1589)  36.9 W31-W35 N25-N28
      6  657 1526 (N43E12 L=328)   573    131        1 ( 629/1458- 697/1573)  49.4 E14-E07 N38-N45
      7 1622 1416 (N10W48 L= 27)   668     97        1 (1586/1370-1656/1456) -90.0 W46-W49 N07-N13
      8 1825 1267 (S03W60 L= 39)   439     28        2 (1800/1249-1850/1284) -21.8 W57-W63 S04-S01
      9 1354 1174 (N04W22 L=  2)   514    130        0 (1309/1118-1389/1220) -81.9 W20-W23 N00-N07
     10  193 1051 (N23E59 L=280)  4145    250       10 ( 118/ 959- 268/1144)  25.0 E70-E49 N17-N28
     11  517 1008 (N14E31 L=309)  1449    403        4 ( 370/ 908- 661/1141) -51.3 E40-E23 N05-N25
     12 1715 1057 (S11W43 L= 23)   501     55        0 (1685/1024-1743/1088) -53.1 W41-W45 S13-S09
     13 1363  923 (S10W17 L=356)  1094    277        0 (1314/ 801-1391/1060)  52.4 W11-W21 S15-S02
     14 1755 1004 (S16W46 L= 25)   316     58        0 (1733/ 978-1770/1045)  56.3 W43-W47 S16-S13
     15  298 1003 (N19E48 L=291)   364     63        0 ( 274/ 973- 324/1032)  56.3 E50-E45 N16-N19
     16  191  747 (N06E66 L=273)  4279    254        8 ( 123/ 631- 237/ 850)  40.6 E78-E58 S01-N11
     17  261  766 (N06E57 L=282)   359     72        0 ( 239/ 732- 282/ 800) -68.2 E58-E55 N03-N08
     18 1819  633 (S42W54 L= 33)  1151    128        0 (1759/ 611-1879/ 655) -13.5 W44-W69 S45-S37
     19 1673  553 (S42W36 L= 15)  1001    164        0 (1608/ 502-1739/ 618)  17.1 W28-W42 S44-S39
     20 1022  490 (S27E14 L=325)   263     52        0 ( 996/ 461-1044/ 518)  36.9 E16-E12 S28-S25
     21  628  211 (S36E62 L=278)   816     83        1 ( 595/ 184- 658/ 253)  15.5 E72-E54 S38-S33
  

    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