#!../../wish -f

set env(TCL_EXTMAP) "./extensions.tcl"
extension add blt

set graph .g

blt_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 -bg red -linewidth 1 \
	-x $x -y $y 
$graph element create line2 -symbol square -bg yellow -linewidth 1 \
	-x $x -y $y2 -mapy y2
 
pack .g

source features.tcl
SetZoom .g
SetActiveLegend .g
SetClosestPoint .g