From 45b13a34d777859147ce128a4271255e81c8c22c Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 22 Dec 2000 17:01:28 +0000
Subject: *** empty log message ***

---
 sandbox/testarc.tcl | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'sandbox/testarc.tcl')

diff --git a/sandbox/testarc.tcl b/sandbox/testarc.tcl
index 23e961a..876bc97 100644
--- a/sandbox/testarc.tcl
+++ b/sandbox/testarc.tcl
@@ -1,4 +1,4 @@
-#!/usr/bin/wish -f
+#!/usr/bin/wish8.0 -f
 
 load tkzinc3.1.so
 package require Img
@@ -8,8 +8,9 @@ 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 papier -file texture-paper.xpm
 
-set r [zinc .r -backcolor gray -relief sunken]
+set r [zinc .r -backcolor gray -relief sunken -localrender 1]
 pack .r -expand t -fill both
 .r configure -width 800 -height 500
 #.r configure -drawbboxes t
@@ -19,7 +20,9 @@ set view [.r add group $top -tags "controls"]
 set view2  [.r add group $top]
 .r translate $view2 300 -200
 
-set arc [.r add arc $view "50 -10 200 -100" -filled t -closed t -pieslice t -fillcolor "white darkslateblue 17" -gradient "50" -linewidth 1]
+set arc [.r add arc $view "50 -10 200 -100" -filled t -closed t -pieslice f \
+	-fillcolor "white darkslateblue 17" -gradient "50" -linewidth 1 \
+	-startangle 0 -extent 120 -tile papier]
 #set arc [.r add arc $view "50 -10 200 -100" -filled t -closed t -pieslice t -fillcolor "#ff0000 #00ff00 17" -gradient "50" -linewidth 0]
 #.r add arc $view "60 -20 190 -90" -filled t -closed t -pieslice t -fillcolor "white darkslateblue 17" -gradient "50/180" -linewidth 1 -linecolor white
 #.r rotate $arc 10
@@ -28,10 +31,11 @@ set arc [.r add arc $view "50 -10 200 -100" -filled t -closed t -pieslice t -fil
 #.r translate $arc2 100 -100
 
 .r add icon $view2 -image penguin
-set cliparc [.r add arc $view2 "-100 100 100 -100" -filled t -fillcolor tan -visible t]
+set cliparc [.r add arc $view2 "-100 100 100 -100" -filled t \
+	-fillcolor tan -fillalpha 200]
 .r lower $cliparc
 #.r rotate $cliparc 20
 .r translate $cliparc 100 -40
-.r itemconfigure $view2 -clip $cliparc
+#.r itemconfigure $view2 -clip $cliparc
 
 source "controls.tcl"
-- 
cgit v1.1