From acae90214892628ced469c4fed5bf2e1d2bd8aef Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 15 Feb 2002 09:29:01 +0000
Subject: *** empty log message ***

---
 debian/rules         | 4 ++--
 sandbox/testzinc.pl  | 3 ++-
 sandbox/triangles.pl | 3 +++
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/debian/rules b/debian/rules
index db4db16..e17b34f 100755
--- a/debian/rules
+++ b/debian/rules
@@ -46,8 +46,8 @@ binary-arch:	checkroot build
 
 	-install -m644 test/*.tcl test/*.gif test/*.png test/*.xpm test/*.xbm debian/tmp/usr/share/doc/zinc-tk/examples
 	-install -m644 doc/refman/*.html doc/refman/*.png debian/tmp/usr/share/doc/zinc-tk/refman
-#	install -m644 test/testzinc.pl test/Controls.pm debian/tmp/usr/share/doc/zinc-perl/examples
-	install -m644 test/local.pl debian/tmp/usr/share/doc/zinc-perl/examples
+	install -m644 test/*.p[ml] debian/tmp/usr/share/doc/zinc-perl/examples
+	-install -m644 test/*.gif test/*.png test/*.xpm test/*.xbm debian/tmp/usr/share/doc/zinc-perl/examples
 	install -m644 Perl/examples/*.p[ml] debian/tmp/usr/share/doc/zinc-perl/examples
 	install -m644 Perl/examples/radarmaps/* debian/tmp/usr/share/doc/zinc-perl/examples/radarmaps
 	install -m644 test/testplug.pl debian/tmp/usr/share/doc/zinc-perl/examples
diff --git a/sandbox/testzinc.pl b/sandbox/testzinc.pl
index 20f12f1..941d11b 100644
--- a/sandbox/testzinc.pl
+++ b/sandbox/testzinc.pl
@@ -129,8 +129,9 @@ sub create_tracks {
 			     -position => [$track->{'x'}, $track->{'y'}],
 			     -speedvector => [$track->{'vx'}, $track->{'vy'}],
 			     -speedvectorsensitive => 1,
-			     -speedvectorwidth => 5,
+			     -speedvectorwidth => 2,
 			     -speedvectormark => 1,
+			     -speedvectorticks => 1,
 			     -labeldistance => 30,
 			     -markersize => 20,
 			     -historycolor => 'gray30',
diff --git a/sandbox/triangles.pl b/sandbox/triangles.pl
index 84555b6..23dc1f0 100644
--- a/sandbox/triangles.pl
+++ b/sandbox/triangles.pl
@@ -54,6 +54,9 @@ $zinc->contour($cv2, 'union', $tri2);
 $tri3 = $zinc->add('triangles', $view, [150, 150, 50, 50, 150, 50, 300, 50],
 		   -colors => ['grey50', 'blue', 'red', 'yellow'],
 		   -fan => 1);
+$tri4 = $zinc->clone($tri3, -colors => ['grey', 'red']);
+$zinc->translate($tri4, 100, 300);
+
 $zinc->contour($cv3, 'union', $tri3);
 $zinc->translate($tri3, 0, 300);
 $zinc->translate($cv3, 0, 300);
-- 
cgit v1.1