use GD;
use strict;
use warnings;

my $bild = new GD::Image(200,200);
my $gray  = $bild->colorAllocate(200,200,200);
my $white = $brush->colorAllocate(255,255,255);
my $black = $brush->colorAllocate(0,0,0);
my $blue  = $bild->colorAllocate(0,0,255);
my $red   = $bild->colorAllocate(255,0,0);

# Brush mit diagonalem Muster
my $brush = new GD::Image(5,5);
my $w = $brush->colorAllocate(255,255,255);
my $b = $brush->colorAllocate(0,0,255);
my $r = $brush->colorAllocate(255,0,0);
$brush->transparent($w);
$brush->line(0,4,4,0,$b);
$brush->line(0,0,4,4,$r);

$bild->setTile($brush);
$bild->filledRectangle(20,20,180,180,gdTiled);

open(OUT, ">", "gd-bild11.gif");
binmode OUT;   # nur bei Windows noetig
print OUT $bild->gif;
close OUT;