From 9621aa3d2ad54201c486d9ef5821d54862463f38 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 15 Mar 2002 13:24:44 +0000
Subject: *** empty log message ***

---
 sandbox/testrelief.pl | 72 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 72 insertions(+)
 create mode 100644 sandbox/testrelief.pl

(limited to 'sandbox')

diff --git a/sandbox/testrelief.pl b/sandbox/testrelief.pl
new file mode 100644
index 0000000..15dc0b2
--- /dev/null
+++ b/sandbox/testrelief.pl
@@ -0,0 +1,72 @@
+#!/usr/bin/perl -w
+
+use Tk;
+use Tk::Zinc;
+use Controls;
+
+$top = 1;
+$lw = 8;
+
+$mw = MainWindow->new();
+$zinc = $mw->Zinc(-backcolor => 'gray',
+		  -relief => 'sunken',
+		  -lightangle => 120,
+		  -render => 1);
+$zinc->pack(-expand => 1,
+	    -fill => 'both');
+$zinc->configure(-width => 1024,
+		 -height => 800);
+$zinc->scale($top, 1, -1);
+
+$view = $zinc->add('group', $top, -tags => 'controls');
+
+sub polypoints {
+    ($ox, $oy, $rad, $n, $startangle) = @_;
+
+    $step =  2 * 3.14159 / $n;
+    $startangle = $startangle*3.14159/180;
+    $coords = [];
+    for ($i = 0; $i < $n; $i++) {
+      $x = $ox + ($rad * cos($i * $step + $startangle));
+      $y = $oy + ($rad * sin($i * $step + $startangle));
+      push(@{$coords}, $x, $y);
+    }
+    push(@{$coords}, $coords->[0], $coords->[1]);
+    return $coords
+}
+
+$zinc->add('curve', $view, polypoints(200, -200, 100, 40, 0),
+	   -relief => 'raised',
+	   -linewidth => $lw,
+	   -smoothrelief => 1,
+	   -fillcolor => 'lightblue',
+	   -linecolor => 'lightblue',
+	   -filled => 1);
+
+$zinc->add('curve', $view, polypoints(450, -200, 100, 40, 0),
+	   -relief => 'raised',
+	   -linewidth => $lw,
+	   -smoothrelief => 1,
+	   -fillcolor => 'tan',
+	   -linecolor => 'tan',
+	   -filled => 1);
+
+$zinc->add('curve', $view, polypoints(700, -200, 100, 40, 0),
+	   -relief => 'sunken',
+	   -linewidth => $lw,
+	   -smoothrelief => 1,
+	   -fillcolor => 'tan',
+	   -linecolor => 'tan',
+	   -filled => 1);
+
+$zinc->add('curve', $view, polypoints(200, -450, 100, 4, -45),
+	   -relief => 'sunken',
+	   -linewidth => $lw,
+	   -fillcolor => 'tan',
+	   -linecolor => 'tan',
+	   -filled => 1);
+
+
+new Controls($zinc);
+MainLoop();
+
-- 
cgit v1.1