From 6dcb5f61a5b4d272d46d53aabfbae75700fa8934 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 23 Mar 2000 14:25:43 +0000
Subject: *** empty log message ***

---
 sandbox/testarc.tcl | 21 +++++++++++++++------
 1 file changed, 15 insertions(+), 6 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/testarc.tcl b/sandbox/testarc.tcl
index deaf98b..23e961a 100644
--- a/sandbox/testarc.tcl
+++ b/sandbox/testarc.tcl
@@ -5,9 +5,9 @@ package require Img
 
 set top 1
 
-image create photo logo -file /usr/share/toccata/images/logo.gif
-#image create photo papier -file /usr/share/toccata/images/dgtexture-dragstrip.xpm
-image create photo penguin -file /usr/X11R6/include/X11/pixmaps/xpenguin_color.xpm
+image create photo logo -file logo.gif
+image create photo papier -file texture-paper.xpm
+image create photo penguin -file xpenguin.png
 
 set r [zinc .r -backcolor gray -relief sunken]
 pack .r -expand t -fill both
@@ -19,10 +19,19 @@ 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" -linecolor bisque]
-.r itemconfigure $arc -extent 200
-set arc2 [.r clone $arc -linecolor red -firstend "8 10 5"]
+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 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
+#set arc2 [.r clone $arc -linecolor red -firstend "8 10 5"]
 #.r rotate $arc2 10
 #.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]
+.r lower $cliparc
+#.r rotate $cliparc 20
+.r translate $cliparc 100 -40
+.r itemconfigure $view2 -clip $cliparc
+
 source "controls.tcl"
-- 
cgit v1.1