Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1200 1705 (N42W07 L=339)   500    117        0 (1133/1683-1256/1723) -11.3 W01-W11 N40-N42
      2 1491 1603 (N37W30 L=  3)  1770    257        3 (1381/1530-1580/1649) -10.6 W21-W37 N32-N40
      3  412 1541 (N24E51 L=282)   805    130        1 ( 375/1507- 463/1587) -18.4 E56-E44 N21-N26
      4  568 1547 (N25E37 L=296)   373     70        1 ( 539/1515- 597/1568)   0.0 E39-E34 N22-N26
      5 1162 1379 (N18W06 L=338)   592    220        2 (1061/1339-1271/1424)  -8.7 E01-W12 N15-N19
      6 1819 1275 (N19W57 L= 29)  2368    317        4 (1773/1124-1862/1402) -86.6 W52-W62 N09-N26
      7  947 1356 (N14E07 L=325)   599    195        0 ( 875/1303-1008/1389) -14.0 E11-E03 N11-N16
      8  717 1307 (N10E21 L=311)   578    159        1 ( 679/1265- 772/1381) -45.0 E24-E17 N07-N14
      9 1063 1061 (S03W02 L=335)   859    218        1 (1019/ 957-1124/1146)  68.2 W00-W05 S08-N03
     10 1384 1005 (S03W22 L=355)   248     65        0 (1366/ 973-1409/1036)  63.4 W20-W23 S04-N00
     11  642  877 (S16E23 L=310)   505    169        1 ( 578/ 848- 718/ 923) -16.7 E27-E17 S17-S13
     12 1897  840 (S06W69 L= 42)   524     60        1 (1872/ 809-1910/ 873) -45.0 W65-W72 S07-S03
     13  719  592 (S34E18 L=315)  2181    436        4 ( 556/ 494- 846/ 757)  36.9 E33-E08 S41-S22
     14 1367  725 (S20W25 L=357)   216    125        0 (1298/ 703-1416/ 746)  23.2 W20-W27 S21-S17
     15  363  610 (S35E50 L=283)   347     80        1 ( 334/ 586- 404/ 626)  18.4 E53-E44 S36-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