From 91613db7bc49d04f969d6f9816b52561102a04dc Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 3 May 2002 15:42:02 +0000
Subject: version initiale utilis� pour fabriquer les images de la doc

---
 sandbox/alledges.pl | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 sandbox/alledges.pl

(limited to 'sandbox/alledges.pl')

diff --git a/sandbox/alledges.pl b/sandbox/alledges.pl
new file mode 100644
index 0000000..e8893a9
--- /dev/null
+++ b/sandbox/alledges.pl
@@ -0,0 +1,47 @@
+#!/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 => 700, -height => 300,
+#		     -render => 1,
+		     -backcolor => "grey50", # this will be transparent in the doc
+		     )->pack();
+
+
+my $i = 1;
+my $x = 40;
+my $y = 40;
+foreach my $contour ( (['left'], ['right'], ['top'], ['bottom'],
+		       ['top', 'bottom'], ['left','right'], ['left','top'], ['contour'],
+		       ['oblique'], ['counteroblique'],['oblique','counteroblique']) )  {
+    my $tab = $zinc->add('tabular', 1, 1, -position => [$x, $y],
+			 -labelformat => "a5a5+0+0",
+			 );
+    my $contour_text = "['" . join ("','",@{$contour}) . "']";
+    $zinc->itemconfigure($tab, 0,
+			 -text => $contour_text,
+			 -border => $contour,
+			 -alignment => "center",
+			 -filled => 1,
+			 -backcolor => "gray95",
+);
+    $i++;
+    if ($i == 5) {
+	$x = 40;
+	$y = $y + 50;
+	$i = 1;
+    }
+    else {
+	$x = $x + 160;
+    }
+}
+
+
+
+MainLoop();
-- 
cgit v1.1