diff options
| author | lecoanet | 2000-12-22 17:01:28 +0000 |
|---|---|---|
| committer | lecoanet | 2000-12-22 17:01:28 +0000 |
| commit | 45b13a34d777859147ce128a4271255e81c8c22c (patch) | |
| tree | 25939738e23b2c2d6105c266ad4519aab9636df0 /sandbox/testarc.tcl | |
| parent | f7bba45e9c6555210d984e19e40b59c82f2153be (diff) | |
| download | tkzinc-45b13a34d777859147ce128a4271255e81c8c22c.zip tkzinc-45b13a34d777859147ce128a4271255e81c8c22c.tar.gz tkzinc-45b13a34d777859147ce128a4271255e81c8c22c.tar.bz2 tkzinc-45b13a34d777859147ce128a4271255e81c8c22c.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox/testarc.tcl')
| -rw-r--r-- | sandbox/testarc.tcl | 14 |
1 files changed, 9 insertions, 5 deletions
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" |