Wicked Cool Perl Scripts

#46 Drawing the Image

After you lay out the elements, you need to create the image. That's the job of the draw.pm module.

The Code

 1 use strict; 2 use warnings; 3 4 package draw; 5 use GD; 6 use GD::Arrow; 7 8 use size; 9 10 require Exporter; 11 use vars qw/@ISA @EXPORT $image $color_black/; 12 13 @ISA = qw/Exporter/; 14 @EXPORT = qw/draw_re $image $color_black/; 15 16 # Thickness of the lines 17 use constant THICKNESS => 3; 18 19 # Offset for line 2 of a 2 line text field 20 use constant X_LINE2_OFFSET => 10; 21 22 # Offset for line 2 of a 2 line text field 23 use constant Y_LINE2_OFFSET => 15; 24 25 # 26 # Image variables 27 # 28 my $color_white; # White color 29 my $color_green; # Green color 30 my $color_blue; # Blue color 31 my $color_light_green; ...