version 1.33, 2024/04/04 17:33:01
|
version 1.34, 2024/04/05 02:31:23
|
Line 129 the start and extant of the region in fi
|
Line 129 the start and extant of the region in fi
|
|
|
=item LABEL |
=item LABEL |
|
|
x:y:text:font:color:direction |
x:y:text:font:color:direction:rotation |
|
|
=over 4 |
=over 4 |
|
|
Line 420 sub handler {
|
Line 420 sub handler {
|
$image->copyResized($subimage,$x,$y,$srcX,$srcY,$destW,$destH, |
$image->copyResized($subimage,$x,$y,$srcX,$srcY,$destW,$destH, |
$srcW,$srcH); |
$srcW,$srcH); |
} elsif ($type eq 'LABEL') { |
} elsif ($type eq 'LABEL') { |
my ($x,$y,$text,$font,$color,$direction)= |
my ($x,$y,$text,$font,$color,$direction,$rotation)= |
split(':',$env{$prefix."OBJ$i"}); |
split(':',$env{$prefix."OBJ$i"}); |
$text=&unescape($text); |
$text=&unescape($text); |
my $imcolor=&get_color_from_hexstring($image,$color); |
my $imcolor=&get_color_from_hexstring($image,$color); |
Line 451 sub handler {
|
Line 451 sub handler {
|
} elsif ($type eq 'ttf') { |
} elsif ($type eq 'ttf') { |
my ($fontname,$ptsize)=split(/\s+/,$font); |
my ($fontname,$ptsize)=split(/\s+/,$font); |
my $angle = 0; |
my $angle = 0; |
if ($direction eq 'vertical') { |
if ($rotation =~ /^(\-|\+|)\d+(|\.\d*)$/) { |
|
$angle = Math::Trig::deg2rad($rotation); |
|
} elsif ($direction eq 'vertical') { |
$angle = Math::Trig::deg2rad(90); |
$angle = Math::Trig::deg2rad(90); |
} elsif ($direction eq 'horizontal') { |
} elsif ($direction eq 'horizontal') { |
$angle = 0; |
$angle = 0; |