*** empty log message ***

1 files changed, 48 insertions, 0 deletions

diff --git a/sandbox/lines.pl b/sandbox/lines.pl
new file mode 100644
index 0000000..d4ca52d
--- /dev/null
+++ b/sandbox/lines.pl
@@ -0,0 +1,48 @@
+#!/usr/bin/perl -w
+
+use Tk;
+use Tk::Zinc;
+
+#!/usr/bin/perl -w
+
+use Tk;
+use Tk::Zinc;
+use Controls;
+use Tk::Photo;
+require Tk::PNG;
+    
+$mw = MainWindow->new();
+$logo = $mw->Photo(-file => "logo.gif");
+$papier = $mw->Photo(-file => "texture-paper.xpm");
+$penguin = $mw->Photo(-format => 'png',
+		      -file => "xpenguin.png");
+
+$top = 1;
+$zinc = $mw->Zinc(-render => 1,
+		  -borderwidth => 0,
+		  -highlightthickness => 0,
+		  -relief => 'sunken',
+		  -takefocus => 1,
+#		  -tile => $papier
+		  );
+$zinc->pack(-expand => 1, -fill => 'both');
+$zinc->configure(-width => 500, -height => 500);
+
+$view = $zinc->add('group', $top, -tags => "controls");
+$mp3 = $zinc->add('curve', $view, [20, 280, 100, 430, 200, 430],
+		  -linewidth => 9,
+		  -closed => 0,
+		  -linestyle => 'dashed',
+		  -joinstyle => 'round',
+#		  -firstend => [3, 12, 8],
+#		  -lastend => "12 12 8",
+		  -capstyle => 'round',
+		  -linecolor => 'red',
+		  -linealpha => 100);
+
+new Controls($zinc);
+$mw->Tk::bind('<p>', sub { print "perfs: ", join(',', $zinc->monitor()), "\n" });
+$mw->Tk::bind('<t>', sub { $zinc->remove($arc); });
+$mw->Tk::bind('<q>', sub { exit(0); });
+$zinc->focusFollowsMouse();
+MainLoop();