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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
|
#!/usr/bin/perl -w
#
# $Id: AnimatedGradient.t,v 1.1 2004-09-20 20:07:06 mertz Exp $
# Author: Christophe Mertz mertz@intuilab.com
#
# this test mainly does funny effects when openGL is on
# testing all the import
BEGIN {
if (!eval q{
# use Test::More qw(no_plan);
use Test::More tests => 18;
1;
}) {
print "# tests only work properly with installed Test::More module\n";
print "1..1\n";
print "ok 1\n";
exit;
}
if (!eval q{
use Tk::Zinc;
1;
}) {
print "unable to load Tk::Zinc";
print "1..1\n";
print "ok 1\n";
exit;
}
}
use strict;
my $mw = MainWindow->new();
my $zinc = $mw->Zinc(-width => 200, -height => 200, -backcolor => "white",
-render => 1)->pack;
like ($zinc, qr/^Tk::Zinc=HASH/ , "zinc has been created");
$zinc->add('text', 1, -position => [10,5], -text =>
"the gradient fills a rectangle
which is clipped by the curve
made of two circles...\n"x5);
my $circle1 = $zinc->add('arc', 1, [20,20,180,180]);
my $circle2 = $zinc->add('arc', 1, [70,70,130,130]);
my $curve = $zinc->add('curve', 1, [],
-fillcolor => 'red', -filled => 1, -linewidth => 1);
$zinc->contour($curve, 'add', 1, $circle1);
$zinc->contour($curve, 'add', -1, $circle2);
$zinc->remove($circle1);
$zinc->remove($circle2);
my $gradient;
for (1..4) {
for (my $i = 0; $i <=360; $i++) {
$gradient = "=axial $i | red | white 50 | blue";
$zinc->itemconfigure($curve, -fillcolor => $gradient);
$zinc->update;
}
}
pass("turning gradient one side");
for (1..4) {
for (1..100) {
$zinc->translate($curve,0.5,0.5);
$zinc->update;
}
for (1..800) {
$zinc->rotate($curve, 3.14159/400, 100,100);
$zinc->update;
}
for (1..100) {
$zinc->translate($curve,0.5,0.5);
$zinc->update;
}
for (1..400) {
$zinc->translate($curve,-0.5,-0.5);
$zinc->update;
}
for (1..200) {
$zinc->translate($curve,0.5,0.5);
$zinc->update;
}
pass ("shaking the circle around");
}
for (1..4) {
for (my $i = 359; $i > 0; $i--) {
$gradient = "=axial $i | red | white 50 | blue";
$zinc->itemconfigure($curve, -fillcolor => $gradient);
$zinc->update;
}
}
pass("turning gradient the other side");
my $gr = $zinc->add('group', 1);
my $rect = $zinc->add('rectangle', $gr, [0,-480,200,180], -filled => 1,
-fillcolor => "=axial 90 |blue|white 10|red 20|white 30|blue 40|white 50|red 60|white 70|blue 80|white 90|red");
$zinc->chggroup($curve, $gr);
$zinc->itemconfigure($curve, -visible => 0);
$zinc->itemconfigure($gr, -clip => $curve);
pass("displaying a translated rectangle filled with froggy colors and clipped by two circles");
for (1..2) {
for (my $i = 0; $i<500 ; $i++) {
$zinc->translate($rect, 0,1);
$zinc->update;
}
for (my $i = 0; $i<500 ; $i++) {
$zinc->translate($rect, 0,-1);
$zinc->update;
}
pass ("a thousand translation");
}
$zinc->translate($rect, 0,250);
for (1..1000) {
$zinc->scale($rect, 1, 0.998, 100,100);
$zinc->update;
}
pass("a thousand scaling down");
for (1..360) {
$zinc->rotate($rect, 3.14159/180, 100,100);
$zinc->update;
}
pass("360 rotation of 1°");
for (1..360) {
$zinc->rotate($rect, -3.14159/180, 100,100);
$zinc->update;
}
pass("360 rotation of 1°");
for (1..360) {
$zinc->rotate($rect, -3.14159/180, 100,100);
$zinc->update;
}
for (1..1000) {
$zinc->scale($rect, 1, 1/0.998, 100,100);
$zinc->update;
}
pass("a thousand scaling up");
for (1..4) {
for my $i (0..200) {
$zinc->itemconfigure($gr, -alpha => (200-$i)/2);
$zinc->update;
}
for my $i (0..200) {
$zinc->itemconfigure($gr, -alpha => $i/2);
$zinc->update;
}
pass("fade out/in in 400 steps");
}
|
