From 3e8acfe88c9a697f9932675cf9b2d0e9cceae6f3 Mon Sep 17 00:00:00 2001
From: mertz
Date: Tue, 2 Jul 2002 08:47:48 +0000
Subject: r�-organisation graphique mineures pour am�liorer l'image produite
 (et utilis�e dans la doc)

---
 sandbox/alllineshapes.pl | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'sandbox')

diff --git a/sandbox/alllineshapes.pl b/sandbox/alllineshapes.pl
index 89bc6bb..c2bafc3 100644
--- a/sandbox/alllineshapes.pl
+++ b/sandbox/alllineshapes.pl
@@ -8,7 +8,7 @@ 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,
+my $zinc = $mw->Zinc(-width => 700, -height => 420,
 #		     -render => 1,
 #		     -backcolor => "red", # this will be transparent in the doc
 		     )->pack();
@@ -16,15 +16,16 @@ my $zinc = $mw->Zinc(-width => 800, -height => 500,
 
 my $i = 1;
 my $x = 20;
-my $y = 100;
-foreach my $lineshape ( qw(straight rightlightning leftlightning rightcorner
-			    leftcorner doublerightcorner doubleleftcorner) ) {
-    print "$lineshape\n";
+my $y = 20;
+foreach my $lineshape ( qw(straight rightlightning leftlightning
+			   rightcorner leftcorner doublerightcorner
+			   doubleleftcorner) ) {
     my $wpt = $zinc->add('waypoint', 1, 1,
 			 -position => [$x, $y],
 			 -labelformat => "a5a5+0+0",
+			 -leaderanchors => '% 100x100',
 			 -leadershape => $lineshape,
-			 -labeldistance => 150,
+			 -labeldistance => 120,
 			 );
     $zinc->itemconfigure($wpt, 0,
 			 -text => $lineshape,
@@ -37,7 +38,7 @@ foreach my $lineshape ( qw(straight rightlightning leftlightning rightcorner
 	$i = 1;
     }
     else {
-	$x = $x + 180;
+	$x = $x + 210;
     }
 }
 
-- 
cgit v1.1