use strict;
use warnings;
use GD;

sub dump_red {
    my $gd = shift;
    my ( $w, $h ) = $gd-> getBounds;
    for my $y ( 0 .. $h - 1 ) {
        for my $x ( 0 .. $w - 1 ) {
            my ( $r ) = $gd-> rgb( $gd-> getPixel( $x, $y ));
            printf $r ? ( '%02x ', $r ) : '.. ';
        }
        print "\n";
    }
}

my $i = GD::Image-> new( 23, 15, 1 );
my $r = $i-> colorAllocate( 255, 0, 0 );

$i-> line( 1, 2, 5, 2, $r );
$i-> line( 1, 9, 1, 13, $r );
$i-> rectangle( 7, 2, 10, 11, $r );

$i-> setThickness( 3 );
$i-> line( 1, 5, 5, 5, $r );
$i-> line( 4, 9, 4, 13, $r );
$i-> rectangle( 13, 2, 20, 11, $r );

dump_red( $i );

__END__

.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
.. .. .. .. .. .. .. .. .. .. .. .. ff ff ff ff ff ff ff ff ff ff ..
.. ff ff ff ff ff .. ff ff ff ff .. ff ff ff ff ff ff ff ff ff ff ..
.. .. .. .. .. .. .. ff .. .. ff .. ff ff ff ff ff ff ff ff ff ff ..
.. ff ff ff ff ff .. ff .. .. ff .. ff ff ff ff .. .. ff ff ff ff ..
.. ff ff ff ff ff .. ff .. .. ff .. ff ff ff ff .. .. ff ff ff ff ..
.. ff ff ff ff ff .. ff .. .. ff .. ff ff ff ff .. .. ff ff ff ff ..
.. .. .. .. .. .. .. ff .. .. ff .. ff ff ff ff .. .. ff ff ff ff ..
.. .. .. .. .. .. .. ff .. .. ff .. ff ff ff ff .. .. ff ff ff ff ..
.. ff .. ff ff ff .. ff .. .. ff .. ff ff ff ff .. .. ff ff ff ff ..
.. ff .. ff ff ff .. ff .. .. ff .. ff ff ff ff ff ff ff ff ff ff ..
.. ff .. ff ff ff .. ff ff ff ff .. ff ff ff ff ff ff ff ff ff ff ..
.. ff .. ff ff ff .. .. .. .. .. .. ff ff ff ff ff ff ff ff ff ff ..
.. ff .. ff ff ff .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..
.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ..