blob: deaf98bb160ddb1e4f459ffc8caa50d6268f9b9f (
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
|
#!/usr/bin/wish -f
load tkzinc3.1.so
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
set r [zinc .r -backcolor gray -relief sunken]
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" -linecolor bisque]
.r itemconfigure $arc -extent 200
set arc2 [.r clone $arc -linecolor red -firstend "8 10 5"]
#.r rotate $arc2 10
#.r translate $arc2 100 -100
source "controls.tcl"
|
