version 1.34, 2024/04/05 02:31:23
|
version 1.36, 2024/04/05 04:05:08
|
Line 146 installed TTF font and point size
|
Line 146 installed TTF font and point size
|
|
|
either B<horizontal> or B<vertical> |
either B<horizontal> or B<vertical> |
|
|
|
=item rotation |
|
|
|
number of degrees to rotate the text, relative to the horizontal. |
|
only used if font attribute is set to a freetype font (e.g., helvetica 12), |
|
and in that case, if set to a valid value, overrides value set for direction. |
|
|
=back |
=back |
|
|
=item POLYGON |
=item POLYGON |
Line 296 sub add_click {
|
Line 302 sub add_click {
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
$r->content_type('image/png'); |
|
$r->send_http_header; |
|
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); |
|
|
Line 307 sub handler {
|
Line 311 sub handler {
|
} else { |
} else { |
$prefix="cgi.$env{'form.token'}."; |
$prefix="cgi.$env{'form.token'}."; |
} |
} |
|
my $epsfile; |
|
if (defined($env{$prefix."EPSFILE"})) { |
|
my $user = $env{'user.name'}.'_'.$env{'user.domain'}; |
|
if ($env{$prefix."EPSFILE"} =~ /^\Q$user\E_\d+_\d+_\d+_drawimage\.eps$/) { |
|
$epsfile = $Apache::lonnet::perlvar{'lonPrtDir'}.'/'.$env{$prefix."EPSFILE"}; |
|
} else { |
|
&Apache::lonnet::logthis('Unable to create eps file for image object for -'. |
|
$env{'form.token'}.'- for '.$user.' as EPSFILE has '. |
|
'unexpected value'); |
|
return OK; |
|
} |
|
} |
|
unless ($epsfile) { |
|
$r->content_type('image/png'); |
|
$r->send_http_header; |
|
} |
|
|
my $image; |
my $image; |
if (defined($env{$prefix."BGIMG"})) { |
if (defined($env{$prefix."BGIMG"})) { |
Line 466 sub handler {
|
Line 486 sub handler {
|
} |
} |
if (exists($env{'form.clickdata'})) { &add_click($image); } |
if (exists($env{'form.clickdata'})) { &add_click($image); } |
$image->setThickness(1); |
$image->setThickness(1); |
$r->print($image->png); |
if ($epsfile) { |
|
if (open(my $pipe, "| convert png:- $epsfile")) { |
|
print $pipe $image->png; |
|
close($pipe); |
|
} else { |
|
&Apache::lonnet::logthis("randomlylabel unable to open pipe to convert png to eps"); |
|
} |
|
} else { |
|
$r->print($image->png); |
|
} |
return OK; |
return OK; |
} |
} |
|
|