#!/usr/bin/perl -w
use strict;
use GD;

my ($width, $height) = (300,300);

# Create a new image
my $im = new GD::Image($width,$height);

# Allocate some colors
my $white = $im->colorAllocate(255,255,255);
my $black = $im->colorAllocate(0,0,0);
my $red = $im->colorAllocate(255,0,0);
my $blue = $im->colorAllocate(0,0,255);
my $brown = $im->colorAllocate(150,127,36);
my $grey = $im->colorAllocate(100,100,100);

# make the background transparent and interlaced
$im->transparent($white);
$im->interlaced('true');

for (my $x=0;$x<=300;$x+=15) {
  for (my $y=0;$y<=300;$y+=15) {
    #$im->rectangle($x,$y,$x+13,$y+13,$black);
    $im->arc($x-15,$height/2,$x,$y,0,360,$grey);
    $im->fill(50,50,$black);
  }
}
for (my $x=0;$x<=300;$x+=10) {
  for (my $y=0;$y<=300;$y+=10) {
    $im->arc($x+15,$height/2,$y,$x,0,100,$white);
    $im->fill(30,30,$grey);
  }
}
for (my $x=200;$x<=300;$x+=10) {
  for (my $y=200;$y<=300;$y+=10) {
    $im->arc($x+10,$height/2,$x,$y,0,150,$white);
    $im->fill(250,250,$red);
  }
}
$im->setStyle($black,$white,gdTransparent,gdTransparent);
for (my $x=0;$x<=10;$x+=15) {
  for (my $y=0;$y<=300;$y+=10) {
    $im->rectangle($x,$y,$x+13,$y+5,gdStyled);
    $im->filledRectangle($x,$y,$x+13,$y+5,gdStyled);
  }
}
$im->stringUp(gdGiantFont,225,110,"Abstract Art",$white);
$im->string(gdGiantFont,240,50,"of",$white);
$im->stringUp(gdGiantFont,255,110,"Node Reaper",$white);
$im->stringUp(gdGiantFont,270,110,"Cutting a",$white);
$im->stringUp(gdGiantFont,285,110,"Cherry Pie!",$white);
$im->rectangle(0,0,$width-1,$height-1,$black);

binmode STDOUT;
print "Content-type: image/png\n\n";
print $im->png;