Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1416 1658 (N33W49 L=324)  1601    297        1 (1316/1599-1561/1702) -47.3 W42-W57 N24-N38
      2 1256 1675 (N39W39 L=313)   369     55        0 (1219/1658-1279/1698)  -9.5 W35-W41 N37-N40
      3 1728 1501 (N14W66 L=340)   735     88        2 (1702/1466-1749/1541)  53.1 W60-W70 N11-N15
      4  872 1360 (N30E01 L=273)   465     90        0 ( 825/1334- 922/1377)  -9.5 E04-W02 N28-N31
      5 1589 1321 (N09W43 L=317)   742    147        1 (1528/1286-1636/1351) -26.6 W39-W47 N06-N12
      6 1761 1277 (N01W56 L=330)   450     53        1 (1735/1253-1793/1301)  -8.1 W52-W59 N00-N03
      7 1809  945 (S19W51 L=326)   430     51        1 (1786/ 915-1823/ 980) -90.0 W48-W53 S20-S16
      8 1765  715 (S32W45 L=320)   349     77        0 (1740/ 682-1787/ 754)  31.0 W42-W48 S33-S29
      9  512  677 (S02E40 L=234)   425     83        1 ( 469/ 650- 552/ 697) -31.0 E42-E37 S04-N00
     10  405  560 (S08E53 L=221)   396    108        2 ( 365/ 538- 444/ 597) -45.0 E55-E50 S09-S04
     11  715  465 (S19E34 L=241)   333    112        0 ( 676/ 424- 765/ 497)  18.4 E38-E29 S21-S17
     12  785  408 (S25E32 L=242)   319     66        0 ( 769/ 380- 806/ 436)  36.9 E33-E29 S26-S22
     13  851  260 (S37E37 L=238)  1117    174        0 ( 790/ 216- 916/ 327) -90.0 E39-E34 S42-S30
  

    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