1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
#!/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: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();
|
