diff options
| author | cvs2svn | 2005-06-10 10:29:11 +0000 |
|---|---|---|
| committer | cvs2svn | 2005-06-10 10:29:11 +0000 |
| commit | 960cdf29197bc3f5922110cf26627aa9709ac79b (patch) | |
| tree | 7d6e4a472376b203d21826c2230b4a8c6a9024bd /sandbox/testshape.tcl | |
| parent | 3fc9c4bc1d6f70db41ad418992bf3d461059d3c0 (diff) | |
| download | tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.zip tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.gz tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.bz2 tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.xz | |
This commit was manufactured by cvs2svn to create branch 'bogue40'.
Diffstat (limited to 'sandbox/testshape.tcl')
| -rw-r--r-- | sandbox/testshape.tcl | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/sandbox/testshape.tcl b/sandbox/testshape.tcl deleted file mode 100644 index 2ed5327..0000000 --- a/sandbox/testshape.tcl +++ /dev/null @@ -1,18 +0,0 @@ -#!/usr/local/bin/wish -f - -load ../tkzinc3.2.so - -set top 1 - -set r [zinc .r -render 0 -borderwidth 0 -fullreshape 0 -relief sunken] -pack $r -expand t -fill both -$r configure -width 500 -height 500 - -set arc [.r add arc $top "50 50 200 150" -visible 1 -closed 0 -filled 0 -fillcolor white -extent 200 -pieslice 0] - -set cv [.r add curve $top "50 50 100 150 270 70 220 0 200 20 180 -100 140 40 70 -100" \ - -visible 0] - -.r rotate $arc [expr 3.14/10] 125 100 - -.r itemconfigure $top -clip $cv |