From a383b7b204ee9a84afa7678208aa1f53070a08b4 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 12 Oct 2001 07:47:26 +0000
Subject: Modifs pour test OpenGL

---
 sandbox/testzinc.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'sandbox/testzinc.pl')

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) = @_;
-- 
cgit v1.1