version 1.22, 2005/02/23 15:48:54
|
version 1.25, 2005/03/23 15:27:48
|
Line 31
|
Line 31
|
|
|
=head1 Syntax of randomlylabel commands |
=head1 Syntax of randomlylabel commands |
|
|
|
Required items are: (one of BGIMG or SIZE) and OBJCOUNT |
|
|
=over 4 |
=over 4 |
|
|
=item BGIMG |
=item BGIMG |
|
|
/home/... file or href (href must contain http://...) |
/home/... file |
|
/res/ ... URL |
|
or href (href must contain http://...) |
Expected to be HTTP escaped |
Expected to be HTTP escaped |
|
|
|
=item SIZE |
|
|
|
width:height |
|
|
|
Creates a blank canvas of size width,height. |
|
|
|
=item BGCOLOR |
|
|
|
either I<transparent> or a color hexstring |
|
|
|
Sets the background color, if SIZE is used to create a new canvas, |
|
I<trasparent> makes the background transparent. |
|
|
=item OBJCOUNT |
=item OBJCOUNT |
|
|
a number |
a number |
Line 237 sub get_image {
|
Line 254 sub get_image {
|
sub get_color_from_hexstring { |
sub get_color_from_hexstring { |
my ($image,$color)=@_; |
my ($image,$color)=@_; |
if (!$color) { $color='000000'; } |
if (!$color) { $color='000000'; } |
|
$color=~s/^[x\#]//; |
my (undef,$red,undef,$green,undef,$blue)=split(/(..)/,$color); |
my (undef,$red,undef,$green,undef,$blue)=split(/(..)/,$color); |
$red=hex($red);$green=hex($green);$blue=hex($blue); |
$red=hex($red);$green=hex($green);$blue=hex($blue); |
my $imcolor; |
my $imcolor; |
Line 252 sub handler {
|
Line 270 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'}); |
my (undef,$id) = split(/=/,$ENV{'QUERY_STRING'}); |
my $image; |
my $image; |
if (defined($ENV{"cgi.$id.BGIMG"})) { |
my $prefix="cgi.$id."; |
my $bgimg=&Apache::lonnet::unescape($ENV{"cgi.$id.BGIMG"}); |
if ($ENV{'QUERY_STRING'}=~/OBJCOUNT\=/) { |
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); |
|
$prefix='form.'; |
|
} |
|
if (defined($ENV{$prefix."BGIMG"})) { |
|
my $bgimg=&Apache::lonnet::unescape($ENV{$prefix."BGIMG"}); |
#&Apache::lonnet::logthis("BGIMG is ".$bgimg); |
#&Apache::lonnet::logthis("BGIMG is ".$bgimg); |
$image=&get_image($bgimg,0); |
$image=&get_image($bgimg,0); |
if (! defined($image)) { |
if (! defined($image)) { |
Line 261 sub handler {
|
Line 284 sub handler {
|
$id.'-'.$bgimg); |
$id.'-'.$bgimg); |
return OK; |
return OK; |
} |
} |
} elsif (defined($ENV{"cgi.$id.SIZE"})) { |
} elsif (defined($ENV{$prefix."SIZE"})) { |
my ($width,$height)=split(':',$ENV{"cgi.$id.SIZE"}); |
my ($width,$height)=split(':',$ENV{$prefix."SIZE"}); |
$image = new GD::Image($width,$height,1); |
$image = new GD::Image($width,$height,1); |
my ($bgcolor)=split(':',$ENV{"cgi.$id.BGCOLOR"}); |
my ($bgcolor)=split(':',$ENV{$prefix."BGCOLOR"}); |
if ($bgcolor ne 'transparent') { |
if ($bgcolor ne 'transparent') { |
$bgcolor=&get_color_from_hexstring($image,$bgcolor); |
$bgcolor=&get_color_from_hexstring($image,$bgcolor); |
# $image->rectangle(0,0,$width,$height,$bgcolor); |
# $image->rectangle(0,0,$width,$height,$bgcolor); |
Line 279 sub handler {
|
Line 302 sub handler {
|
return OK; |
return OK; |
} |
} |
#binmode(STDOUT); |
#binmode(STDOUT); |
my @objtypes=split(':',$ENV{"cgi.$id.OBJTYPE"}); |
my @objtypes=split(':',$ENV{$prefix."OBJTYPE"}); |
foreach(my $i=0;$i<$ENV{"cgi.$id.OBJCOUNT"};$i++) { |
foreach(my $i=0;$i<$ENV{$prefix."OBJCOUNT"};$i++) { |
my $type=shift(@objtypes); |
my $type=shift(@objtypes); |
if ($type eq 'LINE') { |
if ($type eq 'LINE') { |
my ($x1,$y1,$x2,$y2,$color,$thickness)= |
my ($x1,$y1,$x2,$y2,$color,$thickness)= |
split(':',$ENV{"cgi.$id.OBJ$i"}); |
split(':',$ENV{$prefix."OBJ$i"}); |
my $imcolor=&get_color_from_hexstring($image,$color); |
my $imcolor=&get_color_from_hexstring($image,$color); |
if (!defined($thickness)) { $thickness=1; } |
if (!defined($thickness)) { $thickness=1; } |
$image->setThickness($thickness); |
$image->setThickness($thickness); |
Line 292 sub handler {
|
Line 315 sub handler {
|
$image->line($x1,$y1,$x2,$y2,$imcolor); |
$image->line($x1,$y1,$x2,$y2,$imcolor); |
} elsif ($type eq 'RECTANGLE') { |
} elsif ($type eq 'RECTANGLE') { |
my ($x1,$y1,$x2,$y2,$color,$thickness,$filled)= |
my ($x1,$y1,$x2,$y2,$color,$thickness,$filled)= |
split(':',$ENV{"cgi.$id.OBJ$i"}); |
split(':',$ENV{$prefix."OBJ$i"}); |
if ($x1 > $x2) { my $temp=$x1;$x1=$x2;$x2=$temp; } |
if ($x1 > $x2) { my $temp=$x1;$x1=$x2;$x2=$temp; } |
if ($y1 > $y2) { my $temp=$y1;$y1=$y2;$y2=$temp; } |
if ($y1 > $y2) { my $temp=$y1;$y1=$y2;$y2=$temp; } |
my $imcolor=&get_color_from_hexstring($image,$color); |
my $imcolor=&get_color_from_hexstring($image,$color); |
Line 305 sub handler {
|
Line 328 sub handler {
|
$image->rectangle($x1,$y1,$x2,$y2,$imcolor); |
$image->rectangle($x1,$y1,$x2,$y2,$imcolor); |
} |
} |
} elsif ($type eq 'POLYGON') { |
} elsif ($type eq 'POLYGON') { |
my ($color,$width,$open,$filled)=split(':',$ENV{"cgi.$id.OBJ$i"}); |
my ($color,$width,$open,$filled)=split(':',$ENV{$prefix."OBJ$i"}); |
my $imcolor=&get_color_from_hexstring($image,$color); |
my $imcolor=&get_color_from_hexstring($image,$color); |
my $polygon = (($open && lc ($open ne 'no')) ? |
my $polygon = (($open && lc ($open ne 'no')) ? |
(new GD::Polyline) : (new GD::Polygon)); |
(new GD::Polyline) : (new GD::Polygon)); |
my $added=0; |
my $added=0; |
foreach my $coord (split('-',$ENV{"cgi.$id.OBJEXTRA$i"})) { |
foreach my $coord (split('-',$ENV{$prefix."OBJEXTRA$i"})) { |
my ($x,$y)=($coord=~m/\(([0-9]+),([0-9]+)\)/); |
my ($x,$y)=($coord=~m/\(([0-9]+),([0-9]+)\)/); |
$polygon->addPt($x,$y); |
$polygon->addPt($x,$y); |
$added++; |
$added++; |
Line 328 sub handler {
|
Line 351 sub handler {
|
} |
} |
} elsif ($type eq 'ARC') { |
} elsif ($type eq 'ARC') { |
my ($x,$y,$width,$height,$start,$end,$color,$thickness,$filled)= |
my ($x,$y,$width,$height,$start,$end,$color,$thickness,$filled)= |
split(':',$ENV{"cgi.$id.OBJ$i"}); |
split(':',$ENV{$prefix."OBJ$i"}); |
if (!$color) { $color='000000'; } |
if (!$color) { $color='000000'; } |
my $imcolor=&get_color_from_hexstring($image,$color); |
my $imcolor=&get_color_from_hexstring($image,$color); |
if (!defined($thickness)) { $thickness=1; } |
if (!defined($thickness)) { $thickness=1; } |
Line 341 sub handler {
|
Line 364 sub handler {
|
$image->arc($x,$y,$width,$height,$start,$end,$imcolor); |
$image->arc($x,$y,$width,$height,$start,$end,$imcolor); |
} |
} |
} elsif ($type eq 'FILL') { |
} elsif ($type eq 'FILL') { |
my ($x,$y,$color)=split(':',$ENV{"cgi.$id.OBJ$i"}); |
my ($x,$y,$color)=split(':',$ENV{$prefix."OBJ$i"}); |
if (!$color) { $color='000000'; } |
if (!$color) { $color='000000'; } |
my $imcolor=&get_color_from_hexstring($image,$color); |
my $imcolor=&get_color_from_hexstring($image,$color); |
$image->fill($x,$y,$imcolor); |
$image->fill($x,$y,$imcolor); |
} elsif ($type eq 'IMAGE') { |
} elsif ($type eq 'IMAGE') { |
my ($x,$y,$file,$transparent,$srcX,$srcY,$destW,$destH,$srcW, |
my ($x,$y,$file,$transparent,$srcX,$srcY,$destW,$destH,$srcW, |
$srcH)=split(':',$ENV{"cgi.$id.OBJ$i"}); |
$srcH)=split(':',$ENV{$prefix."OBJ$i"}); |
$file=&Apache::lonnet::unescape($file); |
$file=&Apache::lonnet::unescape($file); |
if (!defined($transparent)) { $transparent=1; } |
if (!defined($transparent)) { $transparent=1; } |
my $subimage=&get_image($file,$transparent); |
my $subimage=&get_image($file,$transparent); |
Line 364 sub handler {
|
Line 387 sub handler {
|
$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)= |
split(':',$ENV{"cgi.$id.OBJ$i"}); |
split(':',$ENV{$prefix."OBJ$i"}); |
$text=&Apache::lonnet::unescape($text); |
$text=&Apache::lonnet::unescape($text); |
my $imcolor=&get_color_from_hexstring($image,$color); |
my $imcolor=&get_color_from_hexstring($image,$color); |
my $type='normal'; |
my $type='normal'; |