Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1752 1559 (N20W68 L=186)  1211    135        1 (1686/1525-1804/1598) -31.0 W61-W74 N16-N22
      2  537 1394 (N31E26 L= 92)  1077    231        1 ( 480/1302- 614/1488)  42.0 E30-E20 N25-N35
      3  890 1431 (N27E01 L=117)   546    157        0 ( 840/1355- 944/1484) -73.3 E03-W00 N21-N31
      4 1371 1456 (N20W30 L=148)   567     98        1 (1315/1427-1418/1477) -26.6 W26-W32 N18-N21
      5 1161 1433 (N22W16 L=134)   629    183        0 (1070/1397-1251/1461) -35.0 W10-W20 N18-N25
      6  298 1304 (N29E48 L= 71)  1497    236        3 ( 194/1256- 420/1343) -15.1 E61-E35 N24-N33
      7  865 1191 (N13E07 L=112)   840    316        2 ( 774/1100- 921/1322)  50.7 E13-E02 N08-N20
      8 1575 1238 (N04W37 L=156)   343     73        0 (1541/1199-1604/1262) -53.1 W35-W38 N01-N05
      9 1579 1099 (S04W35 L=153)   469    130        1 (1561/1035-1598/1166)  66.8 W32-W36 S07-N00
     10  574 1117 (N13E26 L= 93)   369     52        1 ( 553/1084- 603/1142)  26.6 E27-E23 N11-N14
     11 1707 1068 (S08W44 L=163)   456     87        1 (1676/1027-1741/1117)  38.7 W41-W47 S09-S05
     12 1857 1012 (S14W58 L=176)  1648    288        5 (1817/ 891-1892/1098) -90.0 W53-W62 S20-S08
     13 1767  976 (S14W48 L=167)  1055    181        2 (1726/ 896-1807/1048)  41.2 W44-W52 S18-S09
     14  485  913 (N03E35 L= 84)   332    106        0 ( 431/ 900- 542/ 927) -14.0 E38-E30 N01-N03
     15 1193  848 (S12W07 L=125)   244     88        0 (1156/ 818-1220/ 890)  21.8 W04-W09 S13-S09
     16 1579  812 (S21W32 L=150)   258     45        0 (1562/ 783-1595/ 843)  76.0 W30-W33 S22-S18
     17  324  742 (S04E51 L= 67)   829    207        1 ( 274/ 655- 356/ 829) -90.0 E53-E48 S09-N01
     18  384  805 (S02E44 L= 74)   259     58        1 ( 361/ 772- 408/ 827) -71.6 E45-E42 S03-N00
     19  165  776 (S00E67 L= 51)  1026    102        1 ( 135/ 731- 207/ 813)  13.0 E73-E60 S02-N01
     20 1371  773 (S19W17 L=135)   322     65        0 (1331/ 753-1403/ 797)  11.3 W14-W19 S20-S18
     21  551  732 (S09E34 L= 84)   485    101        1 ( 526/ 678- 572/ 786)  71.6 E35-E31 S11-S05
     22  288  693 (S07E56 L= 62)  1223    152        4 ( 258/ 634- 327/ 775) -90.0 E60-E53 S10-S01
     23  481  711 (S09E39 L= 79)   374    112        0 ( 436/ 688- 503/ 758)  21.8 E42-E36 S10-S06
     24 1512  687 (S27W26 L=144)   457    103        1 (1457/ 672-1569/ 702)  -7.1 W22-W30 S28-S25
     25  391  404 (S26E63 L= 55)  1216    149        2 ( 346/ 354- 438/ 476)  13.5 E77-E52 S28-S22
     26 1508  350 (S53W29 L=147)   533     56        1 (1476/ 327-1531/ 376) -32.0 W25-W33 S55-S50
     27 1304  276 (S54W07 L=125)  1122    147        2 (1232/ 245-1384/ 314)   0.0 W00-W15 S56-S52
     28  894  253 (S46E30 L= 89)   344     70        0 ( 856/ 242- 937/ 263)  -8.1 E32-E25 S47-S44
  

    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