diff options
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', |