Script um vordefinierten Text in alle Bilder einzufügen

[Peter Kaufmann]

Hallo Doppelgänger,

ICh hab ne relativ umfangreiche Bildergallerie, jedoch habe ich auf die Bilder leider keine copyright-notiz eingefügt, was ich gerne ändern würde.

Kennt ihr ein Toll, das in jede ausgewähöte Grafik einen Text einfügt?

es gibt bestimmt einige "Rundum"-Programme die das können. Wenn du PERL & Image Magick zur Verfügung hast hilft dir aber vielleicht schon folgendes Script (kannst es ja noch ein bißchen anpassen):

#!/usr/bin/perl

my $text = "Copyleft 2003";

use Image::Magick;
die "Syntax: $0 DATEIEN\n" if ($#ARGV == -1);
foreach my $name (@ARGV) {
        print STDERR "berabeite $name\n";
        my $img = Image::Magick->new;
        $img->Read($name) && "Fehler: Kann $name nicht öffnen.\n";
        my $width = $img->Get("width");
        my $height = $img->Get("height");
        $img->Annotate(text =>  $text,
                                geometry => "+".($width-4)."+".($height-4),
                                stroke => "black",
                                font => 'helvetica',
                                rotate => "270",
                                antialias => "true",
                                stroke_width => 12);
        $img->Write($name) && die "Fehler: Kann $name nicht schreiben.\n";
}

Grüße,

Peter