#!../bltwish -f

source bltDemo.tcl

set graph .g

graph $graph 
$graph xaxis configure -title "Years"
$graph yaxis configure -title "Random values"
$graph y2axis configure -mapped true -title "Random values"

set x { 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 }
set y { 
	0.693147 0.405465 0.287682 0.223144 0.182322 0.154151 
	0.133531 0.117783 0.105361 0.0953102 0.0870114 
}

set y2 { 
19.8669 38.9418 56.4642 71.7356 84.1471 93.2039
98.545 99.9574 97.3848 90.9297 80.8496
}

$graph element create line1 -symbol circle -fill red -linewidth 1 \
	-x $x -y $y 
$graph element create line2 -symbol square -fill yellow -linewidth 1 \
	-x $x -y $y2 -mapy y2
 
table . .g -fill both

Blt_ZoomStack .g
Blt_ActiveLegend .g
Blt_ClosestPoint .g
