use GD;
use strict;
use warnings;

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

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

# Brush verwenden
$bild->setBrush($brush);
$bild->arc(100,100,90,90,0,360,gdBrushed);

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