Please enter the commit message for your changes. Lines starting

[eos/base.git] / util / src / TclTk / blt2.5 / demos / scripts / graph5.tcl

diff --git a/util/src/TclTk/blt2.5/demos/scripts/graph5.tcl b/util/src/TclTk/blt2.5/demos/scripts/graph5.tcl
new file mode 100644 (file)
index 0000000..463615c
--- /dev/null
+++ b/util/src/TclTk/blt2.5/demos/scripts/graph5.tcl
@@ -0,0 +1,65 @@
+
+set configOptions {
+    Element.LineWidth          0
+    Element.Pixels             0.7c
+    Element.ScaleSymbols       true
+    Font                       { Courier 18 bold}
+    Height                     4i
+    Legend.ActiveRelief                raised
+    Legend.Font                        { Courier 14 } 
+    Legend.padY                        0
+    Title                      "Element Symbol Types"
+    Width                      5i
+} 
+set resName [string trimleft $graph .]
+foreach { option value } $configOptions {
+    option add *$resName.$option $value
+}
+
+vector create xValues
+xValues 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 vecName "y${i}"
+    vector create ${vecName}(10)
+    $vecName variable x
+    set x(:) [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.xbm @bitmaps/hobbes_mask.xbm"
+               "Bitmap"        yellow  black           y5
+}
+
+set count 0
+foreach { symbol label fill color yVec } $attributes {
+    $graph element create line${count} \
+       -label $label \
+       -symbol $symbol \
+       -color $color \
+       -fill $fill \
+       -x xValues \
+       -y $yVec 
+    incr count
+}
+$graph element configure line0 \
+    -dashes  { 2 4 2 } \
+    -linewidth 2
+
+Blt_ZoomStack $graph
+Blt_Crosshairs $graph
+Blt_ActiveLegend $graph
+Blt_ClosestPoint $graph
+Blt_PrintKey $graph
+