1 files changed, 78 insertions, 0 deletions
diff --git a/blt/demos/scripts/graph3.tcl b/blt/demos/scripts/graph3.tcl
new file mode 100644
index 00000000000..d1fa2488d83
--- /dev/null
+++ b/blt/demos/scripts/graph3.tcl
@@ -0,0 +1,78 @@
+proc FormatAxisLabel {graph x} {
+     return "[expr int($x)]\260"
+}
+
+set configOptions [subst {
+    Axis.Hide			no
+    Axis.Limits			"%g"
+    Axis.TickFont		{ helvetica 12 bold }
+    Axis.TitleFont		{ helvetica 12 bold }
+    BorderWidth			1
+    Element.Pixels		1.75m
+    Element.ScaleSymbols	yes
+    Font			{ helvetica 23 bold }
+    Legend.ActiveBorderWidth	2
+    Legend.ActiveRelief		raised
+    Legend.Anchor		ne
+    Legend.BorderWidth		0
+    Legend.Font			{ Helvetica 24 }
+    Legend.Position		plotarea
+    Relief			sunken
+    Title			"Sine and Cosine Functions" 
+    x.Command			[namespace current]::FormatAxisLabel
+    x.StepSize			90 
+    x.Subdivisions		0 
+    x.Title			"X" 
+    y.Color			purple2
+    y.Loose			no
+    y.Title			"Y" 
+    y.rotate			90 
+    y2.color			magenta3
+}]
+
+set resName [string trimleft $graph .]
+foreach { option value } $configOptions {
+    option add *$resName.$option $value
+}
+
+$graph configure -leftvar changed
+
+set tcl_precision 15
+set pi1_2 [expr 3.14159265358979323846/180.0]
+
+vector create x sinX cosX -variable ""
+x seq -360 360 5
+sinX expr { sin(x*$pi1_2) }
+cosX expr { cos(x*$pi1_2) }
+
+$graph element create line1 \
+    -label "sin(x)" \
+    -fill orange \
+    -color black \
+    -x x \
+    -y sinX  
+$graph element create line2 \
+    -label "cos(x)" \
+    -color yellow4 \
+    -fill yellow \
+    -x x \
+    -y cosX 
+
+Blt_ZoomStack $graph
+Blt_Crosshairs $graph
+Blt_ActiveLegend $graph
+Blt_ClosestPoint $graph
+#Blt_PrintKey $graph
+
+$graph marker create bitmap \
+    -name bg \
+    -coords "-360 -1 360 1" \
+    -bitmap @bitmaps/greenback.xbm \
+    -bg darkseagreen1 \
+    -fg darkseagreen3 \
+    -under yes \
+    -rotate 45
+$graph postscript configure \
+    -maxpect yes \
+    -landscape yes
+