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/conical.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/conical.tcl')
| -rw-r--r-- | sandbox/conical.tcl | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/sandbox/conical.tcl b/sandbox/conical.tcl deleted file mode 100644 index 63dd7c0..0000000 --- a/sandbox/conical.tcl +++ /dev/null @@ -1,18 +0,0 @@ - -lappend auto_path .. -package require Tkzinc - -set defaultfont -b&h-lucida-bold-r-normal-*-*-140-*-*-p-*-iso10646-1 -zinc .zinc -width 700 -height 500 -render 1 -pack .zinc - - -.zinc gname {=radial 0 0 |white|gray30} test1 -.zinc gname {=conical 70 |white|gray30 50 50|white} test2 - -set grp [.zinc add group 1] -#.zinc add rectangle $grp {0 0 70 50} -filled 1 -fillcolor white -.zinc add rectangle $grp {60 60 360 360} -filled 1 -linewidth 1 \ - -fillcolor test2 -tags rect - -.zinc add rectangle $grp {140 140 280 280} -filled 1 -fillcolor gray |