diff options
| author | lecoanet | 2001-10-12 07:47:26 +0000 |
|---|---|---|
| committer | lecoanet | 2001-10-12 07:47:26 +0000 |
| commit | a383b7b204ee9a84afa7678208aa1f53070a08b4 (patch) | |
| tree | ff3ebdad0ef5bbf76ee807af8fa157265a96b39d /sandbox/testzinc.pl | |
| parent | 1b23404bfe96b9cfd14b22e78ed77eb4e153bdfe (diff) | |
| download | tkzinc-a383b7b204ee9a84afa7678208aa1f53070a08b4.zip tkzinc-a383b7b204ee9a84afa7678208aa1f53070a08b4.tar.gz tkzinc-a383b7b204ee9a84afa7678208aa1f53070a08b4.tar.bz2 tkzinc-a383b7b204ee9a84afa7678208aa1f53070a08b4.tar.xz | |
Modifs pour test OpenGL
Diffstat (limited to 'sandbox/testzinc.pl')
| -rw-r--r-- | sandbox/testzinc.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/sandbox/testzinc.pl b/sandbox/testzinc.pl index 63b1b1a..e94f1f8 100644 --- a/sandbox/testzinc.pl +++ b/sandbox/testzinc.pl @@ -24,7 +24,7 @@ $delay = 2000; $rate = 0.3; %tracks = (); -$zinc = $mw->Zinc(-backcolor => 'gray65', -relief => 'sunken'); +$zinc = $mw->Zinc(-render => 1, -backcolor => 'gray65', -relief => 'sunken'); $zinc->pack(-expand => 1, -fill => 'both'); $zinc->configure(-width => $zinc_width, -height => $zinc_height); #$radar = $top; @@ -133,6 +133,7 @@ sub create_tracks { -markersize => 20, -historycolor => 'gray30', -filledhistory => 0, + -circlehistory => 1, -labelformat => "x71x50+0+0 x50a0^0^0 x25a0^0>1 a0a0>2>1 x25a0>3>1 a0a0^0>2"); $zinc->itemconfigure($item, 0, -filled => 0, @@ -450,7 +451,7 @@ new Controls($zinc); ################################################### # Rafraichissement des pistes ################################################### -#$zinc->repeat($delay, [\&refresh, $zinc]); +$zinc->repeat($delay, [\&refresh, $zinc]); sub refresh { my ($zinc) = @_; |