diff options
Diffstat (limited to 'sandbox/alllineshapes.pl')
-rw-r--r-- | sandbox/alllineshapes.pl | 46 |
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(); |