From 864b540a416a24e80095563731ef544d24ca61bf Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 16 Dec 1999 12:35:19 +0000
Subject: *** empty log message ***

---
 sandbox/testarc.tcl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 sandbox/testarc.tcl

(limited to 'sandbox')

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"
-- 
cgit v1.1