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