From e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Mon, 24 Jan 2005 15:46:33 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'POSTSCRIPT'.

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

(limited to 'sandbox/testrelief.tcl')

diff --git a/sandbox/testrelief.tcl b/sandbox/testrelief.tcl
deleted file mode 100644
index e75cc71..0000000
--- a/sandbox/testrelief.tcl
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/usr/local/bin/wish -f
-
-load ../tkzinc3.2.so
-
-set top 1
-set lw 8
-
-set r [zinc .r -backcolor gray -relief sunken -lightangle 120 -render 0]
-pack .r -expand t -fill both
-.r configure -width 1024 -height 800
-.r scale $top 1 -1
-
-set view [.r add group $top -tags controls]
-
-proc polypoints { ox oy rad n startangle } {
-    set step [expr 2 * 3.14159 / $n]
-    set startangle [expr $startangle*3.14159/180]
-    set coords ""
-    for {set i 0} {$i < $n} {incr i} {
-	set x [expr $ox + ($rad * cos($i * $step + $startangle))];
-	set y [expr $oy + ($rad * sin($i * $step + $startangle))];
-	lappend coords $x $y;
-    }
-    lappend coords [lindex $coords 0] [lindex $coords 1]
-    return $coords
-}
-
-set poly [ .r add curve $view [polypoints 200 -200 100 40 0] \
-	-relief raised -linewidth $lw -smoothrelief 1 \
-	-fillcolor lightblue -linecolor lightblue -filled t]
-
-set poly [ .r add curve $view [polypoints 450 -200 100 40 0] \
-	-relief raised -linewidth $lw \
-	-fillcolor tan -linecolor tan -filled t]
-
-set poly [ .r add curve $view [polypoints 700 -200 100 40 0] \
-	-relief sunken -linewidth $lw \
-	-fillcolor tan -linecolor tan -filled t]
-
-set poly [ .r add curve $view [polypoints 200 -450 100 4 -45] \
-	-relief sunken -linewidth $lw \
-	-fillcolor tan -linecolor tan -filled t]
-
-
-source "controls.tcl"
-- 
cgit v1.1