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 ++++++----
 sandbox/local.pl     |  2 +-
 sandbox/local.tcl    |  4 +++-
 3 files changed, 10 insertions(+), 6 deletions(-)

(limited to 'sandbox')

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
 
diff --git a/sandbox/local.pl b/sandbox/local.pl
index ccebad0..f448420 100644
--- a/sandbox/local.pl
+++ b/sandbox/local.pl
@@ -9,7 +9,7 @@ $papier = $mw->Photo(-file => "texture-paper.xpm");
 #$penguin = $mw->Photo(-file => "xpenguin.png");
 
 $top = 1;
-$zinc = $mw->Zinc(-localrender => 1, -relief => 'sunken');
+$zinc = $mw->Zinc(-Render, -relief => 'sunken');
 $zinc->pack(-expand => 1, -fill => 'both');
 $zinc->configure(-width => 500, -height => 500);
 $gr1 = $zinc->add('group', $top);
diff --git a/sandbox/local.tcl b/sandbox/local.tcl
index 06931b6..0033f47 100644
--- a/sandbox/local.tcl
+++ b/sandbox/local.tcl
@@ -8,6 +8,8 @@ set top 1
 image create photo logo -file logo.gif
 image create photo papier -file texture-paper.xpm
 image create photo penguin -file xpenguin.png
+image create photo bouton -file bouton.xpm
+image create photo bois -file texture-bois1.xpm
 
 set r [zinc .r -relief sunken -render 1]
 pack .r -expand t -fill both
@@ -30,7 +32,7 @@ set rect2 [.r add rectangle $view "150 50 300 300" -linewidth 0 \
 	 -tile logo -fillcolor white -fillalpha 90 -filled 1]
 set x 100
 set y 100
-for {set i 0} {$i < 1} {incr i} {
+for {set i 0} {$i < 50} {incr i} {
     set x [expr $x+3]
     set y [expr $y+3]
     .r add text $view -text "BlaBla et tout et tout, bref..."\
-- 
cgit v1.1