blob: 05e39223b6afe7d510c30a835bf8b295305d35b9 (
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
|
#!/usr/bin/wish -f
load tkradar3.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 [radar .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"]
set view2 [.r add group $top]
.r translate $view2 100 -50
set arc [.r add arc $view "50 -10 200 -100" -linecolor bisque]
#.r itemconfigure $arc -startangle 10 -extent 90
#.r itemconfigure $arc -startangle 0 -extent 360
source "controls.tcl"
|
