From c1424742e67fcdb099f9be7c514bb9d6cac3de37 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 14 Mar 2001 15:04:34 +0000
Subject: *** empty log message ***

---
 sandbox/contours.tcl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'sandbox/contours.tcl')

diff --git a/sandbox/contours.tcl b/sandbox/contours.tcl
index 02a6438..cbddcb8 100644
--- a/sandbox/contours.tcl
+++ b/sandbox/contours.tcl
@@ -1,4 +1,4 @@
-#!/usr/bin/wish -f
+#!/usr/bin/wish8.0 -f
 
 load tkzinc3.1.so
 package require Img
@@ -15,7 +15,7 @@ set view [.r add group $top -tags controls]
 #set poly [.r add curve $view "50 -150 300 -150 300 -300 50 -300 50 -150" \
 #	-closed t -fillcolor tan]
 set poly [.r add curve $view "50 -150 50 -300 300 -300 300 -150 50 -150" \
-	-closed t -fillcolor tan]
+	-closed t -fillcolor tan -linewidth 2 -relief raised]
 .r scale $poly 2.0 2.0
 .r translate $poly -60 150
 set rect [.r add rectangle $view "50 -200 100 -50"]
@@ -30,12 +30,14 @@ set mp [.r add curve $view ""  \
 
 .r contour $mp union $poly
 .r contour $mp diff $ellipse
-.r contour $mp union $arc
 .r contour $mp diff $rect
+.r contour $mp union $arc
 
 .r itemconfigure $mp -relief raised -visible t
+.r lower $mp
 
-.r remove $arc $ellipse $rect $poly
+#.r remove $arc $ellipse $rect $poly
+.r remove  $rect $arc $ellipse
 
 #.r itemconfigure $poly -relief raised -linewidth 8
 
-- 
cgit v1.1