version 1.2, 2004/02/23 23:29:14
|
version 1.3, 2004/02/24 00:16:35
|
Line 82 sub start_line {
|
Line 82 sub start_line {
|
my $y2 = &Apache::lonxml::get_param('y2',$parstack,$safeeval); |
my $y2 = &Apache::lonxml::get_param('y2',$parstack,$safeeval); |
my $color = &Apache::lonxml::get_param('color',$parstack,$safeeval); |
my $color = &Apache::lonxml::get_param('color',$parstack,$safeeval); |
my $thickness = &Apache::lonxml::get_param('thickness',$parstack,$safeeval); |
my $thickness = &Apache::lonxml::get_param('thickness',$parstack,$safeeval); |
my $i=(++$args{"cgi.$cgi_id.OBJCOUNT"})-1; |
my $i=$args{"cgi.$cgi_id.OBJCOUNT"}++; |
$args{"cgi.$cgi_id.OBJ$i"}=join(':',($x1,$y1,$x2,$y2,$color,$thickness)); |
$args{"cgi.$cgi_id.OBJ$i"}=join(':',($x1,$y1,$x2,$y2,$color,$thickness)); |
$args{"cgi.$cgi_id.OBJTYPE"}.='LINE:'; |
$args{"cgi.$cgi_id.OBJTYPE"}.='LINE:'; |
} |
} |
Line 108 sub start_rectangle {
|
Line 108 sub start_rectangle {
|
$safeeval); |
$safeeval); |
my $filled = &Apache::lonxml::get_param('filled',$parstack, |
my $filled = &Apache::lonxml::get_param('filled',$parstack, |
$safeeval); |
$safeeval); |
my $i=(++$args{"cgi.$cgi_id.OBJCOUNT"})-1; |
my $i=$args{"cgi.$cgi_id.OBJCOUNT"}++; |
$args{"cgi.$cgi_id.OBJ$i"}= |
$args{"cgi.$cgi_id.OBJ$i"}= |
join(':',($x1,$y1,$x2,$y2,$color,$thickness,$filled)); |
join(':',($x1,$y1,$x2,$y2,$color,$thickness,$filled)); |
$args{"cgi.$cgi_id.OBJTYPE"}.='RECTANGLE:'; |
$args{"cgi.$cgi_id.OBJTYPE"}.='RECTANGLE:'; |
Line 135 sub start_arc {
|
Line 135 sub start_arc {
|
my $color = &Apache::lonxml::get_param('color',$parstack,$safeeval); |
my $color = &Apache::lonxml::get_param('color',$parstack,$safeeval); |
my $thickness = &Apache::lonxml::get_param('thickness',$parstack,$safeeval); |
my $thickness = &Apache::lonxml::get_param('thickness',$parstack,$safeeval); |
my $filled = &Apache::lonxml::get_param('filled',$parstack,$safeeval); |
my $filled = &Apache::lonxml::get_param('filled',$parstack,$safeeval); |
my $i=(++$args{"cgi.$cgi_id.OBJCOUNT"})-1; |
my $i=$args{"cgi.$cgi_id.OBJCOUNT"}++; |
$args{"cgi.$cgi_id.OBJ$i"}= |
$args{"cgi.$cgi_id.OBJ$i"}= |
join(':',($x,$y,$width,$height,$start,$end,$color,$thickness, |
join(':',($x,$y,$width,$height,$start,$end,$color,$thickness, |
$filled)); |
$filled)); |
Line 157 sub start_fill {
|
Line 157 sub start_fill {
|
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); |
my $color = &Apache::lonxml::get_param('color',$parstack,$safeeval); |
my $color = &Apache::lonxml::get_param('color',$parstack,$safeeval); |
my $i=(++$args{"cgi.$cgi_id.OBJCOUNT"})-1; |
my $i=$args{"cgi.$cgi_id.OBJCOUNT"}++; |
$args{"cgi.$cgi_id.OBJ$i"}=join(':',($x,$y,$color)); |
$args{"cgi.$cgi_id.OBJ$i"}=join(':',($x,$y,$color)); |
$args{"cgi.$cgi_id.OBJTYPE"}.='FILL:'; |
$args{"cgi.$cgi_id.OBJTYPE"}.='FILL:'; |
} |
} |