diff options
author | lecoanet | 2002-05-27 15:08:57 +0000 |
---|---|---|
committer | lecoanet | 2002-05-27 15:08:57 +0000 |
commit | e019306b196e0e87aa54ef539d3226287dc36912 (patch) | |
tree | f1048da8190d01e49b5e37aaa2c17ef41d39f4b4 /sandbox/testzinc.pl | |
parent | 41ab96778d770512c9f6046c3f64f8d15f2ff8f0 (diff) | |
download | tkzinc-e019306b196e0e87aa54ef539d3226287dc36912.zip tkzinc-e019306b196e0e87aa54ef539d3226287dc36912.tar.gz tkzinc-e019306b196e0e87aa54ef539d3226287dc36912.tar.bz2 tkzinc-e019306b196e0e87aa54ef539d3226287dc36912.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/testzinc.pl')
-rw-r--r-- | sandbox/testzinc.pl | 6 |
1 files changed, 4 insertions, 2 deletions
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', |