#!/users/mgd/packages/swarm/blt2.3/bin/bltwish
#!../bltwish

source bltDemo.tcl

option add *Element.ScaleSymbols	true
option add *Element.pixels		1c
option add *Element.lineWidth		0
option add *Legend.ActiveRelief		raised
option add *Legend.padY			0
option add *Legend.font			-*-times-medium-r-*-*-24-*-*
option add *Graph.font			-*-times-medium-r-*-*-24-*-*
option add *Graph.title			"Element Symbol Types"
option add *Graph.width			8i
option add *Graph.height		6i

set graph .graph

graph $graph

vector x 
x set { 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 }

for { set i 0 } { $i < 10 } { incr i } {
    set name y$i
    vector $name\(10)
    set $name\(:) [expr $i*50.0+10.0]
}

set attributes {
    none	"None"		red	red4		y0
    circle	"Circle"	yellow	yellow4		y2
    cross	"Cross"		cyan	cyan4		y6
    diamond	"Diamond"	green	green4		y3
    plus	"Plus"		magenta	magenta4	y9
    splus	"Splus"		Purple	purple4		y7
    scross	"Scross"	red	red4		y8
    square	"Square"	orange	orange4		y1
    triangle	"Triangle"	blue	blue4		y4
    "@bitmaps/hobbes.bm @bitmaps/hobbes.bmm"
		"Bitmap"	yellow	black		y5
}

set count 0
foreach {symbol label fill color ydata} $attributes {
    $graph element create line${count} \
	-label $label -symbol $symbol -color $color -fill $fill -x x -y $ydata 
    incr count
}
$graph element configure line0 -dashes  { 2 4 2 } -linewidth 2

table . \
  $graph 0,0 -fill both

Blt_ZoomStack $graph
Blt_Crosshairs $graph
Blt_ActiveLegend $graph
Blt_ClosestPoint $graph
Blt_PrintKey $graph
