diff options
author | lecoanet | 2003-10-02 13:08:50 +0000 |
---|---|---|
committer | lecoanet | 2003-10-02 13:08:50 +0000 |
commit | a3f8c8cf22a10344864fa34c37ad056f22a97400 (patch) | |
tree | 78b536c353e79318668a3fd48ce60efb3f41d790 /sandbox/conical.tcl | |
parent | c0555ae91295a2e1a42440bd4e3846246583d76e (diff) | |
download | tkzinc-a3f8c8cf22a10344864fa34c37ad056f22a97400.zip tkzinc-a3f8c8cf22a10344864fa34c37ad056f22a97400.tar.gz tkzinc-a3f8c8cf22a10344864fa34c37ad056f22a97400.tar.bz2 tkzinc-a3f8c8cf22a10344864fa34c37ad056f22a97400.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/conical.tcl')
-rw-r--r-- | sandbox/conical.tcl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/sandbox/conical.tcl b/sandbox/conical.tcl new file mode 100644 index 0000000..63dd7c0 --- /dev/null +++ b/sandbox/conical.tcl @@ -0,0 +1,18 @@ + +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 |