version 1.42, 2001/12/04 14:49:37
|
version 1.44, 2001/12/21 21:37:26
|
Line 30
|
Line 30
|
# |
# |
# 05/25/2001 H. K. Ng |
# 05/25/2001 H. K. Ng |
# 05/31/2001 H. K. Ng |
# 05/31/2001 H. K. Ng |
|
# 12/21/2001 Matthew |
# |
# |
#init some globals |
#init some globals |
$hidden::RANDOMINIT=0; |
$hidden::RANDOMINIT=0; |
$pi=atan2(1,1)*4; |
$pi=atan2(1,1)*4; |
$rad2deg=180.0/$pi; |
$rad2deg=180.0/$pi; |
$deg2rad=$pi/180.0; |
$deg2rad=$pi/180.0; |
|
$"=' '; |
|
|
sub caparesponse_check { |
sub caparesponse_check { |
#not properly used yet: calc |
#not properly used yet: calc |
Line 208 sub web {
|
Line 210 sub web {
|
if ( $external::target eq "tex" ) { |
if ( $external::target eq "tex" ) { |
return @_[1]; |
return @_[1]; |
} else { |
} else { |
if ( $external::target eq "web") { |
if ( $external::target eq "web" || $external::target eq "answer") { |
return @_[2]; |
return @_[2]; |
} else { |
} else { |
return @_[0]; |
return @_[0]; |