Image::Magick - Logo in Bild einfügen - #169752 (Fragen zu Perl-Modulen)

GwenDragon

2013-08-26 11:54

User since
2005-01-17
14532 Artikel
Admin1

Ungetestet:

Code (perl): (dl )

(@params)= $image->QueryFontMetrics(font=>'arial.ttf', pointsize=>30, text=>$text);

Zurück gelieferte Parameter:
characterWidth: max. zeichenbreite eines m ("em")
characterHeight: max. ZeichenHöhe
ascender: Oberlänge
descender: Unterlänge
textWidth: Textbreite in pixel
textHeight:Texthöhe in pixel
maxHorizontalAdvance: max. Abstand eines Zeichens zum nächsten
boundingBox: (x1, y1, x2, y2) Umrissbox
originX, originY: Ursprung

Code (perl): (dl )

my $text = 'Blah Blubb Moep Malp Foo Bar Baz!';
my $image = Image::Magick->new;
$image->Set( size => '800x600' );
$image->ReadImage('xc:none');
my (@params)= $image->QueryFontMetrics(font=>'arial.ttf', pointsize=>30, text=>$text);

use Data::Dumper;
print Dumper \@params;

ergibt:

Code: (dl )

$VAR1 = [
          '30',
          '30',
          '28',
          '-7',
          '481',
          '35',
          '60',
          '0',
          '-6',
          '23',
          '22',
          '481',
          '0'
        ];

Last edited: 2013-08-26 12:22:07 +0200 (CEST)

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel