#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;

#usage: script baseimage overlayimage text

my $image = Image::Magick->new;
my $oimage = Image::Magick->new;

my $rc = $image->Read('1Zen16.jpg');
$rc = $oimage->Read('overlay.png');
my $text = "\nlooking for nirvana\n :-)\n";

$rc = $image->Composite(
     geometry => '+30+30',
     compose=>'Atop',
     image => $oimage,
     opacity => '100%',
     tile  => 0,  
      );

$image->Annotate(pointsize => 36,
         fill      => '#ffcc00ff', #last 2 digits opacity in hex ff=ma
+x
         text      => $text,
         gravity   => 'South' );


$image->Write("$0.png");

exit;
[download]

#!/usr/bin/perl -w
use strict;
use Image::Magick;

=comment
my $text = 'test';
my $im = new Image::Magick;
$im->Read("meteo.jpg");
my $rv = $im->Annotate(
   text   => $text,
   font   => 'C:\\WINDOWS\\Fonts\\Arial.ttf',
   x      => 10,
   y      => 10,
);
die("Unable to annotate image: $rv\n") if "$rv";
print "Content-type: image/jpeg\n\n"; 
binmode STDOUT;
print $im->Write('jpeg:-');
=cut


my $image = Image::Magick->new;
$image->Set(size=>'250x100');
$image->Read('1Zen16.jpg');

my $text = "This is a test";

$image->Annotate(
            pointsize=>40, 
        text=>$text, 
            stroke => '#C0C0C0', # Increase to make stroke more white
            fill => '#505050', #or red etc, Decrease to make fill more
+ black
        gravity => 'center',
        x=> -10, # offsets
        y=> -10  # offsets
        );

print $image->Write("$0.png");
[download]

Your GD::Image constructor is basing the image on the file "test.jpg". Without that file, we cannot test this code.

File is here :)

http://www.2shared.com/file/9495528/250982fa/test.html

Then I tried to print in green (0,255,0) and it shows up red.

Thank you

The GD documentation for the colorAllocate function says:

If no colors are allocated, then this function returns -1.

Checking $mycolor, I found that it was set to -1 for all 255³ possible RGB combinations.

Assumption: Because the string function received -1 for the color value, it used the (first|last|?) value in the image's existing palette, thus explaining why the text appeared in the same color as the box.

I then converted test.jpg to test.gif with an image editor, and changed $jpg to "test.gif". $mycolor received a positive value, and the text appeared in the chosen color.

I then tried an explicit GD::Image->newFromJpeg on test.jpg, to no avail. I also tried converting to test.png, also to no avail.

It appears that colorAllocate works correctly when starting with .gif images, but not for .jpg or .png.

#! perl -slw
use strict;
use GD;

my $testline="qwerty";

my $jpg="test.jpg";

my $im = GD::Image->new( $jpg ) or die $!;

my $mycolor = $im->colorClosest(255,0,0);

$im->string(gdSmallFont,135, -2,$testline,$mycolor);

my $pic_dyn="test2.jpg";

open IMG,">$pic_dyn" or die $!;

binmode IMG;

print IMG $im->jpeg;

close IMG;
[download]