From 10a0c9000072c7f8d6d622c69028a641b49af8ff Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Tue, 14 Jan 2003 11:01:39 +0000
Subject: *** empty log message ***

---
 sandbox/testshape.pl | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/testshape.pl b/sandbox/testshape.pl
index 0d225cc..3daf779 100644
--- a/sandbox/testshape.pl
+++ b/sandbox/testshape.pl
@@ -77,6 +77,7 @@ $cv2 = $zinc->add('curve', $view, [],
 		  -linewidth => 2,
 		  -linecolor => 'white',
 		  -fillcolor => 'tan',
+		  -fillrule => 'positive',
 		  -relief => 'sunken',
 		  -closed => 1,
 		  -filled => 1);
@@ -85,15 +86,15 @@ $text = $zinc->add('text', $view,
 		   -text => 'Un Texte ICI°°°°°',
 		   -position => [200, 100],
 		   -color => '#008000');
-$zinc->contour($cv2, 'add', [[20, 20], [20, 100, 'c'], [120, 100], [120, 20]]);
-$zinc->contour($cv2, 'addhole', [40, 40, 80, 40, 80, 80, 40, 80]);
-$zinc->contour($cv2, 'add', [60, 50, 60, 60, 70, 60, 70, 50]);
-$zinc->contour($cv2, 'addhole', [90, 70, 150, 70, 150, 150, 90, 150]);
-$zinc->contour($cv2, 'add', [200, 200, 200, 220, 220, 220, 220, 200]);
-$zinc->contour($cv2, 'addhole', [100, 10, 180, 10, 180, 60, 100, 60]);
+$zinc->contour($cv2, 'add', 1, [[20, 20], [20, 100, 'c'], [120, 100], [120, 20]]);
+$zinc->contour($cv2, 'add', -1, [40, 40, 80, 40, 80, 80, 40, 80]);
+$zinc->contour($cv2, 'add', 1, [60, 50, 60, 60, 70, 60, 70, 50]);
+$zinc->contour($cv2, 'add', -1, [90, 70, 150, 70, 150, 150, 90, 150]);
+$zinc->contour($cv2, 'add', 1, [200, 200, 200, 220, 220, 220, 220, 200]);
+$zinc->contour($cv2, 'add', -1, [100, 10, 180, 10, 180, 60, 100, 60]);
 
-$zinc->contour($cv2, 'add', $arc2);
-$zinc->contour($cv2, 'add', $text);
+$zinc->contour($cv2, 'add', 1, $arc2);
+$zinc->contour($cv2, 'add', 1, $text);
 
 # $rect2 = $zinc->add('rectangle', $view, [40,81, 80,130],
 # 		    -visible => 1,
-- 
cgit v1.1