Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  423 1666 (N38E67 L=171)  1192     91        2 ( 409/1617- 442/1717) -18.4 E81-E60 N34-N41
      2  704 1524 (N31E28 L=210)  1594    359        2 ( 623/1395- 803/1618) -33.0 E38-E18 N23-N37
      3 1693 1485 (N37W54 L=293)   873    113        0 (1650/1436-1738/1529) -50.2 W50-W58 N33-N39
      4 1569 1124 (N12W35 L=273)   892    262        3 (1439/1056-1651/1191)  -6.7 W25-W42 N07-N15
      5 1648  917 (S00W43 L=281)  1071    179        1 (1588/ 889-1730/ 961)  15.3 W38-W49 S02-N02
      6 1747  856 (S04W53 L=291)   555     42        1 (1726/ 830-1775/ 880)  26.6 W50-W55 S05-S02
      7 1677  759 (S10W48 L=286)   347     46        0 (1653/ 739-1702/ 780) -21.8 W45-W50 S11-S08
      8 1511  733 (S13W35 L=273)   782    213        1 (1451/ 684-1566/ 770)  20.6 W30-W38 S15-S10
      9 1389  680 (S17W27 L=265)   514    107        2 (1361/ 638-1426/ 712) -45.0 W24-W29 S19-S14
     10 1602  672 (S16W44 L=282)   441    104        0 (1559/ 648-1638/ 697)  -7.1 W39-W47 S17-S14
     11  782  629 (S25E13 L=225)   442     89        1 ( 737/ 615- 832/ 645)   0.0 E16-E09 S26-S23
     12 1562  524 (S26W45 L=283)   461    116        0 (1516/ 476-1592/ 570)  74.1 W43-W47 S29-S22
     13  726  473 (S37E18 L=220)   256     40        1 ( 699/ 457- 750/ 492)  21.8 E20-E15 S38-S35
     14  527  317 (S54E48 L=190)   526     44        1 ( 512/ 294- 548/ 345)  26.6 E55-E43 S56-S50
  

    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