diff options
author | cvs2svn | 2005-01-24 15:46:33 +0000 |
---|---|---|
committer | cvs2svn | 2005-01-24 15:46:33 +0000 |
commit | e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf (patch) | |
tree | 7061a2d781348fa7d5965b7d7dd5d7ef6b27a7b0 /sandbox/conical.tcl | |
parent | e1ed2c6d78bb616e24166c13126adba1b95ea4ea (diff) | |
download | tkzinc-POSTSCRIPT.zip tkzinc-POSTSCRIPT.tar.gz tkzinc-POSTSCRIPT.tar.bz2 tkzinc-POSTSCRIPT.tar.xz |
This commit was manufactured by cvs2svn to create branch 'POSTSCRIPT'.POSTSCRIPT
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 |