"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "GENERATED/PDL/GIS/Proj.pm" between
PDL-2.074.tar.gz and PDL-2.075.tar.gz

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

Proj.pm  (PDL-2.074):Proj.pm  (PDL-2.075)
skipping to change at line 17 skipping to change at line 17
our %EXPORT_TAGS = (Func=>\@EXPORT_OK); our %EXPORT_TAGS = (Func=>\@EXPORT_OK);
use PDL::Core; use PDL::Core;
use PDL::Exporter; use PDL::Exporter;
use DynaLoader; use DynaLoader;
our @ISA = ( 'PDL::Exporter','DynaLoader' ); our @ISA = ( 'PDL::Exporter','DynaLoader' );
push @PDL::Core::PP, __PACKAGE__; push @PDL::Core::PP, __PACKAGE__;
bootstrap PDL::GIS::Proj ; bootstrap PDL::GIS::Proj ;
#line 20 "Proj.pd" #line 19 "Proj.pd"
use strict; use strict;
use warnings; use warnings;
=head1 NAME =head1 NAME
PDL::GIS::Proj - PDL interface to the PROJ projection library. PDL::GIS::Proj - PDL interface to the PROJ projection library.
=head1 DESCRIPTION =head1 DESCRIPTION
For more information on the PROJ library, see: L<http://www.proj.org/> For more information on the PROJ library, see: L<http://www.proj.org/>
#line 36 "Proj.pm" #line 37 "Proj.pm"
=head1 FUNCTIONS =head1 FUNCTIONS
=cut =cut
#line 65 "Proj.pd" #line 64 "Proj.pd"
=head2 get_proj_info($params_string) =head2 get_proj_info($params_string)
Returns a string with information about what parameters proj will Returns a string with information about what parameters proj will
actually use, this includes defaults, and +init=file stuff. It's actually use, this includes defaults, and +init=file stuff. It's
the same as running 'proj -v'. It uses the proj command line, so the same as running 'proj -v'. It uses the proj command line, so
it might not work with all shells. I've tested it with bash. it might not work with all shells. I've tested it with bash.
=cut =cut
sub get_proj_info sub get_proj_info
{ {
my $params = shift; my $params = shift;
my @a = split(/\n/, `echo | proj -v $params`); my @a = split(/\n/, `echo | proj -v $params`);
pop(@a); pop(@a);
return join("\n", @a); return join("\n", @a);
} # End of get_proj_info()... } # End of get_proj_info()...
#line 67 "Proj.pm" #line 69 "Proj.pm"
#line 1059 "../../../blib/lib/PDL/PP.pm" #line 1058 "../../../blib/lib/PDL/PP.pm"
=head2 fwd_transform =head2 fwd_transform
=for sig =for sig
Signature: (lonlat(n=2); [o] xy(n); char* params) Signature: (lonlat(n=2); [o] xy(n); char* params)
=for ref =for ref
PROJ forward transformation $params is a string of the projection PROJ forward transformation $params is a string of the projection
skipping to change at line 80 skipping to change at line 82
Ignores bad elements of $lat and $lon, and sets the corresponding elements Ignores bad elements of $lat and $lon, and sets the corresponding elements
of $x and $y to BAD of $x and $y to BAD
=for bad =for bad
fwd_transform processes bad values. fwd_transform processes bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 101 "Proj.pm" #line 104 "Proj.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm"
#line 1061 "../../../blib/lib/PDL/PP.pm"
*fwd_transform = \&PDL::fwd_transform; *fwd_transform = \&PDL::fwd_transform;
#line 107 "Proj.pm" #line 111 "Proj.pm"
#line 1059 "../../../blib/lib/PDL/PP.pm" #line 1058 "../../../blib/lib/PDL/PP.pm"
=head2 inv_transform =head2 inv_transform
=for sig =for sig
Signature: (xy(n=2); [o] lonlat(n); char* params) Signature: (xy(n=2); [o] lonlat(n); char* params)
=for ref =for ref
PROJ inverse transformation $params is a string of the projection PROJ inverse transformation $params is a string of the projection
skipping to change at line 114 skipping to change at line 117
Ignores bad elements of $lat and $lon, and sets the corresponding elements Ignores bad elements of $lat and $lon, and sets the corresponding elements
of $x and $y to BAD of $x and $y to BAD
=for bad =for bad
inv_transform processes bad values. inv_transform processes bad values.
It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays. It will set the bad-value flag of all output ndarrays if the flag is set for any of the input ndarrays.
=cut =cut
#line 142 "Proj.pm" #line 147 "Proj.pm"
#line 1060 "../../../blib/lib/PDL/PP.pm"
#line 1061 "../../../blib/lib/PDL/PP.pm"
*inv_transform = \&PDL::inv_transform; *inv_transform = \&PDL::inv_transform;
#line 148 "Proj.pm" #line 154 "Proj.pm"
#line 221 "Proj.pd" #line 220 "Proj.pd"
=head2 proj_version =head2 proj_version
Returns a 3-element list with PROJ major, minor, patch version-numbers. Returns a 3-element list with PROJ major, minor, patch version-numbers.
=cut =cut
my %SKIP = map +($_=>1), qw( my %SKIP = map +($_=>1), qw(
and or Special for Madagascar and or Special for Madagascar
fixed Earth For CH1903 fixed Earth For CH1903
skipping to change at line 177 skipping to change at line 181
$info->{$projection} = $hash; $info->{$projection} = $hash;
} }
# A couple of overrides: # A couple of overrides:
# #
$info->{ob_tran}{PARAMS}{PROJ} = $info->{ob_tran}{PARAMS}{PROJ} =
[ 'o_proj', 'o_lat_p', 'o_lon_p', 'o_alpha', 'o_lon_c', [ 'o_proj', 'o_lat_p', 'o_lon_p', 'o_alpha', 'o_lon_c',
'o_lat_c', 'o_lon_1', 'o_lat_1', 'o_lon_2', 'o_lat_2' ]; 'o_lat_c', 'o_lon_1', 'o_lat_1', 'o_lon_2', 'o_lat_2' ];
$info->{nzmg}{CATEGORIES} = [ 'fixed Earth' ]; $info->{nzmg}{CATEGORIES} = [ 'fixed Earth' ];
return $info; return $info;
} # End of load_projection_information()... } # End of load_projection_information()...
#line 209 "Proj.pm" #line 216 "Proj.pm"
#line 32 "Proj.pd"
#line 33 "Proj.pd"
=head1 AUTHOR =head1 AUTHOR
Judd Taylor, Orbital Systems, Ltd. Judd Taylor, Orbital Systems, Ltd.
judd dot t at orbitalsystems dot com judd dot t at orbitalsystems dot com
=head1 COPYRIGHT NOTICE =head1 COPYRIGHT NOTICE
Copyright 2003 Judd Taylor, USF Institute for Marine Remote Sensing (judd@marine .usf.edu). Copyright 2003 Judd Taylor, USF Institute for Marine Remote Sensing (judd@marine .usf.edu).
GPL Now! GPL Now!
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
=cut =cut
#line 232 "Proj.pm" #line 240 "Proj.pm"
# Exit with OK status # Exit with OK status
1; 1;
 End of changes. 16 change blocks. 
16 lines changed or deleted 21 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)