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
|
#!/usr/bin/perl -w
#
# $Id: Transformations.t,v 1.2 2003-12-11 12:11:41 mertz Exp $
# Author: Christophe Mertz
#
# testing all the import
BEGIN {
if (!eval q{
use Test::More qw(no_plan);
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;
}
if (!eval q{
MainWindow->new();
1;
}) {
print "# tests only work properly when it is possible to create a mainwindow in your env\n";
print "1..1\n";
print "ok 1\n";
exit;
}
}
$mw = MainWindow->new();
$zinc = $mw->Zinc(-width => 100, -height => 100);
like ($zinc, qr/^Tk::Zinc=HASH/ , "zinc has been created");
my $g = $zinc->add('group',1);
$zinc->scale($g,2,2);
my $rect1 = $zinc->add('rectangle', $g, [10,10,40,40]);
# todo : add a test for the to-come method to get a transform!
is_deeply([ $zinc->coords($rect1) ],
[ [10,10], [40, 40] ],
"coords are not modified by the group transform!");
is_deeply([
$zinc->transform(1, $g, [100, 100, 300, 500] )
],
[ 50, 50, 150, 250 ],
"transform from window coordinates to group");
is_deeply([
$zinc->transform($g, 1, [$zinc->coords($rect1)] )
],
[ [20,20], [80, 80] ],
"transform to window coordinates");
# question suggested by D. Etienne (30 sept 2003):
# is it possible to get the window coordinate of a transformed item?
# the answer is of course yes and it is verified here.
my $rect2 = $zinc->add('rectangle', 1, [10,10,40,40]);
# applying a transform to the rectangle:
$zinc->scale($rect2, 2,2);
# todo : add a test for the to-come method to get a transform!
is_deeply([ $zinc->coords($rect1) ],
[ [10,10], [40, 40] ],
"coords are not modified by the item transform!");
is_deeply([
$zinc->transform(1, $rect2, [100, 100, 300, 500] )
],
[ 50, 50, 150, 250 ],
"transform window coordinates with same transform than rect2 ");
is_deeply([
$zinc->transform($rect2, 1, [$zinc->coords($rect2)] )
],
[ [20,20], [80, 80] ],
"transform rect2 coordinates to window coordinates, with group 1");
is_deeply([
$zinc->transform($rect2, 'device', [$zinc->coords($rect2)] )
],
[ [20,20], [80, 80] ],
"transform rect2 coordinates to window coordinates with 'device'");
$zinc->scale(1, 0.5, 0.5);
is_deeply([
$zinc->transform($rect2, 'device', [$zinc->coords($rect2)] )
],
[ [10,10], [40, 40] ],
"transform rect2 coordinates to window coordinates with 'device'");
# setting the top group transformation to the id, with a translation with tset
$zinc->tset(1, 1,0, 0,1, -20,-10);
is_deeply([
$zinc->transform($rect2, 'device', [$zinc->coords($rect2)] )
],
[ [0,10], [60, 70] ],
"rect2 window coordinates with 'device' after topgroup transfo setting");
# restting top group transformation
$zinc->treset(1);
is_deeply([
$zinc->transform($rect2, 'device', [$zinc->coords($rect2)] )
],
[ [20,20], [80, 80] ],
"rect2 window coordinates with 'device' after topgroup treset");
# resetting the rect2 trasnformation
$zinc->treset($rect2);
is_deeply([
$zinc->transform($rect2, 'device', [$zinc->coords($rect2)] )
],
[ [10,10], [40, 40] ],
"rect2 window coordinates with 'device' after rect2 treset");
$zinc->skew($rect2, 10,00);
$zinc->skew($rect2, -10,00);
is_deeply([
$zinc->transform($rect2, 'device', [$zinc->coords($rect2)] )
],
[ [10,10], [40, 40] ],
"rect2 window coordinates with 'device' after rect2 skew (back and forth)");
diag("############## transformations test");
|
