From bb2b3d30ba9207c51c183b3fbceb15a1564d9483 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 29 Mar 2002 13:36:32 +0000
Subject: *** empty log message ***

---
 sandbox/testbezier.pl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'sandbox/testbezier.pl')

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
-- 
cgit v1.1