use GD;
use strict;
use warnings;

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

my $poly = new GD::Polygon;
$poly ->addPt(21,170);
$poly ->addPt(105,120);
$poly->addPt(155,80);
$poly->addPt(205,130);
$poly->addPt(255,110);
$poly->addPt(290,50);

# die beiden zusaetzlichen Punkte
$poly->addPt(290,170);
$poly->addPt(21,170);
$bild->polygon($poly,$red);
# abdecken
$bild->line(290,50,290,170,$gray);
$bild->line(290,170,21,170,$gray);

# und die Legende
$bild->string(gdLargeFont,120,180,"Zeit",$blue);
$bild->stringUp(gdLargeFont,2,120,"Umsatz",$blue);

$bild->line(20,170,290,170,$black);
$bild->line(20,170,20,20,$black);

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