diff options
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 |