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/alllineshapes.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/alllineshapes.pl')
-rw-r--r-- | sandbox/alllineshapes.pl | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/sandbox/alllineshapes.pl b/sandbox/alllineshapes.pl deleted file mode 100644 index c2bafc3..0000000 --- a/sandbox/alllineshapes.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 => 420, -# -render => 1, -# -backcolor => "red", # this will be transparent in the doc - )->pack(); - - -my $i = 1; -my $x = 20; -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 => 120, - ); - $zinc->itemconfigure($wpt, 0, - -text => $lineshape, - -alignment => "center", - ); - $i++; - if ($i == 4) { - $x = 20; - $y = $y + 150; - $i = 1; - } - else { - $x = $x + 210; - } -} - - - -MainLoop(); |