Quotemanchen Ecken schwer oder gar nicht nach zu vollziehen, so gehts mir jedenfalls.
(@params)= $image->QueryFontMetrics(font=>'arial.ttf', pointsize=>30, text=>$text);
1 2 3 4 5 6 7 8
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;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
$VAR1 = [
'30',
'30',
'28',
'-7',
'481',
'35',
'60',
'0',
'-6',
'23',
'22',
'481',
'0'
];