diff options
author | cvs2svn | 2005-01-24 15:46:33 +0000 |
---|---|---|
committer | cvs2svn | 2005-01-24 15:46:33 +0000 |
commit | e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf (patch) | |
tree | 7061a2d781348fa7d5965b7d7dd5d7ef6b27a7b0 /sandbox/alledges.pl | |
parent | e1ed2c6d78bb616e24166c13126adba1b95ea4ea (diff) | |
download | tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.zip tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.tar.gz tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.tar.bz2 tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.tar.xz |
This commit was manufactured by cvs2svn to create branch 'POSTSCRIPT'.POSTSCRIPT
Diffstat (limited to 'sandbox/alledges.pl')
-rw-r--r-- | sandbox/alledges.pl | 47 |
1 files changed, 0 insertions, 47 deletions
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(); |