"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Libtmp/Transform/Cartography/Cartography.pm" between
PDL-2.082.tar.gz and PDL-2.083.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

Cartography.pm  (PDL-2.082)	:	Cartography.pm  (PDL-2.083)
skipping to change at line 1625		skipping to change at line 1625
# parsing of the standard parallels. The constructor gets copied		# parsing of the standard parallels. The constructor gets copied
# into the current package for ease of hackage.		# into the current package for ease of hackage.
#		#
# This is a little kludgy -- it's intended for direct calling		# This is a little kludgy -- it's intended for direct calling
# rather than method calling, and it puts its own class name on the		# rather than method calling, and it puts its own class name on the
# front of the argument list. But, hey, it works...		# front of the argument list. But, hey, it works...
#		#
@PDL::Transform::Cartography::Conic::ISA = ('PDL::Transform::Cartography');		@PDL::Transform::Cartography::Conic::ISA = ('PDL::Transform::Cartography');
sub _c_new {		sub _c_new {
my($def_std) = pop;		my($def_std) = pop;
my($me) = new('PDL::Transform::Cartography::Conic',@_);		my $me = PDL::Transform::Cartography::Conic->new(@_);
my($p) = $me->{params};		my($p) = $me->{params};
$p->{std} = _opt($me->{options},['s','std','standard','Standard'],		$p->{std} = _opt($me->{options},['s','std','standard','Standard'],
$def_std);		$def_std);
$p->{std} = topdl($p->{std}) * $me->{params}->{conv};		$p->{std} = topdl($p->{std}) * $me->{params}->{conv};
$p->{std} = topdl([$PI/2 * ($p->{std}<0 ? -1 : 1), $p->{std}->at(0)])		$p->{std} = topdl([$PI/2 * ($p->{std}<0 ? -1 : 1), $p->{std}->at(0)])
if($p->{std}->nelem == 1);		if($p->{std}->nelem == 1);
$me->{params}->{cylindrical} = 1		$me->{params}->{cylindrical} = 1
if(approx($p->{std}->slice("0"),-$p->{std}->slice("1")));		if(approx($p->{std}->slice("0"),-$p->{std}->slice("1")));
End of changes. 1 change blocks.
1 lines changed or deleted		1 lines changed or added

---