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
|
#
# Rect.pm
#
# A package for manipulating SDL_Rect *
#
# Copyright (C) 2003 David J. Goehrig
package SDL::Rect;
use strict;
use SDL;
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my %options = @_;
verify (%options, qw/ -x -y -width -height -w -h / ) if $SDL::DEBUG;
my $x = $options{-x} || 0;
my $y = $options{-y} || 0;
my $w = $options{-width} || $options{-w} || 0;
my $h = $options{-height} || $options{-h} || 0;
my $self = \SDL::NewRect($x,$y,$w,$h);
bless $self,$class;
return $self;
}
sub DESTROY {
SDL::FreeRect(${$_[0]});
}
sub x {
my $self = shift;
SDL::RectX($$self,@_);
}
sub y {
my $self = shift;
SDL::RectY($$self,@_);
}
sub width {
my $self = shift;
SDL::RectW($$self,@_);
}
sub height {
my $self = shift;
SDL::RectH($$self,@_);
}
1;
__END__;
=pod
=head1 NAME
SDL::Rect - a SDL perl extension
=head1 SYNOPSIS
$rect = new SDL::Rect ( -height => 4, -width => 40 );
=head1 DESCRIPTION
C<SDL::Rect> provides an optional lightweight implementation of SDL::Rect,
and retains an identical interface.
=head1 AUTHOR
David J. Goehrig
=head1 SEE ALSO
L<perl> L<SDL::Surface> L<SDL::Rect>
=cut
|
