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
|
#============================================================= -*-perl-*-
#
# t/gd.t
#
# Test the GD plugin. Tests are based on the GD module tests.
#
# Written by Craig Barratt <craig@arraycomm.com>
#
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
# $Id: gd.t,v 2.7 2003/04/30 08:04:32 abw Exp $
#
#========================================================================
use strict;
use lib qw( ../lib );
use Template;
use Template::Test;
$^W = 1;
eval "use GD;";
if ( $@ || $GD::VERSION < 1.20 ) {
skip_all('GD module(s) not installed');
}
test_expect(\*DATA, {
FILTERS => {
hex => \&hex_filter,
}
});
#
# write text out in hex format.
#
sub hex_filter {
my $text = shift;
$text =~ s/(.)/sprintf("%02x", ord($1))/esg;
$text =~ s/(.{70})/$1\n/g;
return $text;
}
__END__
-- test --
[% FILTER replace('.');
#
# This is test2 from GD-1.xx/t/GD.t
#
USE gd_c = GD.Constants;
USE im = GD.Image(300,300);
white = im.colorAllocate(255, 255, 255);
black = im.colorAllocate(0, 0, 0);
red = im.colorAllocate(255, 0, 0);
blue = im.colorAllocate(0,0,255);
yellow = im.colorAllocate(255,250,205);
USE brush = GD.Image(10,10);
brush.colorAllocate(255,255,255); # white
brush.colorAllocate(0,0,0); # black
brush.transparent(white); # white is transparent
brush.filledRectangle(0,0,5,2,black); # a black rectangle
im.setBrush(brush);
im.arc(100,100,100,150,0,360,gd_c.gdBrushed);
USE poly = GD::Polygon;
poly.addPt(30,30);
poly.addPt(100,10);
poly.addPt(190,290);
poly.addPt(30,290);
im.polygon(poly,gd_c.gdBrushed);
im.fill(132,62,blue);
im.fill(100,70,red);
im.fill(40,40,yellow);
im.interlaced(1);
im.copy(im,150,150,20,20,50,50);
im.copyResized(im,10,200,20,20,100,100,50,50);
END;
out = im.png | hex;
out.length > 6000 ? 'ok' : 'not ok'
-%]
-- expect --
ok
-- test --
[% FILTER replace('.');
#
# This is test3 from GD-1.xx/t/GD.t
#
USE im = GD.Image(100,50);
black = im.colorAllocate(0, 0, 0);
white = im.colorAllocate(255, 255, 255);
red = im.colorAllocate(255, 0, 0);
blue = im.colorAllocate(0,0,255);
im.arc(50, 25, 98, 48, 0, 360, white);
im.fill(50, 21, red);
END; -%][% im.png | hex -%]
-- expect --
89504e470d0a1a0a0000000d4948445200000064000000320203000000d75b962d0000
000c504c5445000000ffffffff00000000ff011d334a000000bc49444154789cad94c1
0d83300c451309ba01cc93117a203d3002d3f4403680037fca8a448526f1b710ea3fe6
c9f9b163db984b6ae4e3ce4755e7d64f88f2cf82787c151c0105eaf0ab708276ca0886
83bc7280d5919033a80c39826c1502a4a4fa1a608d6414c8e6c865e9ba560298894d32
926c9291680338636580b742e4a7ed8f7b10b2dc2272a27baafff5e1f9dca90eafb5f2
3ffc4f791ff0dee1fda6f428ef6b3e0bcafcf09953e694cfb6b20f941da2ec1dbeaba2
b2fdf60111b64d2854ccf25e0000000049454e44ae426082
-- test --
[% FILTER replace('.');
#
# This is test4 from GD-1.xx/t/GD.t
#
USE im = GD.Image(225,180);
black = im.colorAllocate(0, 0, 0);
white = im.colorAllocate(255, 255, 255);
red = im.colorAllocate(255, 0, 0);
blue = im.colorAllocate(0,0,255);
yellow = im.colorAllocate(255,250,205);
USE poly = GD.Polygon;
poly.addPt(0,50);
poly.addPt(25,25);
poly.addPt(50,50);
im.filledPolygon(poly,blue);
poly.offset(100,100);
im.filledPolygon(poly,red);
poly.map(50,50,100,100,10,10,110,60);
im.filledPolygon(poly,yellow);
b = poly.bounds; b0 = b.0; b1 = b.1; b2 = b.2; b3 = b.3;
poly.map(b0,b1,b2,b3,50,20,80,160);
im.filledPolygon(poly,white);
END;
out = im.png | hex;
out.length > 1250 ? "ok" : "not ok"
-%]
-- expect --
ok
-- test --
[% FILTER replace('.');
#
# This is test5 from GD-1.xx/t/GD.t
#
USE gd_c = GD.Constants;
USE im = GD.Image(300,300);
white = im.colorAllocate(255, 255, 255);
black = im.colorAllocate(0, 0, 0);
red = im.colorAllocate(255, 0, 0);
blue = im.colorAllocate(0,0,255);
yellow = im.colorAllocate(255,250,205);
im.transparent(white);
im.interlaced(1);
USE brush = GD.Image(10,10);
brush.colorAllocate(255,255,255);
brush.colorAllocate(0,0,0);
brush.transparent(white);
brush.filledRectangle(0,0,5,2,black);
im.string(gd_c.gdLargeFont,150,10,"Hello world!",red);
im.string(gd_c.gdSmallFont,150,28,"Goodbye cruel world!",blue);
im.stringUp(gd_c.gdTinyFont,280,250,"I'm climbing the wall!",black);
im.charUp(gd_c.gdMediumBoldFont,280,280,"Q",black);
im.setBrush(brush);
im.arc(100,100,100,150,0,360,gd_c.gdBrushed);
USE poly = GD.Polygon;
poly.addPt(30,30);
poly.addPt(100,10);
poly.addPt(190,290);
poly.addPt(30,290);
im.polygon(poly,gd_c.gdBrushed);
im.fill(132,62,blue);
im.fill(100,70,red);
im.fill(40,40,yellow);
END;
out = im.png | hex;
out.length > 6500 ? 'ok' : 'not ok'
-%]
-- expect --
ok
|
