loncom/homework/randomlylabel.pm - diff

Return to randomlylabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

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;