Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  856 1857 (N64W23 L=360)  1870    233        3 ( 764/1779- 945/1927)   7.3 W07-W46 N58-N67
      2 1152 1671 (N38W29 L=  6)  2232    526        1 ( 939/1571-1360/1726) -35.3 W13-W39 N26-N45
      3 1561 1596 (N22W53 L= 30)   376     60        1 (1534/1574-1595/1615) -45.0 W51-W55 N20-N23
      4  711 1569 (N44E06 L=330)   306     53        1 ( 690/1544- 729/1595)  56.3 E08-E04 N42-N45
      5 1651 1437 (N11W51 L= 28)   647    107        1 (1620/1389-1684/1490) -90.0 W49-W52 N07-N14
      6 1494 1323 (N09W35 L= 12)   244     73        0 (1457/1302-1529/1344) -53.1 W33-W36 N06-N10
      7 1391 1202 (N05W25 L=  2)   515     95        0 (1349/1154-1427/1244) -80.5 W23-W26 N01-N07
      8  191 1066 (N24E59 L=278)  2071    240        7 ( 148/ 995- 240/1135) -56.3 E64-E52 N19-N28
      9 1750 1073 (S11W47 L= 23)   456     76        0 (1721/1034-1776/1109) -71.6 W44-W48 S14-S08
     10 1399  931 (S10W19 L=356)  1269    314        0 (1340/ 785-1435/1077)  51.8 W12-W23 S17-S02
     11  260 1011 (N20E51 L=285)   716    103        1 ( 243/ 954- 293/1069) -90.0 E53-E47 N16-N23
     12  600  982 (N11E26 L=311)   993    237        2 ( 504/ 924- 698/1066) -47.7 E30-E20 N05-N17
     13  323 1006 (N18E46 L=291)   353     64        0 ( 300/ 975- 342/1035)  36.9 E47-E43 N16-N19
     14  227  824 (N10E59 L=278)   573     62        1 ( 204/ 787- 253/ 857)  45.0 E61-E55 N07-N11
     15  203  734 (N05E65 L=272)  2856    256        8 ( 136/ 649- 288/ 794)  18.4 E75-E53 N00-N08
     16 1830  644 (S41W55 L= 32)  1112    124        0 (1777/ 620-1889/ 667) -15.6 W46-W71 S45-S37
     17 1678  552 (S42W36 L= 13)  1233    258        0 (1581/ 469-1769/ 631)  16.7 W26-W46 S45-S39
     18 1052  501 (S27E12 L=325)   354     61        0 (1023/ 468-1078/ 533)  31.0 E14-E09 S28-S24
     19  285  501 (S10E69 L=268)   603     42        1 ( 260/ 481- 312/ 524) -18.4 E72-E66 S11-S08
     20  641  215 (S36E59 L=277)   753     75        2 ( 607/ 187- 671/ 253)  14.0 E68-E52 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