*** empty log message ***

1 files changed, 45 insertions, 0 deletions

diff --git a/sandbox/testrelief.tcl b/sandbox/testrelief.tcl
new file mode 100644
index 0000000..be28d8f
--- /dev/null
+++ b/sandbox/testrelief.tcl
@@ -0,0 +1,45 @@
+#!/usr/bin/wish -f
+
+load tkzinc3.1.so
+
+set top 1
+set lw 8
+
+set r [zinc .r -backcolor gray -relief sunken -lightangle 155]
+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 \
+	-fillcolor lightblue -filled t]
+
+set poly [ .r add curve $view [polypoints 450 -200 100 40 0] \
+	-relief raised -linewidth $lw \
+	-fillcolor tan -filled t]
+
+set poly [ .r add curve $view [polypoints 700 -200 100 40 0] \
+	-relief sunken -linewidth $lw \
+	-fillcolor tan -filled t]
+
+set poly [ .r add curve $view [polypoints 200 -450 100 4 -45] \
+	-relief sunken -linewidth $lw \
+	-fillcolor tan -filled t]
+
+
+source "controls.tcl"