Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1224 1775 (N51W41 L=174)  1345    192        2 (1144/1735-1309/1806)  -2.6 W30-W52 N48-N52
      2 1433 1651 (N36W48 L=180)   457     62        2 (1408/1625-1458/1673) -90.0 W44-W50 N34-N38
      3 1679 1448 (N18W56 L=189)   536    128        1 (1625/1413-1734/1466) -29.1 W51-W60 N14-N20
      4 1753 1351 (N11W59 L=191)  1322    194        2 (1662/1295-1807/1414)   6.0 W48-W67 N08-N13
      5 1507 1243 (N10W35 L=167)   702    221        0 (1417/1206-1585/1282)  -8.7 W28-W41 N08-N13
      6  447 1079 (N18E37 L= 95)   524    167        1 ( 426/1013- 485/1165) -73.3 E38-E34 N13-N23
      7  921 1099 (N13E05 L=128)   357     87        2 ( 895/1051- 940/1144)  68.2 E06-E03 N10-N15
      8 1863 1047 (S09W62 L=194)  1702    163        8 (1825/ 968-1893/1108)  69.4 W56-W65 S14-S05
      9 1921 1048 (S11W71 L=204)  1355    102        6 (1900/ 996-1943/1099)  50.2 W66-W77 S14-S08
     10 1526 1076 (N01W32 L=164)   410    139        1 (1457/1062-1589/1087)  -6.3 W27-W36 N00-N01
     11 1663  889 (S14W39 L=172)  1566    422        8 (1553/ 741-1729/1049)  43.2 W29-W47 S20-S05
     12 1571  909 (S10W32 L=165)   790    136        4 (1516/ 872-1621/ 949)   0.0 W28-W36 S13-S08
     13  940  709 (S11E10 L=122)   582    137        1 ( 915/ 656- 983/ 773)  45.0 E12-E06 S14-S07
     14  496  688 (S06E40 L= 93)   816    165        2 ( 429/ 641- 539/ 740) -45.0 E43-E37 S09-S02
     15  869  685 (S11E15 L=117)   260     94        1 ( 842/ 651- 910/ 716) -53.1 E16-E12 S13-S09
     16 1756  617 (S35W51 L=183)  2417    171        5 (1687/ 573-1810/ 684)  18.4 W42-W59 S37-S30
     17  657  592 (S14E31 L=102)   521    131        1 ( 628/ 542- 687/ 631)  63.4 E34-E28 S17-S11
     18  740  474 (S23E29 L=103)   423     92        1 ( 721/ 431- 761/ 516)  45.0 E32-E26 S26-S20
     19  488  388 (S27E55 L= 78)  1120    116        2 ( 440/ 346- 530/ 438) -90.0 E58-E50 S29-S22
     20  880  388 (S32E23 L=110)   727    100        0 ( 832/ 362- 937/ 417)  12.5 E26-E17 S33-S30
     21 1228  263 (S51E00 L=132)   698    114        1 (1188/ 231-1276/ 301)  24.0 E05-W04 S53-S47
  

    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