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
|
#!/usr/bin/perl -w
use strict;
use Test::More tests => 17;
use_ok('Image::Imlib2');
my $image = Image::Imlib2->new(580, 200);
# Does the constructor work?
ok(defined($image));
# Is it the right width?
is($image->get_width, 580);
# Is it the right height?
is($image->get_height, 200);
# Is it the right width?
is($image->width, 580);
# Is it the right height?
is($image->height, 200);
# Is alpha on by default?
is($image->has_alpha, 1);
# Does set_colour work?
$image->set_colour(255, 0, 0, 255);
# Does set_color work?
$image->set_color(255, 0, 0, 255);
# Does query_pixel work?
my $p = [$image->query_pixel(10, 10)];
is_deeply($p, [0,0,0,0]);
# Does draw_point work?
$image->draw_point(10, 10);
# Does query_pixel work?
$p = [$image->query_pixel(10, 10)];
is_deeply($p, [255,0,0,255]);
# Does draw_line work?
$image->draw_line(50, 10, 100, 50);
# Does draw_rectangle work?
$image->draw_rectangle(50, 50, 100, 100);
# Does fill_rectangle work?
$image->fill_rectangle(50, 50, 100, 100);
# Does draw_ellipse work?
$image->draw_ellipse(50, 50, 25, 25);
# Does fill_ellipse work?
$image->fill_ellipse(50, 50, 25, 25);
my $cloned = $image->clone;
# Is it the right width?
is($cloned->get_width, 580);
# Is it the right height?
is($cloned->get_height, 200);
# Is alpha on by default?
is($cloned->has_alpha, 1);
# create a polygon
my $poly = Image::Imlib2::Polygon->new();
# add some points
$poly->add_point(10, 3);
$poly->add_point(0, 7);
$poly->add_point(10, 20);
$poly->add_point(10, 3);
# fill the polygon
$poly->fill();
# draw it closed on image
$image->draw_polygon($poly, 1);
# orientate it
$image->image_orientate(1);
# blur it
$image->blur(1);
# sharpen it
$image->sharpen(1);
# create a scaled image of it
my $dstimage = $image->create_scaled_image(100,80);
# does has_alpha work?
$image->has_alpha(0);
is($image->has_alpha, 0);
# create a transparent image
my $new = $image->create_transparent_image(64);
# Is it the right width?
is($image->get_width, 200);
# Is it the right height?
is($image->get_height, 580);
# Is alpha on by default?
is($new->has_alpha, 1);
ok(1, "got to the end")
|
