diff options
Diffstat (limited to 'sandbox')
| -rw-r--r-- | sandbox/testarc.tcl | 21 |
1 files changed, 15 insertions, 6 deletions
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" |