diff options
| author | lecoanet | 2002-03-29 13:36:32 +0000 |
|---|---|---|
| committer | lecoanet | 2002-03-29 13:36:32 +0000 |
| commit | bb2b3d30ba9207c51c183b3fbceb15a1564d9483 (patch) | |
| tree | 3fee1d2eeacadffdd74c8ce2fd0511abaf86b1ec /sandbox/testbezier.pl | |
| parent | e3166784822f0889cd51c827149b0d70cbfad88d (diff) | |
| download | tkzinc-bb2b3d30ba9207c51c183b3fbceb15a1564d9483.zip tkzinc-bb2b3d30ba9207c51c183b3fbceb15a1564d9483.tar.gz tkzinc-bb2b3d30ba9207c51c183b3fbceb15a1564d9483.tar.bz2 tkzinc-bb2b3d30ba9207c51c183b3fbceb15a1564d9483.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox/testbezier.pl')
| -rw-r--r-- | sandbox/testbezier.pl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/sandbox/testbezier.pl b/sandbox/testbezier.pl index 3d9fd3c..33297da 100644 --- a/sandbox/testbezier.pl +++ b/sandbox/testbezier.pl @@ -9,7 +9,7 @@ require Tk::PNG; $top = 1; -$lw = 24; +$lw = 8; $arrow = [8, 10, 6]; # @@ -118,6 +118,16 @@ foreach $current (@show) { # $zinc->remove($model); +my @coords = ( +10, 0, 40, 0, 70, 0, +70, 0, 80, 0, 80, 10, +80, 10, 80, 40, 80, 70, +80, 70, 80, 80, 70, 80, +70, 80, 40, 80, 10, 80, +10, 80, 0, 80, 0, 70, +0, 70, 0, 40, 0, 10, +0, 10, 0, 0, 10, 0); +$zinc->add('bezier', $view, \@coords); # # Some optional graphic features |