From 9d2861b8fb77adc89682633330b312b55acb0288 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 26 Jan 2000 13:39:20 +0000
Subject: *** empty log message ***

---
 sandbox/testarc.tcl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/testarc.tcl b/sandbox/testarc.tcl
index 05e3922..6c3f777 100644
--- a/sandbox/testarc.tcl
+++ b/sandbox/testarc.tcl
@@ -15,11 +15,14 @@ pack .r -expand t -fill both
 #.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 100 -50
+.r translate $view2 300 -200
 
 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
+.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"
-- 
cgit v1.1