From 960cdf29197bc3f5922110cf26627aa9709ac79b Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Fri, 10 Jun 2005 10:29:11 +0000
Subject: This commit was manufactured by cvs2svn to create branch 'bogue40'.

---
 sandbox/conical.tcl | 18 ------------------
 1 file changed, 18 deletions(-)
 delete mode 100644 sandbox/conical.tcl

(limited to 'sandbox/conical.tcl')

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
-- 
cgit v1.1