blob: 876bc97c16bc835a04f1e360d80a196040f5bb30 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#!/usr/bin/wish8.0 -f
load tkzinc3.1.so
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
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
.r scale $top 1 -1
set view [.r add group $top -tags "controls"]
.r translate $view 200 -200
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 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 -fillalpha 200]
.r lower $cliparc
#.r rotate $cliparc 20
.r translate $cliparc 100 -40
#.r itemconfigure $view2 -clip $cliparc
source "controls.tcl"
|
