diff options
Diffstat (limited to 'sandbox/testzinc.pl')
-rw-r--r-- | sandbox/testzinc.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/sandbox/testzinc.pl b/sandbox/testzinc.pl index 941d11b..2b755fd 100644 --- a/sandbox/testzinc.pl +++ b/sandbox/testzinc.pl @@ -24,7 +24,7 @@ $delay = 2000; $rate = 0.3; %tracks = (); -$zinc = $mw->Zinc(-render => 1, -backcolor => 'gray65', -relief => 'sunken'); +$zinc = $mw->Zinc(-render => 0, -backcolor => 'gray65', -relief => 'sunken'); $zinc->pack(-expand => 1, -fill => 'both'); $zinc->configure(-width => $zinc_width, -height => $zinc_height); #$radar = $top; @@ -126,6 +126,8 @@ sub create_tracks { $d = (rand() > 0.5) ? 1 : -1; $track->{'vy'} = (8.0 + rand(10.0)) * $d; $zinc->itemconfigure($item, + -lastasfirst => 1, + -symbolcolor => 'red', -position => [$track->{'x'}, $track->{'y'}], -speedvector => [$track->{'vx'}, $track->{'vy'}], -speedvectorsensitive => 1, |