diff options
| author | lecoanet | 2002-03-29 13:36:32 +0000 |
|---|---|---|
| committer | lecoanet | 2002-03-29 13:36:32 +0000 |
| commit | bb2b3d30ba9207c51c183b3fbceb15a1564d9483 (patch) | |
| tree | 3fee1d2eeacadffdd74c8ce2fd0511abaf86b1ec /sandbox/testzinc.pl | |
| parent | e3166784822f0889cd51c827149b0d70cbfad88d (diff) | |
| download | tkzinc-bb2b3d30ba9207c51c183b3fbceb15a1564d9483.zip tkzinc-bb2b3d30ba9207c51c183b3fbceb15a1564d9483.tar.gz tkzinc-bb2b3d30ba9207c51c183b3fbceb15a1564d9483.tar.bz2 tkzinc-bb2b3d30ba9207c51c183b3fbceb15a1564d9483.tar.xz | |
*** empty log message ***
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, |