#!/usr/bin/perl

use strict;
use CGI::Carp qw/fatalsToBrowser/;
use GD::Text;
use GD;



my $boldfont = "/homepages/23/d67475244/htdocs/shopsys/verdana.ttf";




my $img = newFromJpeg GD::Image('balken.jpg');


my $s = $img->colorAllocate(0,0,0);

my $w = $img->colorAllocate(254,254,254);


#$img->string(gdGiantFont,120,50,"Benutzer anlegen",$w);



my $img = GD::Text->new(colour => $w,
                     ptsize => 12.0,
                     font => $boldfont,
                     text => "Benutzer anlegen",
                     );


open DATEI1,">balken_oben_unscharf.png" or die "balken_oben_unscharf.png: $!";
binmode DATEI1;

print DATEI1 $img->png();

close DATEI1;

my $img = GD::Text->new(colour => $w,
                    ptsize => 12.0,
                    font => $boldfont,
                    text => "Benutzer anlegen",
                    ) or die "Konnte GD::Text Object nicht erzeugen.\n";