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
|
#!/usr/bin/perl -w
use strict;
use Test::More tests => 21;
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 );
# create a transparent image
my $transparent = Image::Imlib2->new_transparent( 20, 40 );
is( $transparent->get_width, 20 );
is( $transparent->get_height, 40 );
# create a rotated image
my $rotated = $image->create_rotated_image(45 / 360 * 3.141519*2);
is( $rotated->get_width, 618 );
is( $rotated->get_height, 618 );
ok( 1, "got to the end" )
|
