diff options
| author | lecoanet | 2001-06-27 08:38:42 +0000 |
|---|---|---|
| committer | lecoanet | 2001-06-27 08:38:42 +0000 |
| commit | cfd9fe1d670a59bc5d82056274cd05c3b98974b4 (patch) | |
| tree | 63629a9092069f608b70ea17fd825c0760e2d73f /sandbox/testarc.tcl | |
| parent | 76e82090dd6eda66b6247bd6c5980e3b7a56c3ff (diff) | |
| download | tkzinc-cfd9fe1d670a59bc5d82056274cd05c3b98974b4.zip tkzinc-cfd9fe1d670a59bc5d82056274cd05c3b98974b4.tar.gz tkzinc-cfd9fe1d670a59bc5d82056274cd05c3b98974b4.tar.bz2 tkzinc-cfd9fe1d670a59bc5d82056274cd05c3b98974b4.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox/testarc.tcl')
| -rw-r--r-- | sandbox/testarc.tcl | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/sandbox/testarc.tcl b/sandbox/testarc.tcl index 335911d..0d52f6f 100644 --- a/sandbox/testarc.tcl +++ b/sandbox/testarc.tcl @@ -1,14 +1,14 @@ #!/usr/bin/wish8.0 -f load tkzinc3.1.so -package require Img +#package require Img 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 +#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 -render 0] pack .r -expand t -fill both @@ -20,22 +20,22 @@ 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 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 +set arc [.r add arc $view "50 -10 200 -100" -filled t -closed t -pieslice t \ + -fillcolor "white|darkslateblue" -linewidth 1 \ + -startangle 0 -extent 120] +#set arc [.r add arc $view "50 -10 200 -100" -filled t -closed t -pieslice t -fillcolor "#ff0000|#00ff00" -linewidth 0] +#.r add arc $view "60 -20 190 -90" -filled t -closed t -pieslice t -fillcolor "white|darkslateblue" -linewidth 1 -linecolor white + #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 \ +#.r add icon $view2 -image penguin +set cliparc [.r add arc $view "-100 100 100 -100" -filled t \ -fillcolor tan -fillalpha 200] .r lower $cliparc -#.r rotate $cliparc 20 -.r translate $cliparc 100 -40 +#.r rotate $cliparc 20 0 0 +#.r translate $cliparc 100 -40 #.r itemconfigure $view2 -clip $cliparc - +bind .r <1> ".r rotate $cliparc [expr 3.14/3] 0 0" source "controls.tcl" |