From e019306b196e0e87aa54ef539d3226287dc36912 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 27 May 2002 15:08:57 +0000
Subject: *** empty log message ***

---
 sandbox/testzinc.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/testzinc.pl b/sandbox/testzinc.pl
index 396a2be..f120b03 100644
--- a/sandbox/testzinc.pl
+++ b/sandbox/testzinc.pl
@@ -4,8 +4,8 @@
 use Tk;
 use Tk::Zinc;
 use Tk::Photo;
-#use Tk::ZincText;
-use ZincText;
+use Tk::ZincText;
+#use ZincText;
 use Controls;
 
 $map_path = "/usr/share/toccata/maps";
@@ -131,8 +131,10 @@ sub create_tracks {
 	$track->{'y'} = rand($h) - $h/2 + $center_y;
 	$d = (rand() > 0.5) ? 1 : -1;
 	$track->{'vx'} =  (8.0 + rand(10.0)) * $d;
+#	$track->{'vx'} = 10;
 	$d = (rand() > 0.5) ? 1 : -1;
 	$track->{'vy'} =  (8.0 + rand(10.0)) * $d;
+#	$track->{'vy'} =  -10;
 	$zinc->itemconfigure($item,
 			     -lastasfirst => 1,
 			     -symbolcolor => 'red',
-- 
cgit v1.1