Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1625 1485 (N21W54 L=135)   448     66        0 (1602/1451-1650/1514)  23.2 W51-W58 N18-N22
      2  191 1166 (N27E65 L= 16)   972    135        5 ( 162/1117- 235/1223) -41.2 E71-E58 N23-N30
      3 1253 1191 (N12W17 L= 98)   203     89        0 (1215/1178-1288/1205) -26.6 W14-W19 N10-N13
      4 1804 1142 (S03W57 L=138)   527    143        2 (1755/1089-1849/1197) -54.5 W52-W61 S07-N00
      5 1749  919 (S15W47 L=128)   431     50        3 (1726/ 889-1770/ 946)  26.6 W44-W49 S16-S12
      6 1887  904 (S20W65 L=146)   684     57        0 (1873/ 872-1908/ 931)  18.4 W62-W68 S22-S18
      7 1405  888 (S09W21 L=102)   377     65        3 (1382/ 857-1426/ 916) -63.4 W18-W22 S10-S06
      8  420  613 (S09E49 L= 32)   749    191        4 ( 366/ 538- 468/ 691) -90.0 E51-E45 S14-S03
      9  848  581 (S17E19 L= 62)   380    139        1 ( 827/ 516- 871/ 641)  82.9 E20-E17 S21-S13
     10 1559  571 (S33W29 L=110)   986    157        4 (1491/ 538-1621/ 615)  -5.2 W23-W34 S35-S30
     11  338  549 (S13E61 L= 20)  1367    185        7 ( 277/ 482- 393/ 609) -48.8 E67-E55 S17-S08
     12  594  485 (S20E40 L= 41)   613    170        3 ( 567/ 404- 624/ 563)  47.7 E46-E35 S25-S14
     13  302  502 (S16E70 L= 11)   977    120        1 ( 277/ 461- 342/ 548) -80.5 E73-E66 S19-S12
     14 1137  494 (S28E03 L= 78)   310     81        0 (1111/ 457-1163/ 532)  38.7 E05-W00 S30-S25
  

    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