From e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Mon, 24 Jan 2005 15:46:33 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'POSTSCRIPT'.

---
 sandbox/alledges.pl | 47 -----------------------------------------------
 1 file changed, 47 deletions(-)
 delete mode 100644 sandbox/alledges.pl

(limited to 'sandbox/alledges.pl')

diff --git a/sandbox/alledges.pl b/sandbox/alledges.pl
deleted file mode 100644
index e8893a9..0000000
--- a/sandbox/alledges.pl
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/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