1 files changed, 46 insertions, 0 deletions
diff --git a/sandbox/alllineshapes.pl b/sandbox/alllineshapes.pl
new file mode 100644
index 0000000..89bc6bb
--- /dev/null
+++ b/sandbox/alllineshapes.pl
@@ -0,0 +1,46 @@
+#!/usr/bin/perl
+# $Id$
+# these simple samples have been developped by C. Mertz mertz@cena.fr
+
+use Tk;
+use Tk::Zinc;
+use strict;
+
+my $defaultfont = '-b&h-lucida-bold-r-normal-*-*-140-*-*-p-*-iso10646-1';
+my $mw = MainWindow->new();
+my $zinc = $mw->Zinc(-width => 800, -height => 500,
+#		     -render => 1,
+#		     -backcolor => "red", # this will be transparent in the doc
+		     )->pack();
+
+
+my $i = 1;
+my $x = 20;
+my $y = 100;
+foreach my $lineshape ( qw(straight rightlightning leftlightning rightcorner
+			    leftcorner doublerightcorner doubleleftcorner) ) {
+    print "$lineshape\n";
+    my $wpt = $zinc->add('waypoint', 1, 1,
+			 -position => [$x, $y],
+			 -labelformat => "a5a5+0+0",
+			 -leadershape => $lineshape,
+			 -labeldistance => 150,
+			 );
+    $zinc->itemconfigure($wpt, 0,
+			 -text => $lineshape,
+			 -alignment => "center",
+			 );
+    $i++;
+    if ($i == 4) {
+	$x = 20;
+	$y = $y + 150;
+	$i = 1;
+    }
+    else {
+	$x = $x + 180;
+    }
+}
+
+
+
+MainLoop();