Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  628 1822 (N42E54 L= 92)  1297     91        4 ( 597/1780- 659/1858) -21.3 E65-E46 N38-N45
      2  847 1716 (N36E26 L=121)   275     32        1 ( 827/1691- 868/1737) -26.6 E27-E23 N33-N37
      3  991 1683 (N35E14 L=132)   418     87        1 ( 951/1650-1032/1702)  11.3 E16-E11 N32-N37
      4  389 1642 (N25E62 L= 84)   908     84        2 ( 364/1599- 416/1676) -21.0 E69-E56 N22-N27
      5  943 1375 (N13E10 L=136)   277     54        1 ( 913/1351- 979/1391)   0.0 E11-E07 N11-N14
      6 1819 1263 (N23W54 L=200)  2661    308        5 (1744/1134-1891/1383) -47.3 W46-W62 N15-N29
      7 1542 1306 (N19W29 L=175)   329     42        1 (1524/1274-1558/1338)  90.0 W27-W29 N17-N21
      8 1117 1241 (N08W02 L=148)   500    132        1 (1079/1201-1168/1294) -51.3 W00-W05 N05-N10
      9  167 1114 (S10E65 L= 81)  1063    141        2 ( 147/1043- 190/1174) -53.1 E68-E61 S13-S05
     10  509 1087 (S09E33 L=113)   226     69        0 ( 487/1064- 547/1116) -26.6 E34-E30 S09-S07
     11  439 1091 (S09E38 L=108)   268     25        0 ( 421/1067- 458/1113)  56.3 E39-E36 S10-S07
     12 1392 1054 (N01W21 L=168)   285    117        1 (1352/1030-1433/1103)  45.0 W19-W23 N00-N04
     13 1735  977 (N03W47 L=193)   528    170        1 (1693/ 899-1757/1041) -40.6 W42-W50 S01-N06
     14 1349  952 (S05W20 L=166)   451    218        1 (1245/ 906-1435/ 982)  -4.4 W13-W26 S06-S03
     15  255  906 (S22E54 L= 92)   478     93        2 ( 227/ 863- 280/ 943) -68.2 E56-E51 S24-S19
     16  334  894 (S22E46 L=100)   320     69        0 ( 320/ 855- 350/ 924)  53.1 E47-E44 S24-S20
     17 1367  774 (S15W25 L=171)   723    247        2 (1311/ 673-1432/ 868)  81.3 W23-W27 S21-S08
     18 1614  691 (S16W45 L=191)   259     76        0 (1589/ 674-1646/ 724) -21.8 W42-W48 S16-S13
     19 1406  631 (S23W32 L=178)   363     92        1 (1360/ 611-1452/ 655)   0.0 W27-W35 S23-S21
     20 1813  571 (S17W73 L=219)   951     84        0 (1768/ 549-1855/ 590)  14.9 W67-W82 S19-S15
     21  479  447 (S51E41 L=106)   314     68        0 ( 466/ 416- 496/ 483)  59.0 E43-E37 S53-S48
     22  986  441 (S43W08 L=154)   246     55        0 ( 960/ 412-1010/ 471) -31.0 W05-W10 S44-S41
     23 1615  436 (S30W59 L=205)   379     37        1 (1592/ 419-1640/ 455)   9.5 W56-W62 S31-S28
  

    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