diff options
author | joye <joye> | 2014-03-26 15:38:50 (GMT) |
---|---|---|
committer | joye <joye> | 2014-03-26 15:38:50 (GMT) |
commit | e4d79d2b63647598a8ec1100b5645ff6d6f1b363 (patch) | |
tree | aff7f3fdd245b8f14ecfbf9cb7d6c4b7ce787d77 /tests/base.tcl | |
parent | ca9c2f6db37b05d03b7598f91132dd8156458f83 (diff) | |
download | blt-e4d79d2b63647598a8ec1100b5645ff6d6f1b363.zip blt-e4d79d2b63647598a8ec1100b5645ff6d6f1b363.tar.gz blt-e4d79d2b63647598a8ec1100b5645ff6d6f1b363.tar.bz2 |
*** empty log message ***
Diffstat (limited to 'tests/base.tcl')
-rw-r--r-- | tests/base.tcl | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/tests/base.tcl b/tests/base.tcl index 179850d..db67551 100644 --- a/tests/base.tcl +++ b/tests/base.tcl @@ -64,14 +64,21 @@ proc bltCmd {graph args} { } proc bltElements {graph} { - $graph element create data1 \ - -xdata { 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0 } \ - -ydata { 13 25 36 46 55 64 70 75 80 90} + blt::vector create xv(10) + blt::vector create yv(10) + xv set { 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0 } + yv set { 5 10 10 15 15 10 20 25 30 35 } + + $graph element create data1 -data {0.2 13 0.4 25 0.6 36 0.8 46 1.0 55 1.2 64 1.4 70 1.6 75 1.8 80 2.0 90} + $graph element create data2 \ -xdata { 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0 } \ -ydata { 26 50 72 92 110 128 140 150 160 180} \ -yerror {10 10 10 10 10 10 10 10 10 10 10} \ -color red + + $graph element create data3 -xdata xv -ydata yv -color green + $graph legend configure -title "Legend" } |