Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1500 1649 (N28W55 L=165)  1590    255        2 (1410/1564-1595/1701)   0.0 W42-W68 N26-N30
      2 1611 1488 (N16W52 L=163)   325     72        0 (1578/1463-1641/1521)   0.0 W48-W56 N15-N17
      3 1217 1429 (N25W23 L=133)   616    165        0 (1171/1372-1288/1463)   0.0 W18-W27 N22-N26
      4  954 1281 (N23W02 L=113)   610    222        1 ( 918/1189-1018/1351)  41.2 E01-W08 N17-N25
      5 1208 1257 (N15W16 L=127)   232    143        0 (1152/1200-1240/1300) -76.0 W14-W17 N11-N19
      6 1346 1179 (N08W22 L=132)   226     98        1 (1311/1140-1379/1225)  26.6 W19-W25 N06-N09
      7 1872 1116 (S12W61 L=172)  3241    254       10 (1808/1022-1930/1206)  45.0 W55-W74 S17-S06
      8 1770 1001 (S15W47 L=158)   809    140        2 (1752/ 941-1799/1074) -90.0 W45-W49 S18-S09
      9 1907 1026 (S18W64 L=175)   801    123        2 (1862/ 983-1937/1073)  15.3 W57-W71 S19-S16
     10 1741  913 (S19W43 L=153)   296      2        0 (1723/ 895-1759/ 932) -56.3 W41-W44 S20-S17
     11 1698  858 (S21W39 L=149)   483     70        2 (1673/ 827-1733/ 891) -38.7 W36-W41 S22-S18
     12 1058  810 (S06E03 L=107)   488    235        0 ( 962/ 758-1168/ 866) -51.3 E07-W01 S10-N00
     13 1882  785 (S33W61 L=171)   631     76        1 (1843/ 763-1918/ 803)  -4.1 W54-W68 S34-S31
     14 1645  671 (S31W32 L=142)  1213    381        1 (1519/ 586-1744/ 774)  13.4 W20-W42 S33-S27
     15  851  653 (S10E19 L= 91)   225    114        0 ( 808/ 631- 902/ 691) -51.3 E20-E16 S11-S06
     16 1268  549 (S27W02 L=113)   554    295        0 (1199/ 481-1346/ 628)  26.6 E03-W09 S30-S23
     17 1590  538 (S39W26 L=136)   644    104        0 (1546/ 497-1633/ 585)  20.6 W22-W30 S40-S36
     18 1717  499 (S48W42 L=152)   717     80        1 (1675/ 476-1755/ 527)  -9.5 W36-W48 S50-S45
     19 1141  481 (S28E07 L=103)   247     66        1 (1124/ 452-1167/ 520) -90.0 E08-E06 S30-S24
     20  346  444 (S14E68 L= 42)  1733     97        4 ( 307/ 397- 381/ 484)  45.0 E76-E61 S17-S10
     21  548  414 (S18E49 L= 61)   311     70        0 ( 537/ 375- 559/ 452)  50.2 E51-E46 S21-S15
  

    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