version 1.12, 2024/04/05 04:05:08
|
version 1.13, 2024/04/05 22:44:19
|
Line 240 sub start_polygon {
|
Line 240 sub start_polygon {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
&Apache::lonxml::register('Apache::drawimage',('point')); |
&Apache::lonxml::register('Apache::drawimage',('point')); |
if ($target eq 'web') { |
if ($target eq 'web' || $target eq 'tex') { |
undef(@polygon); |
undef(@polygon); |
} |
} |
return $result; |
return $result; |
Line 249 sub start_polygon {
|
Line 249 sub start_polygon {
|
sub end_polygon { |
sub end_polygon { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
if ($target eq 'web') { |
if ($target eq 'web' || $target eq 'tex') { |
my $color=&Apache::lonxml::get_param('color',$parstack,$safeeval); |
my $color=&Apache::lonxml::get_param('color',$parstack,$safeeval); |
my $filled=&Apache::lonxml::get_param('filled',$parstack,$safeeval); |
my $filled=&Apache::lonxml::get_param('filled',$parstack,$safeeval); |
my $open=&Apache::lonxml::get_param('open',$parstack,$safeeval); |
my $open=&Apache::lonxml::get_param('open',$parstack,$safeeval); |
Line 267 sub end_polygon {
|
Line 267 sub end_polygon {
|
sub start_point { |
sub start_point { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
if ($target eq 'web') { |
if ($target eq 'web' || $target eq 'tex') { |
my $x = &Apache::lonxml::get_param('x',$parstack,$safeeval); |
my $x = &Apache::lonxml::get_param('x',$parstack,$safeeval); |
my $y = &Apache::lonxml::get_param('y',$parstack,$safeeval); |
my $y = &Apache::lonxml::get_param('y',$parstack,$safeeval); |
push (@polygon,"($x,$y)"); |
push (@polygon,"($x,$y)"); |