diff options
author | lecoanet | 1999-12-16 12:35:19 +0000 |
---|---|---|
committer | lecoanet | 1999-12-16 12:35:19 +0000 |
commit | 864b540a416a24e80095563731ef544d24ca61bf (patch) | |
tree | d3ccf306d22526ed68694d07f484e3200baf546f /sandbox/testarc.tcl | |
parent | b1f79aa9ff6b5d7a66d91905e5c63549b9e2cc09 (diff) | |
download | tkzinc-864b540a416a24e80095563731ef544d24ca61bf.zip tkzinc-864b540a416a24e80095563731ef544d24ca61bf.tar.gz tkzinc-864b540a416a24e80095563731ef544d24ca61bf.tar.bz2 tkzinc-864b540a416a24e80095563731ef544d24ca61bf.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/testarc.tcl')
-rw-r--r-- | sandbox/testarc.tcl | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/sandbox/testarc.tcl b/sandbox/testarc.tcl new file mode 100644 index 0000000..05e3922 --- /dev/null +++ b/sandbox/testarc.tcl @@ -0,0 +1,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" |