diff options
author | joye <joye> | 2014-05-20 19:08:57 (GMT) |
---|---|---|
committer | joye <joye> | 2014-05-20 19:08:57 (GMT) |
commit | 558d13bd64d9b121b2d8aa38b19527eac75302f8 (patch) | |
tree | 25f2c4df41944e73f0c8166e26a0d0b20277e547 /tests | |
parent | b8968fb771ec905f3dd6d9de54fe96478b9c46b3 (diff) | |
download | blt-558d13bd64d9b121b2d8aa38b19527eac75302f8.zip blt-558d13bd64d9b121b2d8aa38b19527eac75302f8.tar.gz blt-558d13bd64d9b121b2d8aa38b19527eac75302f8.tar.bz2 |
*** empty log message ***
Diffstat (limited to 'tests')
-rw-r--r-- | tests/all.tcl | 4 | ||||
-rw-r--r-- | tests/barpen.tcl | 44 | ||||
-rw-r--r-- | tests/lineelement.tcl | 4 | ||||
-rw-r--r-- | tests/linepen.tcl | 25 |
4 files changed, 66 insertions, 11 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index 4a11aae..12089d9 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -1,9 +1,11 @@ source linegraph.tcl source lineelement.tcl +source linepen.tcl source barbar.tcl source barelement.tcl -source xaxis.tcl +source barpen.tcl source axis.tcl +source xaxis.tcl source legend.tcl source crosshairs.tcl source marker.tcl diff --git a/tests/barpen.tcl b/tests/barpen.tcl new file mode 100644 index 0000000..6189b2a --- /dev/null +++ b/tests/barpen.tcl @@ -0,0 +1,44 @@ +source base.tcl + +set w .bar +set graph [bltBarGraph $w] + +$graph pen create foo -color red -showvalues y +$graph element configure data2 -pen foo + +echo "Testing Bar Pen..." + +bltTest3 $graph pen foo -background yellow +bltTest3 $graph pen foo -bd 4 +bltTest3 $graph pen foo -bg yellow +bltTest3 $graph pen foo -borderwidth 4 +bltTest3 $graph pen foo -color yellow +bltTest3 $graph pen foo -errorbarcolor green +bltTest3 $graph pen foo -errorbarwidth 2 +bltTest3 $graph pen foo -errorbarcap 10 +bltTest3 $graph pen foo -fg yellow +bltTest3 $graph pen foo -fill cyan +bltTest3 $graph pen foo -foreground green +bltTest3 $graph pen foo -outline red +bltTest3 $graph pen foo -relief flat +bltTest3 $graph pen foo -showerrorbars no +bltTest3 $graph pen foo -showvalues none +bltTest3 $graph pen foo -showvalues x +bltTest3 $graph pen foo -showvalues both +bltTest3 $graph pen foo -valueanchor n +bltTest3 $graph pen foo -valuecolor cyan +bltTest3 $graph pen foo -valuefont "times 18 bold italic" +bltTest3 $graph pen foo -valueformat "%e" +bltTest3 $graph pen foo -valuerotate 45 + +bltCmd $graph pen cget foo -color +bltCmd $graph pen configure foo +bltCmd $graph pen configure foo -color +bltCmd $graph pen create bar +bltCmd $graph pen delete bar +bltCmd $graph pen names +bltCmd $graph pen type foo + +echo "done" +bltPlotDestroy $w + diff --git a/tests/lineelement.tcl b/tests/lineelement.tcl index d0ffcf5..4c2aefb 100644 --- a/tests/lineelement.tcl +++ b/tests/lineelement.tcl @@ -27,8 +27,8 @@ bltTest3 $graph element data2 -linewidth 3 bltTest3 $graph element data2 -mapx x2 bltTest3 $graph element data2 -mapy y2 bltTest3 $graph element data1 -maxsymbols 4 -bltTest3 $graph element data1 -offdash red -bltTest3 $graph element data1 -outline red +bltTest3 $graph element data1 -offdash black +bltTest3 $graph element data1 -outline green bltTest3 $graph element data1 -outlinewidth 5 bltTest3 $graph element data2 -pen foo bltTest3 $graph element data1 -pixels 20 diff --git a/tests/linepen.tcl b/tests/linepen.tcl index 38b29fc..e3f5634 100644 --- a/tests/linepen.tcl +++ b/tests/linepen.tcl @@ -3,23 +3,32 @@ source base.tcl set w .line set graph [bltLineGraph $w] -$graph pen create foo -showvalues y -symbol circle -dashes "8 4" +$graph pen create foo -color red -showvalues y -symbol circle -dashes {4 4} $graph element configure data2 -pen foo echo "Testing Line Pen..." -bltTest3 $graph pen foo -color red -bltTest3 $graph pen foo -dashes "5 8 3" -bltTest3 $graph pen foo -errorbarcolor yellow +bltTest3 $graph pen foo -color yellow +bltTest3 $graph pen foo -dashes {8 3} +bltTest3 $graph pen foo -errorbarcolor green bltTest3 $graph pen foo -errorbarwidth 2 -bltTest3 $graph pen foo -fill green -bltTest3 $graph pen foo -linewidth 2 -bltTest3 $graph pen foo -offdash yellow +bltTest3 $graph pen foo -errorbarcap 10 +bltTest3 $graph pen foo -fill cyan +bltTest3 $graph pen foo -linewidth 3 +bltTest3 $graph pen foo -offdash black bltTest3 $graph pen foo -outline green -bltTest3 $graph pen foo -outlinewidth 2 +bltTest3 $graph pen foo -outlinewidth 5 bltTest3 $graph pen foo -pixels 20 bltTest3 $graph pen foo -showvalues none +bltTest3 $graph pen foo -symbol arrow +bltTest3 $graph pen foo -symbol cross +bltTest3 $graph pen foo -symbol diamond +bltTest3 $graph pen foo -symbol none +bltTest3 $graph pen foo -symbol plus +bltTest3 $graph pen foo -symbol scross +bltTest3 $graph pen foo -symbol splus bltTest3 $graph pen foo -symbol square +bltTest3 $graph pen foo -symbol triangle bltTest3 $graph pen foo -valueanchor n bltTest3 $graph pen foo -valuecolor cyan bltTest3 $graph pen foo -valuefont "times 18 bold italic" |