1 2# 3# GENERATED WITH PDL::PP! Don't modify! 4# 5package PDL::Transform::Proj4; 6 7@EXPORT_OK = qw( t_proj t_proj_aea t_proj_aeqd t_proj_airy t_proj_aitoff t_proj_alsk t_proj_apian t_proj_august t_proj_bacon t_proj_bipc t_proj_boggs t_proj_bonne t_proj_calcofi t_proj_cass t_proj_cc t_proj_cea t_proj_chamb t_proj_collg t_proj_comill t_proj_crast t_proj_denoy t_proj_eck1 t_proj_eck2 t_proj_eck3 t_proj_eck4 t_proj_eck5 t_proj_eck6 t_proj_eqc t_proj_eqdc t_proj_etmerc t_proj_euler t_proj_fahey t_proj_fouc t_proj_fouc_s t_proj_gall t_proj_geocent t_proj_geos t_proj_gins8 t_proj_gn_sinu t_proj_gnom t_proj_goode t_proj_gs48 t_proj_gs50 t_proj_gstmerc t_proj_hammer t_proj_hatano t_proj_healpix t_proj_igh t_proj_imw_p t_proj_isea t_proj_kav5 t_proj_kav7 t_proj_krovak t_proj_labrd t_proj_laea t_proj_lagrng t_proj_larr t_proj_lask t_proj_latlon t_proj_latlong t_proj_lcc t_proj_lcca t_proj_leac t_proj_lee_os t_proj_longlat t_proj_lonlat t_proj_loxim t_proj_lsat t_proj_mbt_fps t_proj_mbt_s t_proj_mbtfpp t_proj_mbtfpq t_proj_mbtfps t_proj_merc t_proj_mil_os t_proj_mill t_proj_misrsom t_proj_moll t_proj_murd1 t_proj_murd2 t_proj_murd3 t_proj_natearth t_proj_natearth2 t_proj_nell t_proj_nell_h t_proj_nicol t_proj_nsper t_proj_nzmg t_proj_ob_tran t_proj_ocea t_proj_oea t_proj_omerc t_proj_ortel t_proj_ortho t_proj_patterson t_proj_pconic t_proj_poly t_proj_putp1 t_proj_putp2 t_proj_putp3 t_proj_putp3p t_proj_putp4p t_proj_putp5 t_proj_putp5p t_proj_putp6 t_proj_putp6p t_proj_qsc t_proj_qua_aut t_proj_rhealpix t_proj_robin t_proj_rouss t_proj_rpoly t_proj_sch t_proj_sinu t_proj_somerc t_proj_stere t_proj_sterea t_proj_tcc t_proj_tcea t_proj_times t_proj_tissot t_proj_tmerc t_proj_tpeqd t_proj_tpers t_proj_ups t_proj_urm5 t_proj_urmfps t_proj_utm t_proj_vandg t_proj_vandg2 t_proj_vandg3 t_proj_vandg4 t_proj_vitk1 t_proj_wag1 t_proj_wag2 t_proj_wag3 t_proj_wag4 t_proj_wag5 t_proj_wag6 t_proj_wag7 t_proj_weren t_proj_wink1 t_proj_wink2 t_proj_wintri PDL::PP _proj4_dummy ); 8%EXPORT_TAGS = (Func=>[@EXPORT_OK]); 9 10use PDL::Core; 11use PDL::Exporter; 12use DynaLoader; 13 14 15 16 17 @ISA = ( 'PDL::Exporter','DynaLoader','PDL::Transform' ); 18 push @PDL::Core::PP, __PACKAGE__; 19 bootstrap PDL::Transform::Proj4 ; 20 21 22BEGIN { 23use PDL; 24use PDL::NiceSlice; 25use PDL::Transform; 26use PDL::GIS::Proj; 27 28 29} 30 31 32# 33# PDL::Transform::Proj4 34# 35# Judd Taylor, USF IMaRS 36# 4 Apr 2006 37# 38 39=head1 NAME 40 41PDL::Transform::Proj4 - PDL::Transform interface to the Proj4 projection library 42 43=head1 SYNOPSIS 44 45 # Using the generalized proj interface: 46 # Make an orthographic map of Earth 47 use PDL::Transform::Cartography; 48 use PDL::Transform::Proj4; 49 $a = earth_coast(); 50 $a = graticule(10,2)->glue(1,$a); 51 $t = t_proj( proj_params => "+proj=ortho +ellps=WGS84 +lon_0=-90 +lat_0=40" ); 52 $w = pgwin(xs); 53 $w->lines($t->apply($a)->clean_lines()); 54 55 # Using the aliased functions: 56 # Make an orthographic map of Earth 57 use PDL::Transform::Cartography; 58 use PDL::Transform::Proj4; 59 $a = earth_coast(); 60 $a = graticule(10,2)->glue(1,$a); 61 $t = t_proj_ortho( ellps => 'WGS84', lon_0 => -90, lat_0 => 40 ) 62 $w = pgwin(xs); 63 $w->lines($t->apply($a)->clean_lines()); 64 65=head1 DESCRIPTION 66 67Works like PDL::Transform::Cartography, but using the proj library in the background. 68 69Please see the proj library docs at L<http://www.remotesensing.org/proj> for more information 70on proj, and how to use the library. 71 72=head1 GENERALIZED INTERFACE 73 74The main object here is the PDL::Transform::Proj4 object, aliased to the t_proj() function. 75 76This object accepts all of the standard options described below, but mainly is there to be called 77with just the B<proj_params> option defined. 78 79When options are used, they must be used with a '+' before them when placed in the proj_params string, 80but that is not required otherwise. See the SYNOPSIS above. 81 82=head2 ALIASED INTERFACE 83 84Other than t_proj(), all of the other transforms below have been autogenerated, and may not work 85properly. The main problem is determining the parameters a projection requires from the proj 86library itself. 87 88Due to the difficulties in doing this, there may be times when the proj docs specify a parameter 89for a projection that won't work using the anon-hash type specification. In that case, just throw 90that parameter in the proj_params string, and everything should work fine. 91 92=head1 PARAMETERS AVAILABLE IN ALL PROJECTIONS 93 94=head2 General Parameters 95 96=head3 proj_params 97 98This is a string containing the proj "plus style" parameters. This would be similar to what you 99would put on the command line for the 'proj' tool. Like "+proj=ortho +ellps=WGS84 +lon_0=-90 +lat_0=40". 100 101This parameter overrides the others below when it contains parameters that are also specified 102explicitly. 103 104=head3 proj 105 106The proj projection code to use (like ortho...) 107 108=head3 x_0 109 110Cartesian X offset for the output of the transformation 111 112=head3 y_0 113 114Cartesian Y offset for the output of the transformation 115 116=head3 lat_0 117 118Central latitude for the projection. 119NOTE: This may mean other things depending on the projection selected, read the proj docs! 120 121=head3 lon_0 122 123Central longitude for the projection. 124NOTE: This may mean other things depending on the projection selected, read the proj docs! 125 126=head3 units 127 128Cartesian units used for the output of the projection. 129NOTE: Like most of the options here, this is likely useless in the current implementation 130of this library. 131 132=head3 init 133 134Specify a file:unit for proj to use for its runtime defaults. See the proj docs. 135 136=head3 no_defs 137 138Don't load any defaults. See the proj docs. 139 140=head3 over 141 142Normally, the transformation limits the output to between -180 and 180 degrees (or the 143cartesian equivalent), but with this option that behavior is turned off. 144 145=head3 geoc 146 147Input values are geocentric coordinates. 148 149=head2 Earth Figure Parameters 150 151=head3 ellps 152 153Ellipsoid datum to use. Ex: WGS72, WGS74. 154See the proj docs and command line tool for list of possibilities ('proj -le'). 155 156=head3 R 157 158Radius of the Earth. 159 160=head3 R_A 161 162Radius of a sphere with equivalent surface area of specified ellipse. 163 164=head3 R_V 165 166Radius of a sphere with equivalent volume of specified ellipse. 167 168=head3 R_a 169 170Arithmetic mean of the major and minor axis, Ra = (a + b)/2. 171 172=head3 R_g 173 174Geometric mean of the major and minor axis, Rg = (ab)1/2. 175 176=head3 R_h 177 178Harmonic mean of the major and minor axis, Rh = 2ab/(a + b). 179 180=head3 R_lat_a=phi 181 182Arithmetic mean of the principle radii at latitude phi. 183 184=head3 R_lat_g=phi 185 186Geometric mean of the principle radii at latitude phi. 187 188=head3 b 189 190Semiminor axis or polar radius 191 192=head3 f 193 194Flattening 195 196=head3 rf 197 198Reciprocal flattening, +rf=1/f 199 200=head3 e 201 202Eccentricity +e=e 203 204=head3 es 205 206Eccentricity squared +es=e2 207 208=cut 209 210 211sub new 212{ 213 my $proto = shift; 214 my $sub = "PDL::Transform::Proj4::new()"; 215 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 216 my $class = ref($proto) || $proto; 217 my $self = $class->SUPER::new( @_ ); 218 219 bless ($self, $class); 220 221 my $o = $_[0]; 222 unless( (ref $o) ) 223 { $o = {@_}; } 224 225 #use Data::Dumper; 226 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 227 #$dd2->Indent(1); 228 #print STDERR $dd2->Dump(); 229 230 $self->{name} = "Proj4"; 231 232 # Grab our options: 233 234 # Used in the general sense: 235 $self->{params}->{proj_params} = PDL::Transform::_opt( $o, ['proj_params','params'] ); 236 237 # Projection options available to all projections: 238 $self->{general_params} = [ qw( proj x_0 y_0 lat_0 lon_0 units init ) ]; 239 foreach my $param ( @{ $self->{general_params} } ) 240 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 241 242 # Options that have no value (like "+over"): 243 $self->{bool_params} = [ qw( no_defs over geoc ) ]; 244 foreach my $param ( @{ $self->{bool_params} } ) 245 { $self->{params}->{$param} = ( PDL::Transform::_opt( $o, [ $param ] ) ) ? 'ON' : undef; } 246 247 # Options for the Earth figure: (ellipsoid, etc): 248 $self->{earth_params} = [ qw( ellps R R_A R_V R_a R_g R_h R_lat_a R_lat_g b f rf e es ) ]; 249 foreach my $param ( @{ $self->{earth_params} } ) 250 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 251 252 # First process the old params that may already be in the string: 253 # These override the specific params set above: 254 if( defined( $self->{params}->{proj_params} ) ) 255 { 256 $self->{orig_proj_params} = $self->{params}->{proj_params}; 257 258 my @params = split( /\s+/, $self->{orig_proj_params} ); 259 foreach my $param ( @params ) 260 { 261 if( $param =~ /^\+(\S+)=(\S+)/ ) 262 { 263 my ($name, $val) = ($1, $2); 264 $self->{params}->{$name} = $val; 265 #print STDERR "$sub: $name => $val\n"; 266 } 267 elsif( $param =~ /^\+(\S+)/ ) 268 { # Boolean option 269 $self->{params}->{$1} = 'ON'; 270 } 271 } 272 } 273 274 # Update the proj_string to current options: 275 # 276 $self->update_proj_string(); 277 278 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 279 #$dd->Indent(1); 280 #print STDERR $dd->Dump(); 281 282 ############################## 283 # The meat -- just copy and paste from Transform.pm :) 284 # (and do some proj stuff here as well) 285 286 # Forward transformation: 287 $self->{func} = sub 288 { 289 my $in = shift; 290 my $opt = shift; 291 my $sub = "PDL::Transform::Proj4->{func}()"; 292 293 my $out = $in->new_or_inplace(); 294 295 # Always set the badflag to 1 here, to handle possible bad projection values: 296 $out->badflag(1); 297 298 PDL::GIS::Proj::fwd_trans_inplace( $out->((0)), $out->((1)), $opt->{proj_params}, 1 ); 299 return $out; 300 }; 301 302 # Inverse transformation: 303 $self->{inv} = sub 304 { 305 my $in = shift; 306 my $opt = shift; 307 my $sub = "PDL::Transform::Proj4->{inv}()"; 308 309 my $out = $in->new_or_inplace(); 310 311 # Always set the badflag to 1 here, to handle possible bad projection values: 312 $out->badflag(1); 313 314 PDL::GIS::Proj::inv_trans_inplace( $out->((0)), $out->((1)), $opt->{proj_params}, 1 ); 315 return $out; 316 }; 317 318 return $self; 319} # End of new()... 320 321sub update_proj_string 322{ 323 my $self = shift; 324 my $sub = "PDL::Transform::Proj4::update_proj_string()"; 325 326 # (Re)Generate the proj_params string from the options passed: 327 # 328 delete( $self->{params}->{proj_params} ); 329 my $proj_string = ""; 330 331 foreach my $param ( keys %{ $self->{params} } ) 332 { 333 next unless defined( $self->{params}->{$param} ); 334 335 $proj_string .= ( $self->{params}->{$param} eq 'ON' ) 336 ? "+$param " : " +$param=" . $self->{params}->{$param} . " "; 337 #print STDERR "$sub: Adding \'$proj_string\'...\n"; 338 } 339 340 #print STDERR "$sub: Final proj_params: \'$proj_string\'\n"; 341 342 $self->{params}->{proj_params} = $proj_string; 343} # End of update_proj_string()... 344 345sub proj_params 346{ 347 my $self = shift; 348 $self->update_proj_string(); 349 return $self->{params}->{proj_params}; 350} # End of proj_params()... 351 352sub t_proj 353{ 354 PDL::Transform::Proj4->new( @_ ); 355} # End of t_proj()... 356 3571; 358 359 360 361 362 363 364 365 366=head1 FUNCTIONS 367 368=head2 t_proj 369 370This is the main entry point for the generalized interface. See above on its usage. 371 372=cut 373 374 375 376 377=head2 t_proj_aea 378 379Autogenerated transformation function for Proj4 projection code aea. 380 381The full name for this projection is Albers Equal Area. 382 383Projection Parameters 384 385=for options 386 387=over 4 388 389=item lat_1 390 391=item lat_2 392 393=back 394 395 396 397=cut 398 399 400sub t_proj_aea 401 { PDL::Transform::Proj4::aea->new( @_ ); } 402 403 404=head2 t_proj_aeqd 405 406Autogenerated transformation function for Proj4 projection code aeqd. 407 408The full name for this projection is Azimuthal Equidistant. 409 410Projection Parameters 411 412=for options 413 414=over 4 415 416=item guam 417 418=item lat_0 419 420=back 421 422 423 424=cut 425 426 427sub t_proj_aeqd 428 { PDL::Transform::Proj4::aeqd->new( @_ ); } 429 430 431=head2 t_proj_airy 432 433Autogenerated transformation function for Proj4 projection code airy. 434 435The full name for this projection is Airy. 436 437Projection Parameters 438 439=for options 440 441=over 4 442 443=item lat_b 444 445=item no_cut 446 447=back 448 449 450 451=cut 452 453 454sub t_proj_airy 455 { PDL::Transform::Proj4::airy->new( @_ ); } 456 457 458=head2 t_proj_aitoff 459 460Autogenerated transformation function for Proj4 projection code aitoff. 461 462The full name for this projection is Aitoff. 463 464 465=cut 466 467 468sub t_proj_aitoff 469 { PDL::Transform::Proj4::aitoff->new( @_ ); } 470 471 472=head2 t_proj_alsk 473 474Autogenerated transformation function for Proj4 projection code alsk. 475 476The full name for this projection is Mod. Stereographic of Alaska. 477 478 479=cut 480 481 482sub t_proj_alsk 483 { PDL::Transform::Proj4::alsk->new( @_ ); } 484 485 486=head2 t_proj_apian 487 488Autogenerated transformation function for Proj4 projection code apian. 489 490The full name for this projection is Apian Globular I. 491 492 493=cut 494 495 496sub t_proj_apian 497 { PDL::Transform::Proj4::apian->new( @_ ); } 498 499 500=head2 t_proj_august 501 502Autogenerated transformation function for Proj4 projection code august. 503 504The full name for this projection is August Epicycloidal. 505 506 507=cut 508 509 510sub t_proj_august 511 { PDL::Transform::Proj4::august->new( @_ ); } 512 513 514=head2 t_proj_bacon 515 516Autogenerated transformation function for Proj4 projection code bacon. 517 518The full name for this projection is Bacon Globular. 519 520 521=cut 522 523 524sub t_proj_bacon 525 { PDL::Transform::Proj4::bacon->new( @_ ); } 526 527 528=head2 t_proj_bipc 529 530Autogenerated transformation function for Proj4 projection code bipc. 531 532The full name for this projection is Bipolar conic of western hemisphere. 533 534 535=cut 536 537 538sub t_proj_bipc 539 { PDL::Transform::Proj4::bipc->new( @_ ); } 540 541 542=head2 t_proj_boggs 543 544Autogenerated transformation function for Proj4 projection code boggs. 545 546The full name for this projection is Boggs Eumorphic. 547 548 549=cut 550 551 552sub t_proj_boggs 553 { PDL::Transform::Proj4::boggs->new( @_ ); } 554 555 556=head2 t_proj_bonne 557 558Autogenerated transformation function for Proj4 projection code bonne. 559 560The full name for this projection is Bonne (Werner lat_1=90). 561 562Projection Parameters 563 564=for options 565 566=over 4 567 568=item lat_1 569 570=back 571 572 573 574=cut 575 576 577sub t_proj_bonne 578 { PDL::Transform::Proj4::bonne->new( @_ ); } 579 580 581=head2 t_proj_calcofi 582 583Autogenerated transformation function for Proj4 projection code calcofi. 584 585The full name for this projection is Cal Coop Ocean Fish Invest Lines/Stations. 586 587 588=cut 589 590 591sub t_proj_calcofi 592 { PDL::Transform::Proj4::calcofi->new( @_ ); } 593 594 595=head2 t_proj_cass 596 597Autogenerated transformation function for Proj4 projection code cass. 598 599The full name for this projection is Cassini. 600 601 602=cut 603 604 605sub t_proj_cass 606 { PDL::Transform::Proj4::cass->new( @_ ); } 607 608 609=head2 t_proj_cc 610 611Autogenerated transformation function for Proj4 projection code cc. 612 613The full name for this projection is Central Cylindrical. 614 615 616=cut 617 618 619sub t_proj_cc 620 { PDL::Transform::Proj4::cc->new( @_ ); } 621 622 623=head2 t_proj_cea 624 625Autogenerated transformation function for Proj4 projection code cea. 626 627The full name for this projection is Equal Area Cylindrical. 628 629Projection Parameters 630 631=for options 632 633=over 4 634 635=item lat_ts 636 637=back 638 639 640 641=cut 642 643 644sub t_proj_cea 645 { PDL::Transform::Proj4::cea->new( @_ ); } 646 647 648=head2 t_proj_chamb 649 650Autogenerated transformation function for Proj4 projection code chamb. 651 652The full name for this projection is Chamberlin Trimetric. 653 654Projection Parameters 655 656=for options 657 658=over 4 659 660=item lat_1 661 662=item lat_2 663 664=item lat_3 665 666=item lon_1 667 668=item lon_2 669 670=item lon_3 671 672=back 673 674 675 676=cut 677 678 679sub t_proj_chamb 680 { PDL::Transform::Proj4::chamb->new( @_ ); } 681 682 683=head2 t_proj_collg 684 685Autogenerated transformation function for Proj4 projection code collg. 686 687The full name for this projection is Collignon. 688 689 690=cut 691 692 693sub t_proj_collg 694 { PDL::Transform::Proj4::collg->new( @_ ); } 695 696 697=head2 t_proj_comill 698 699Autogenerated transformation function for Proj4 projection code comill. 700 701The full name for this projection is Compact Miller. 702 703 704=cut 705 706 707sub t_proj_comill 708 { PDL::Transform::Proj4::comill->new( @_ ); } 709 710 711=head2 t_proj_crast 712 713Autogenerated transformation function for Proj4 projection code crast. 714 715The full name for this projection is Craster Parabolic (Putnins P4). 716 717 718=cut 719 720 721sub t_proj_crast 722 { PDL::Transform::Proj4::crast->new( @_ ); } 723 724 725=head2 t_proj_denoy 726 727Autogenerated transformation function for Proj4 projection code denoy. 728 729The full name for this projection is Denoyer Semi-Elliptical. 730 731 732=cut 733 734 735sub t_proj_denoy 736 { PDL::Transform::Proj4::denoy->new( @_ ); } 737 738 739=head2 t_proj_eck1 740 741Autogenerated transformation function for Proj4 projection code eck1. 742 743The full name for this projection is Eckert I. 744 745 746=cut 747 748 749sub t_proj_eck1 750 { PDL::Transform::Proj4::eck1->new( @_ ); } 751 752 753=head2 t_proj_eck2 754 755Autogenerated transformation function for Proj4 projection code eck2. 756 757The full name for this projection is Eckert II. 758 759 760=cut 761 762 763sub t_proj_eck2 764 { PDL::Transform::Proj4::eck2->new( @_ ); } 765 766 767=head2 t_proj_eck3 768 769Autogenerated transformation function for Proj4 projection code eck3. 770 771The full name for this projection is Eckert III. 772 773 774=cut 775 776 777sub t_proj_eck3 778 { PDL::Transform::Proj4::eck3->new( @_ ); } 779 780 781=head2 t_proj_eck4 782 783Autogenerated transformation function for Proj4 projection code eck4. 784 785The full name for this projection is Eckert IV. 786 787 788=cut 789 790 791sub t_proj_eck4 792 { PDL::Transform::Proj4::eck4->new( @_ ); } 793 794 795=head2 t_proj_eck5 796 797Autogenerated transformation function for Proj4 projection code eck5. 798 799The full name for this projection is Eckert V. 800 801 802=cut 803 804 805sub t_proj_eck5 806 { PDL::Transform::Proj4::eck5->new( @_ ); } 807 808 809=head2 t_proj_eck6 810 811Autogenerated transformation function for Proj4 projection code eck6. 812 813The full name for this projection is Eckert VI. 814 815 816=cut 817 818 819sub t_proj_eck6 820 { PDL::Transform::Proj4::eck6->new( @_ ); } 821 822 823=head2 t_proj_eqc 824 825Autogenerated transformation function for Proj4 projection code eqc. 826 827The full name for this projection is Equidistant Cylindrical (Plate Caree). 828 829Projection Parameters 830 831=for options 832 833=over 4 834 835=item lat_00 836 837=item lat_ts 838 839=back 840 841 842 843=cut 844 845 846sub t_proj_eqc 847 { PDL::Transform::Proj4::eqc->new( @_ ); } 848 849 850=head2 t_proj_eqdc 851 852Autogenerated transformation function for Proj4 projection code eqdc. 853 854The full name for this projection is Equidistant Conic. 855 856Projection Parameters 857 858=for options 859 860=over 4 861 862=item lat_1 863 864=item lat_2 865 866=back 867 868 869 870=cut 871 872 873sub t_proj_eqdc 874 { PDL::Transform::Proj4::eqdc->new( @_ ); } 875 876 877=head2 t_proj_etmerc 878 879Autogenerated transformation function for Proj4 projection code etmerc. 880 881The full name for this projection is Extended Transverse Mercator. 882 883Projection Parameters 884 885=for options 886 887=over 4 888 889=item lat_0(0) 890 891=item lat_ts(0) 892 893=back 894 895 896 897=cut 898 899 900sub t_proj_etmerc 901 { PDL::Transform::Proj4::etmerc->new( @_ ); } 902 903 904=head2 t_proj_euler 905 906Autogenerated transformation function for Proj4 projection code euler. 907 908The full name for this projection is Euler. 909 910Projection Parameters 911 912=for options 913 914=over 4 915 916=item lat_1 917 918=item lat_2 919 920=back 921 922 923 924=cut 925 926 927sub t_proj_euler 928 { PDL::Transform::Proj4::euler->new( @_ ); } 929 930 931=head2 t_proj_fahey 932 933Autogenerated transformation function for Proj4 projection code fahey. 934 935The full name for this projection is Fahey. 936 937 938=cut 939 940 941sub t_proj_fahey 942 { PDL::Transform::Proj4::fahey->new( @_ ); } 943 944 945=head2 t_proj_fouc 946 947Autogenerated transformation function for Proj4 projection code fouc. 948 949The full name for this projection is Foucaut. 950 951 952=cut 953 954 955sub t_proj_fouc 956 { PDL::Transform::Proj4::fouc->new( @_ ); } 957 958 959=head2 t_proj_fouc_s 960 961Autogenerated transformation function for Proj4 projection code fouc_s. 962 963The full name for this projection is Foucaut Sinusoidal. 964 965 966=cut 967 968 969sub t_proj_fouc_s 970 { PDL::Transform::Proj4::fouc_s->new( @_ ); } 971 972 973=head2 t_proj_gall 974 975Autogenerated transformation function for Proj4 projection code gall. 976 977The full name for this projection is Gall (Gall Stereographic). 978 979 980=cut 981 982 983sub t_proj_gall 984 { PDL::Transform::Proj4::gall->new( @_ ); } 985 986 987=head2 t_proj_geocent 988 989Autogenerated transformation function for Proj4 projection code geocent. 990 991The full name for this projection is Geocentric. 992 993 994=cut 995 996 997sub t_proj_geocent 998 { PDL::Transform::Proj4::geocent->new( @_ ); } 999 1000 1001=head2 t_proj_geos 1002 1003Autogenerated transformation function for Proj4 projection code geos. 1004 1005The full name for this projection is Geostationary Satellite View. 1006 1007Projection Parameters 1008 1009=for options 1010 1011=over 4 1012 1013=item h 1014 1015=back 1016 1017 1018 1019=cut 1020 1021 1022sub t_proj_geos 1023 { PDL::Transform::Proj4::geos->new( @_ ); } 1024 1025 1026=head2 t_proj_gins8 1027 1028Autogenerated transformation function for Proj4 projection code gins8. 1029 1030The full name for this projection is Ginsburg VIII (TsNIIGAiK). 1031 1032 1033=cut 1034 1035 1036sub t_proj_gins8 1037 { PDL::Transform::Proj4::gins8->new( @_ ); } 1038 1039 1040=head2 t_proj_gn_sinu 1041 1042Autogenerated transformation function for Proj4 projection code gn_sinu. 1043 1044The full name for this projection is General Sinusoidal Series. 1045 1046Projection Parameters 1047 1048=for options 1049 1050=over 4 1051 1052=item m 1053 1054=item n 1055 1056=back 1057 1058 1059 1060=cut 1061 1062 1063sub t_proj_gn_sinu 1064 { PDL::Transform::Proj4::gn_sinu->new( @_ ); } 1065 1066 1067=head2 t_proj_gnom 1068 1069Autogenerated transformation function for Proj4 projection code gnom. 1070 1071The full name for this projection is Gnomonic. 1072 1073 1074=cut 1075 1076 1077sub t_proj_gnom 1078 { PDL::Transform::Proj4::gnom->new( @_ ); } 1079 1080 1081=head2 t_proj_goode 1082 1083Autogenerated transformation function for Proj4 projection code goode. 1084 1085The full name for this projection is Goode Homolosine. 1086 1087 1088=cut 1089 1090 1091sub t_proj_goode 1092 { PDL::Transform::Proj4::goode->new( @_ ); } 1093 1094 1095=head2 t_proj_gs48 1096 1097Autogenerated transformation function for Proj4 projection code gs48. 1098 1099The full name for this projection is Mod. Stereographic of 48 U.S.. 1100 1101 1102=cut 1103 1104 1105sub t_proj_gs48 1106 { PDL::Transform::Proj4::gs48->new( @_ ); } 1107 1108 1109=head2 t_proj_gs50 1110 1111Autogenerated transformation function for Proj4 projection code gs50. 1112 1113The full name for this projection is Mod. Stereographic of 50 U.S.. 1114 1115 1116=cut 1117 1118 1119sub t_proj_gs50 1120 { PDL::Transform::Proj4::gs50->new( @_ ); } 1121 1122 1123=head2 t_proj_gstmerc 1124 1125Autogenerated transformation function for Proj4 projection code gstmerc. 1126 1127The full name for this projection is Gauss-Schreiber Transverse Mercator (aka Gauss-Laborde Reunion). 1128 1129Projection Parameters 1130 1131=for options 1132 1133=over 4 1134 1135=item k_0 1136 1137=item lat_0 1138 1139=item lon_0 1140 1141=back 1142 1143 1144 1145=cut 1146 1147 1148sub t_proj_gstmerc 1149 { PDL::Transform::Proj4::gstmerc->new( @_ ); } 1150 1151 1152=head2 t_proj_hammer 1153 1154Autogenerated transformation function for Proj4 projection code hammer. 1155 1156The full name for this projection is Hammer & Eckert-Greifendorff. 1157 1158Projection Parameters 1159 1160=for options 1161 1162=over 4 1163 1164=item M 1165 1166=item W 1167 1168=back 1169 1170 1171 1172=cut 1173 1174 1175sub t_proj_hammer 1176 { PDL::Transform::Proj4::hammer->new( @_ ); } 1177 1178 1179=head2 t_proj_hatano 1180 1181Autogenerated transformation function for Proj4 projection code hatano. 1182 1183The full name for this projection is Hatano Asymmetrical Equal Area. 1184 1185 1186=cut 1187 1188 1189sub t_proj_hatano 1190 { PDL::Transform::Proj4::hatano->new( @_ ); } 1191 1192 1193=head2 t_proj_healpix 1194 1195Autogenerated transformation function for Proj4 projection code healpix. 1196 1197The full name for this projection is HEALPix. 1198 1199 1200=cut 1201 1202 1203sub t_proj_healpix 1204 { PDL::Transform::Proj4::healpix->new( @_ ); } 1205 1206 1207=head2 t_proj_igh 1208 1209Autogenerated transformation function for Proj4 projection code igh. 1210 1211The full name for this projection is Interrupted Goode Homolosine. 1212 1213 1214=cut 1215 1216 1217sub t_proj_igh 1218 { PDL::Transform::Proj4::igh->new( @_ ); } 1219 1220 1221=head2 t_proj_imw_p 1222 1223Autogenerated transformation function for Proj4 projection code imw_p. 1224 1225The full name for this projection is International Map of the World Polyconic. 1226 1227Projection Parameters 1228 1229=for options 1230 1231=over 4 1232 1233=item lat_1 1234 1235=item lat_2 1236 1237=item lon_1 1238 1239=back 1240 1241 1242 1243=cut 1244 1245 1246sub t_proj_imw_p 1247 { PDL::Transform::Proj4::imw_p->new( @_ ); } 1248 1249 1250=head2 t_proj_isea 1251 1252Autogenerated transformation function for Proj4 projection code isea. 1253 1254The full name for this projection is Icosahedral Snyder Equal Area. 1255 1256 1257=cut 1258 1259 1260sub t_proj_isea 1261 { PDL::Transform::Proj4::isea->new( @_ ); } 1262 1263 1264=head2 t_proj_kav5 1265 1266Autogenerated transformation function for Proj4 projection code kav5. 1267 1268The full name for this projection is Kavraisky V. 1269 1270 1271=cut 1272 1273 1274sub t_proj_kav5 1275 { PDL::Transform::Proj4::kav5->new( @_ ); } 1276 1277 1278=head2 t_proj_kav7 1279 1280Autogenerated transformation function for Proj4 projection code kav7. 1281 1282The full name for this projection is Kavraisky VII. 1283 1284 1285=cut 1286 1287 1288sub t_proj_kav7 1289 { PDL::Transform::Proj4::kav7->new( @_ ); } 1290 1291 1292=head2 t_proj_krovak 1293 1294Autogenerated transformation function for Proj4 projection code krovak. 1295 1296The full name for this projection is Krovak. 1297 1298 1299=cut 1300 1301 1302sub t_proj_krovak 1303 { PDL::Transform::Proj4::krovak->new( @_ ); } 1304 1305 1306=head2 t_proj_labrd 1307 1308Autogenerated transformation function for Proj4 projection code labrd. 1309 1310The full name for this projection is Laborde. 1311 1312 1313=cut 1314 1315 1316sub t_proj_labrd 1317 { PDL::Transform::Proj4::labrd->new( @_ ); } 1318 1319 1320=head2 t_proj_laea 1321 1322Autogenerated transformation function for Proj4 projection code laea. 1323 1324The full name for this projection is Lambert Azimuthal Equal Area. 1325 1326 1327=cut 1328 1329 1330sub t_proj_laea 1331 { PDL::Transform::Proj4::laea->new( @_ ); } 1332 1333 1334=head2 t_proj_lagrng 1335 1336Autogenerated transformation function for Proj4 projection code lagrng. 1337 1338The full name for this projection is Lagrange. 1339 1340Projection Parameters 1341 1342=for options 1343 1344=over 4 1345 1346=item W 1347 1348=back 1349 1350 1351 1352=cut 1353 1354 1355sub t_proj_lagrng 1356 { PDL::Transform::Proj4::lagrng->new( @_ ); } 1357 1358 1359=head2 t_proj_larr 1360 1361Autogenerated transformation function for Proj4 projection code larr. 1362 1363The full name for this projection is Larrivee. 1364 1365 1366=cut 1367 1368 1369sub t_proj_larr 1370 { PDL::Transform::Proj4::larr->new( @_ ); } 1371 1372 1373=head2 t_proj_lask 1374 1375Autogenerated transformation function for Proj4 projection code lask. 1376 1377The full name for this projection is Laskowski. 1378 1379 1380=cut 1381 1382 1383sub t_proj_lask 1384 { PDL::Transform::Proj4::lask->new( @_ ); } 1385 1386 1387=head2 t_proj_latlon 1388 1389Autogenerated transformation function for Proj4 projection code latlon. 1390 1391The full name for this projection is Lat/long (Geodetic alias). 1392 1393 1394=cut 1395 1396 1397sub t_proj_latlon 1398 { PDL::Transform::Proj4::latlon->new( @_ ); } 1399 1400 1401=head2 t_proj_latlong 1402 1403Autogenerated transformation function for Proj4 projection code latlong. 1404 1405The full name for this projection is Lat/long (Geodetic alias). 1406 1407 1408=cut 1409 1410 1411sub t_proj_latlong 1412 { PDL::Transform::Proj4::latlong->new( @_ ); } 1413 1414 1415=head2 t_proj_lcc 1416 1417Autogenerated transformation function for Proj4 projection code lcc. 1418 1419The full name for this projection is Lambert Conformal Conic. 1420 1421Projection Parameters 1422 1423=for options 1424 1425=over 4 1426 1427=item lat_0 1428 1429=item lat_1 1430 1431=item lat_2 1432 1433=back 1434 1435 1436 1437=cut 1438 1439 1440sub t_proj_lcc 1441 { PDL::Transform::Proj4::lcc->new( @_ ); } 1442 1443 1444=head2 t_proj_lcca 1445 1446Autogenerated transformation function for Proj4 projection code lcca. 1447 1448The full name for this projection is Lambert Conformal Conic Alternative. 1449 1450Projection Parameters 1451 1452=for options 1453 1454=over 4 1455 1456=item lat_0 1457 1458=back 1459 1460 1461 1462=cut 1463 1464 1465sub t_proj_lcca 1466 { PDL::Transform::Proj4::lcca->new( @_ ); } 1467 1468 1469=head2 t_proj_leac 1470 1471Autogenerated transformation function for Proj4 projection code leac. 1472 1473The full name for this projection is Lambert Equal Area Conic. 1474 1475Projection Parameters 1476 1477=for options 1478 1479=over 4 1480 1481=item lat_1 1482 1483=item south 1484 1485=back 1486 1487 1488 1489=cut 1490 1491 1492sub t_proj_leac 1493 { PDL::Transform::Proj4::leac->new( @_ ); } 1494 1495 1496=head2 t_proj_lee_os 1497 1498Autogenerated transformation function for Proj4 projection code lee_os. 1499 1500The full name for this projection is Lee Oblated Stereographic. 1501 1502 1503=cut 1504 1505 1506sub t_proj_lee_os 1507 { PDL::Transform::Proj4::lee_os->new( @_ ); } 1508 1509 1510=head2 t_proj_longlat 1511 1512Autogenerated transformation function for Proj4 projection code longlat. 1513 1514The full name for this projection is Lat/long (Geodetic alias). 1515 1516 1517=cut 1518 1519 1520sub t_proj_longlat 1521 { PDL::Transform::Proj4::longlat->new( @_ ); } 1522 1523 1524=head2 t_proj_lonlat 1525 1526Autogenerated transformation function for Proj4 projection code lonlat. 1527 1528The full name for this projection is Lat/long (Geodetic). 1529 1530 1531=cut 1532 1533 1534sub t_proj_lonlat 1535 { PDL::Transform::Proj4::lonlat->new( @_ ); } 1536 1537 1538=head2 t_proj_loxim 1539 1540Autogenerated transformation function for Proj4 projection code loxim. 1541 1542The full name for this projection is Loximuthal. 1543 1544 1545=cut 1546 1547 1548sub t_proj_loxim 1549 { PDL::Transform::Proj4::loxim->new( @_ ); } 1550 1551 1552=head2 t_proj_lsat 1553 1554Autogenerated transformation function for Proj4 projection code lsat. 1555 1556The full name for this projection is Space oblique for LANDSAT. 1557 1558Projection Parameters 1559 1560=for options 1561 1562=over 4 1563 1564=item lsat 1565 1566=item path 1567 1568=back 1569 1570 1571 1572=cut 1573 1574 1575sub t_proj_lsat 1576 { PDL::Transform::Proj4::lsat->new( @_ ); } 1577 1578 1579=head2 t_proj_mbt_fps 1580 1581Autogenerated transformation function for Proj4 projection code mbt_fps. 1582 1583The full name for this projection is McBryde-Thomas Flat-Pole Sine (No. 2). 1584 1585 1586=cut 1587 1588 1589sub t_proj_mbt_fps 1590 { PDL::Transform::Proj4::mbt_fps->new( @_ ); } 1591 1592 1593=head2 t_proj_mbt_s 1594 1595Autogenerated transformation function for Proj4 projection code mbt_s. 1596 1597The full name for this projection is McBryde-Thomas Flat-Polar Sine (No. 1). 1598 1599 1600=cut 1601 1602 1603sub t_proj_mbt_s 1604 { PDL::Transform::Proj4::mbt_s->new( @_ ); } 1605 1606 1607=head2 t_proj_mbtfpp 1608 1609Autogenerated transformation function for Proj4 projection code mbtfpp. 1610 1611The full name for this projection is McBride-Thomas Flat-Polar Parabolic. 1612 1613 1614=cut 1615 1616 1617sub t_proj_mbtfpp 1618 { PDL::Transform::Proj4::mbtfpp->new( @_ ); } 1619 1620 1621=head2 t_proj_mbtfpq 1622 1623Autogenerated transformation function for Proj4 projection code mbtfpq. 1624 1625The full name for this projection is McBryde-Thomas Flat-Polar Quartic. 1626 1627 1628=cut 1629 1630 1631sub t_proj_mbtfpq 1632 { PDL::Transform::Proj4::mbtfpq->new( @_ ); } 1633 1634 1635=head2 t_proj_mbtfps 1636 1637Autogenerated transformation function for Proj4 projection code mbtfps. 1638 1639The full name for this projection is McBryde-Thomas Flat-Polar Sinusoidal. 1640 1641 1642=cut 1643 1644 1645sub t_proj_mbtfps 1646 { PDL::Transform::Proj4::mbtfps->new( @_ ); } 1647 1648 1649=head2 t_proj_merc 1650 1651Autogenerated transformation function for Proj4 projection code merc. 1652 1653The full name for this projection is Mercator. 1654 1655Projection Parameters 1656 1657=for options 1658 1659=over 4 1660 1661=item lat_ts 1662 1663=back 1664 1665 1666 1667=cut 1668 1669 1670sub t_proj_merc 1671 { PDL::Transform::Proj4::merc->new( @_ ); } 1672 1673 1674=head2 t_proj_mil_os 1675 1676Autogenerated transformation function for Proj4 projection code mil_os. 1677 1678The full name for this projection is Miller Oblated Stereographic. 1679 1680 1681=cut 1682 1683 1684sub t_proj_mil_os 1685 { PDL::Transform::Proj4::mil_os->new( @_ ); } 1686 1687 1688=head2 t_proj_mill 1689 1690Autogenerated transformation function for Proj4 projection code mill. 1691 1692The full name for this projection is Miller Cylindrical. 1693 1694 1695=cut 1696 1697 1698sub t_proj_mill 1699 { PDL::Transform::Proj4::mill->new( @_ ); } 1700 1701 1702=head2 t_proj_misrsom 1703 1704Autogenerated transformation function for Proj4 projection code misrsom. 1705 1706The full name for this projection is Space oblique for MISR. 1707 1708Projection Parameters 1709 1710=for options 1711 1712=over 4 1713 1714=item path 1715 1716=back 1717 1718 1719 1720=cut 1721 1722 1723sub t_proj_misrsom 1724 { PDL::Transform::Proj4::misrsom->new( @_ ); } 1725 1726 1727=head2 t_proj_moll 1728 1729Autogenerated transformation function for Proj4 projection code moll. 1730 1731The full name for this projection is Mollweide. 1732 1733 1734=cut 1735 1736 1737sub t_proj_moll 1738 { PDL::Transform::Proj4::moll->new( @_ ); } 1739 1740 1741=head2 t_proj_murd1 1742 1743Autogenerated transformation function for Proj4 projection code murd1. 1744 1745The full name for this projection is Murdoch I. 1746 1747Projection Parameters 1748 1749=for options 1750 1751=over 4 1752 1753=item lat_1 1754 1755=item lat_2 1756 1757=back 1758 1759 1760 1761=cut 1762 1763 1764sub t_proj_murd1 1765 { PDL::Transform::Proj4::murd1->new( @_ ); } 1766 1767 1768=head2 t_proj_murd2 1769 1770Autogenerated transformation function for Proj4 projection code murd2. 1771 1772The full name for this projection is Murdoch II. 1773 1774Projection Parameters 1775 1776=for options 1777 1778=over 4 1779 1780=item lat_1 1781 1782=item lat_2 1783 1784=back 1785 1786 1787 1788=cut 1789 1790 1791sub t_proj_murd2 1792 { PDL::Transform::Proj4::murd2->new( @_ ); } 1793 1794 1795=head2 t_proj_murd3 1796 1797Autogenerated transformation function for Proj4 projection code murd3. 1798 1799The full name for this projection is Murdoch III. 1800 1801Projection Parameters 1802 1803=for options 1804 1805=over 4 1806 1807=item lat_1 1808 1809=item lat_2 1810 1811=back 1812 1813 1814 1815=cut 1816 1817 1818sub t_proj_murd3 1819 { PDL::Transform::Proj4::murd3->new( @_ ); } 1820 1821 1822=head2 t_proj_natearth 1823 1824Autogenerated transformation function for Proj4 projection code natearth. 1825 1826The full name for this projection is Natural Earth. 1827 1828 1829=cut 1830 1831 1832sub t_proj_natearth 1833 { PDL::Transform::Proj4::natearth->new( @_ ); } 1834 1835 1836=head2 t_proj_natearth2 1837 1838Autogenerated transformation function for Proj4 projection code natearth2. 1839 1840The full name for this projection is Natural Earth 2. 1841 1842 1843=cut 1844 1845 1846sub t_proj_natearth2 1847 { PDL::Transform::Proj4::natearth2->new( @_ ); } 1848 1849 1850=head2 t_proj_nell 1851 1852Autogenerated transformation function for Proj4 projection code nell. 1853 1854The full name for this projection is Nell. 1855 1856 1857=cut 1858 1859 1860sub t_proj_nell 1861 { PDL::Transform::Proj4::nell->new( @_ ); } 1862 1863 1864=head2 t_proj_nell_h 1865 1866Autogenerated transformation function for Proj4 projection code nell_h. 1867 1868The full name for this projection is Nell-Hammer. 1869 1870 1871=cut 1872 1873 1874sub t_proj_nell_h 1875 { PDL::Transform::Proj4::nell_h->new( @_ ); } 1876 1877 1878=head2 t_proj_nicol 1879 1880Autogenerated transformation function for Proj4 projection code nicol. 1881 1882The full name for this projection is Nicolosi Globular. 1883 1884 1885=cut 1886 1887 1888sub t_proj_nicol 1889 { PDL::Transform::Proj4::nicol->new( @_ ); } 1890 1891 1892=head2 t_proj_nsper 1893 1894Autogenerated transformation function for Proj4 projection code nsper. 1895 1896The full name for this projection is Near-sided perspective. 1897 1898Projection Parameters 1899 1900=for options 1901 1902=over 4 1903 1904=item h 1905 1906=back 1907 1908 1909 1910=cut 1911 1912 1913sub t_proj_nsper 1914 { PDL::Transform::Proj4::nsper->new( @_ ); } 1915 1916 1917=head2 t_proj_nzmg 1918 1919Autogenerated transformation function for Proj4 projection code nzmg. 1920 1921The full name for this projection is New Zealand Map Grid. 1922 1923 1924=cut 1925 1926 1927sub t_proj_nzmg 1928 { PDL::Transform::Proj4::nzmg->new( @_ ); } 1929 1930 1931=head2 t_proj_ob_tran 1932 1933Autogenerated transformation function for Proj4 projection code ob_tran. 1934 1935The full name for this projection is General Oblique Transformation. 1936 1937Projection Parameters 1938 1939=for options 1940 1941=over 4 1942 1943=item o_alpha 1944 1945=item o_lat_1 1946 1947=item o_lat_2 1948 1949=item o_lat_c 1950 1951=item o_lat_p 1952 1953=item o_lon_1 1954 1955=item o_lon_2 1956 1957=item o_lon_c 1958 1959=item o_lon_p 1960 1961=item o_proj 1962 1963=back 1964 1965 1966 1967=cut 1968 1969 1970sub t_proj_ob_tran 1971 { PDL::Transform::Proj4::ob_tran->new( @_ ); } 1972 1973 1974=head2 t_proj_ocea 1975 1976Autogenerated transformation function for Proj4 projection code ocea. 1977 1978The full name for this projection is Oblique Cylindrical Equal Area. 1979 1980Projection Parameters 1981 1982=for options 1983 1984=over 4 1985 1986=item lat_1 1987 1988=item lat_2 1989 1990=item lon_1 1991 1992=item lon_2 1993 1994=back 1995 1996 1997 1998=cut 1999 2000 2001sub t_proj_ocea 2002 { PDL::Transform::Proj4::ocea->new( @_ ); } 2003 2004 2005=head2 t_proj_oea 2006 2007Autogenerated transformation function for Proj4 projection code oea. 2008 2009The full name for this projection is Oblated Equal Area. 2010 2011Projection Parameters 2012 2013=for options 2014 2015=over 4 2016 2017=item m 2018 2019=item n 2020 2021=item theta 2022 2023=back 2024 2025 2026 2027=cut 2028 2029 2030sub t_proj_oea 2031 { PDL::Transform::Proj4::oea->new( @_ ); } 2032 2033 2034=head2 t_proj_omerc 2035 2036Autogenerated transformation function for Proj4 projection code omerc. 2037 2038The full name for this projection is Oblique Mercator. 2039 2040Projection Parameters 2041 2042=for options 2043 2044=over 4 2045 2046=item alpha 2047 2048=item gamma 2049 2050=item lat_1 2051 2052=item lat_2 2053 2054=item lon_1 2055 2056=item lon_2 2057 2058=item lonc 2059 2060=item no_off 2061 2062=back 2063 2064 2065 2066=cut 2067 2068 2069sub t_proj_omerc 2070 { PDL::Transform::Proj4::omerc->new( @_ ); } 2071 2072 2073=head2 t_proj_ortel 2074 2075Autogenerated transformation function for Proj4 projection code ortel. 2076 2077The full name for this projection is Ortelius Oval. 2078 2079 2080=cut 2081 2082 2083sub t_proj_ortel 2084 { PDL::Transform::Proj4::ortel->new( @_ ); } 2085 2086 2087=head2 t_proj_ortho 2088 2089Autogenerated transformation function for Proj4 projection code ortho. 2090 2091The full name for this projection is Orthographic. 2092 2093 2094=cut 2095 2096 2097sub t_proj_ortho 2098 { PDL::Transform::Proj4::ortho->new( @_ ); } 2099 2100 2101=head2 t_proj_patterson 2102 2103Autogenerated transformation function for Proj4 projection code patterson. 2104 2105The full name for this projection is Patterson Cylindrical. 2106 2107 2108=cut 2109 2110 2111sub t_proj_patterson 2112 { PDL::Transform::Proj4::patterson->new( @_ ); } 2113 2114 2115=head2 t_proj_pconic 2116 2117Autogenerated transformation function for Proj4 projection code pconic. 2118 2119The full name for this projection is Perspective Conic. 2120 2121Projection Parameters 2122 2123=for options 2124 2125=over 4 2126 2127=item lat_1 2128 2129=item lat_2 2130 2131=back 2132 2133 2134 2135=cut 2136 2137 2138sub t_proj_pconic 2139 { PDL::Transform::Proj4::pconic->new( @_ ); } 2140 2141 2142=head2 t_proj_poly 2143 2144Autogenerated transformation function for Proj4 projection code poly. 2145 2146The full name for this projection is Polyconic (American). 2147 2148 2149=cut 2150 2151 2152sub t_proj_poly 2153 { PDL::Transform::Proj4::poly->new( @_ ); } 2154 2155 2156=head2 t_proj_putp1 2157 2158Autogenerated transformation function for Proj4 projection code putp1. 2159 2160The full name for this projection is Putnins P1. 2161 2162 2163=cut 2164 2165 2166sub t_proj_putp1 2167 { PDL::Transform::Proj4::putp1->new( @_ ); } 2168 2169 2170=head2 t_proj_putp2 2171 2172Autogenerated transformation function for Proj4 projection code putp2. 2173 2174The full name for this projection is Putnins P2. 2175 2176 2177=cut 2178 2179 2180sub t_proj_putp2 2181 { PDL::Transform::Proj4::putp2->new( @_ ); } 2182 2183 2184=head2 t_proj_putp3 2185 2186Autogenerated transformation function for Proj4 projection code putp3. 2187 2188The full name for this projection is Putnins P3. 2189 2190 2191=cut 2192 2193 2194sub t_proj_putp3 2195 { PDL::Transform::Proj4::putp3->new( @_ ); } 2196 2197 2198=head2 t_proj_putp3p 2199 2200Autogenerated transformation function for Proj4 projection code putp3p. 2201 2202The full name for this projection is Putnins P3'. 2203 2204 2205=cut 2206 2207 2208sub t_proj_putp3p 2209 { PDL::Transform::Proj4::putp3p->new( @_ ); } 2210 2211 2212=head2 t_proj_putp4p 2213 2214Autogenerated transformation function for Proj4 projection code putp4p. 2215 2216The full name for this projection is Putnins P4'. 2217 2218 2219=cut 2220 2221 2222sub t_proj_putp4p 2223 { PDL::Transform::Proj4::putp4p->new( @_ ); } 2224 2225 2226=head2 t_proj_putp5 2227 2228Autogenerated transformation function for Proj4 projection code putp5. 2229 2230The full name for this projection is Putnins P5. 2231 2232 2233=cut 2234 2235 2236sub t_proj_putp5 2237 { PDL::Transform::Proj4::putp5->new( @_ ); } 2238 2239 2240=head2 t_proj_putp5p 2241 2242Autogenerated transformation function for Proj4 projection code putp5p. 2243 2244The full name for this projection is Putnins P5'. 2245 2246 2247=cut 2248 2249 2250sub t_proj_putp5p 2251 { PDL::Transform::Proj4::putp5p->new( @_ ); } 2252 2253 2254=head2 t_proj_putp6 2255 2256Autogenerated transformation function for Proj4 projection code putp6. 2257 2258The full name for this projection is Putnins P6. 2259 2260 2261=cut 2262 2263 2264sub t_proj_putp6 2265 { PDL::Transform::Proj4::putp6->new( @_ ); } 2266 2267 2268=head2 t_proj_putp6p 2269 2270Autogenerated transformation function for Proj4 projection code putp6p. 2271 2272The full name for this projection is Putnins P6'. 2273 2274 2275=cut 2276 2277 2278sub t_proj_putp6p 2279 { PDL::Transform::Proj4::putp6p->new( @_ ); } 2280 2281 2282=head2 t_proj_qsc 2283 2284Autogenerated transformation function for Proj4 projection code qsc. 2285 2286The full name for this projection is Quadrilateralized Spherical Cube. 2287 2288 2289=cut 2290 2291 2292sub t_proj_qsc 2293 { PDL::Transform::Proj4::qsc->new( @_ ); } 2294 2295 2296=head2 t_proj_qua_aut 2297 2298Autogenerated transformation function for Proj4 projection code qua_aut. 2299 2300The full name for this projection is Quartic Authalic. 2301 2302 2303=cut 2304 2305 2306sub t_proj_qua_aut 2307 { PDL::Transform::Proj4::qua_aut->new( @_ ); } 2308 2309 2310=head2 t_proj_rhealpix 2311 2312Autogenerated transformation function for Proj4 projection code rhealpix. 2313 2314The full name for this projection is rHEALPix. 2315 2316Projection Parameters 2317 2318=for options 2319 2320=over 4 2321 2322=item south_square 2323 2324=back 2325 2326 2327 2328=cut 2329 2330 2331sub t_proj_rhealpix 2332 { PDL::Transform::Proj4::rhealpix->new( @_ ); } 2333 2334 2335=head2 t_proj_robin 2336 2337Autogenerated transformation function for Proj4 projection code robin. 2338 2339The full name for this projection is Robinson. 2340 2341 2342=cut 2343 2344 2345sub t_proj_robin 2346 { PDL::Transform::Proj4::robin->new( @_ ); } 2347 2348 2349=head2 t_proj_rouss 2350 2351Autogenerated transformation function for Proj4 projection code rouss. 2352 2353The full name for this projection is Roussilhe Stereographic. 2354 2355 2356=cut 2357 2358 2359sub t_proj_rouss 2360 { PDL::Transform::Proj4::rouss->new( @_ ); } 2361 2362 2363=head2 t_proj_rpoly 2364 2365Autogenerated transformation function for Proj4 projection code rpoly. 2366 2367The full name for this projection is Rectangular Polyconic. 2368 2369Projection Parameters 2370 2371=for options 2372 2373=over 4 2374 2375=item lat_ts 2376 2377=back 2378 2379 2380 2381=cut 2382 2383 2384sub t_proj_rpoly 2385 { PDL::Transform::Proj4::rpoly->new( @_ ); } 2386 2387 2388=head2 t_proj_sch 2389 2390Autogenerated transformation function for Proj4 projection code sch. 2391 2392The full name for this projection is Spherical Cross-track Height. 2393 2394Projection Parameters 2395 2396=for options 2397 2398=over 4 2399 2400=item h_0 2401 2402=item phdg_0 2403 2404=item plat_0 2405 2406=item plon_0 2407 2408=back 2409 2410 2411 2412=cut 2413 2414 2415sub t_proj_sch 2416 { PDL::Transform::Proj4::sch->new( @_ ); } 2417 2418 2419=head2 t_proj_sinu 2420 2421Autogenerated transformation function for Proj4 projection code sinu. 2422 2423The full name for this projection is Sinusoidal (Sanson-Flamsteed). 2424 2425 2426=cut 2427 2428 2429sub t_proj_sinu 2430 { PDL::Transform::Proj4::sinu->new( @_ ); } 2431 2432 2433=head2 t_proj_somerc 2434 2435Autogenerated transformation function for Proj4 projection code somerc. 2436 2437The full name for this projection is Swiss. Obl. Mercator. 2438 2439 2440=cut 2441 2442 2443sub t_proj_somerc 2444 { PDL::Transform::Proj4::somerc->new( @_ ); } 2445 2446 2447=head2 t_proj_stere 2448 2449Autogenerated transformation function for Proj4 projection code stere. 2450 2451The full name for this projection is Stereographic. 2452 2453Projection Parameters 2454 2455=for options 2456 2457=over 4 2458 2459=item lat_ts 2460 2461=back 2462 2463 2464 2465=cut 2466 2467 2468sub t_proj_stere 2469 { PDL::Transform::Proj4::stere->new( @_ ); } 2470 2471 2472=head2 t_proj_sterea 2473 2474Autogenerated transformation function for Proj4 projection code sterea. 2475 2476The full name for this projection is Oblique Stereographic Alternative. 2477 2478 2479=cut 2480 2481 2482sub t_proj_sterea 2483 { PDL::Transform::Proj4::sterea->new( @_ ); } 2484 2485 2486=head2 t_proj_tcc 2487 2488Autogenerated transformation function for Proj4 projection code tcc. 2489 2490The full name for this projection is Transverse Central Cylindrical. 2491 2492 2493=cut 2494 2495 2496sub t_proj_tcc 2497 { PDL::Transform::Proj4::tcc->new( @_ ); } 2498 2499 2500=head2 t_proj_tcea 2501 2502Autogenerated transformation function for Proj4 projection code tcea. 2503 2504The full name for this projection is Transverse Cylindrical Equal Area. 2505 2506 2507=cut 2508 2509 2510sub t_proj_tcea 2511 { PDL::Transform::Proj4::tcea->new( @_ ); } 2512 2513 2514=head2 t_proj_times 2515 2516Autogenerated transformation function for Proj4 projection code times. 2517 2518The full name for this projection is Times. 2519 2520 2521=cut 2522 2523 2524sub t_proj_times 2525 { PDL::Transform::Proj4::times->new( @_ ); } 2526 2527 2528=head2 t_proj_tissot 2529 2530Autogenerated transformation function for Proj4 projection code tissot. 2531 2532The full name for this projection is Tissot. 2533 2534Projection Parameters 2535 2536=for options 2537 2538=over 4 2539 2540=item lat_1 2541 2542=item lat_2 2543 2544=back 2545 2546 2547 2548=cut 2549 2550 2551sub t_proj_tissot 2552 { PDL::Transform::Proj4::tissot->new( @_ ); } 2553 2554 2555=head2 t_proj_tmerc 2556 2557Autogenerated transformation function for Proj4 projection code tmerc. 2558 2559The full name for this projection is Transverse Mercator. 2560 2561 2562=cut 2563 2564 2565sub t_proj_tmerc 2566 { PDL::Transform::Proj4::tmerc->new( @_ ); } 2567 2568 2569=head2 t_proj_tpeqd 2570 2571Autogenerated transformation function for Proj4 projection code tpeqd. 2572 2573The full name for this projection is Two Point Equidistant. 2574 2575Projection Parameters 2576 2577=for options 2578 2579=over 4 2580 2581=item lat_1 2582 2583=item lat_2 2584 2585=item lon_1 2586 2587=item lon_2 2588 2589=back 2590 2591 2592 2593=cut 2594 2595 2596sub t_proj_tpeqd 2597 { PDL::Transform::Proj4::tpeqd->new( @_ ); } 2598 2599 2600=head2 t_proj_tpers 2601 2602Autogenerated transformation function for Proj4 projection code tpers. 2603 2604The full name for this projection is Tilted perspective. 2605 2606Projection Parameters 2607 2608=for options 2609 2610=over 4 2611 2612=item azi 2613 2614=item h 2615 2616=item tilt 2617 2618=back 2619 2620 2621 2622=cut 2623 2624 2625sub t_proj_tpers 2626 { PDL::Transform::Proj4::tpers->new( @_ ); } 2627 2628 2629=head2 t_proj_ups 2630 2631Autogenerated transformation function for Proj4 projection code ups. 2632 2633The full name for this projection is Universal Polar Stereographic. 2634 2635Projection Parameters 2636 2637=for options 2638 2639=over 4 2640 2641=item south 2642 2643=back 2644 2645 2646 2647=cut 2648 2649 2650sub t_proj_ups 2651 { PDL::Transform::Proj4::ups->new( @_ ); } 2652 2653 2654=head2 t_proj_urm5 2655 2656Autogenerated transformation function for Proj4 projection code urm5. 2657 2658The full name for this projection is Urmaev V. 2659 2660Projection Parameters 2661 2662=for options 2663 2664=over 4 2665 2666=item alpha 2667 2668=item n 2669 2670=item q 2671 2672=back 2673 2674 2675 2676=cut 2677 2678 2679sub t_proj_urm5 2680 { PDL::Transform::Proj4::urm5->new( @_ ); } 2681 2682 2683=head2 t_proj_urmfps 2684 2685Autogenerated transformation function for Proj4 projection code urmfps. 2686 2687The full name for this projection is Urmaev Flat-Polar Sinusoidal. 2688 2689Projection Parameters 2690 2691=for options 2692 2693=over 4 2694 2695=item n 2696 2697=back 2698 2699 2700 2701=cut 2702 2703 2704sub t_proj_urmfps 2705 { PDL::Transform::Proj4::urmfps->new( @_ ); } 2706 2707 2708=head2 t_proj_utm 2709 2710Autogenerated transformation function for Proj4 projection code utm. 2711 2712The full name for this projection is Universal Transverse Mercator (UTM). 2713 2714Projection Parameters 2715 2716=for options 2717 2718=over 4 2719 2720=item south 2721 2722=item zone 2723 2724=back 2725 2726 2727 2728=cut 2729 2730 2731sub t_proj_utm 2732 { PDL::Transform::Proj4::utm->new( @_ ); } 2733 2734 2735=head2 t_proj_vandg 2736 2737Autogenerated transformation function for Proj4 projection code vandg. 2738 2739The full name for this projection is van der Grinten (I). 2740 2741 2742=cut 2743 2744 2745sub t_proj_vandg 2746 { PDL::Transform::Proj4::vandg->new( @_ ); } 2747 2748 2749=head2 t_proj_vandg2 2750 2751Autogenerated transformation function for Proj4 projection code vandg2. 2752 2753The full name for this projection is van der Grinten II. 2754 2755 2756=cut 2757 2758 2759sub t_proj_vandg2 2760 { PDL::Transform::Proj4::vandg2->new( @_ ); } 2761 2762 2763=head2 t_proj_vandg3 2764 2765Autogenerated transformation function for Proj4 projection code vandg3. 2766 2767The full name for this projection is van der Grinten III. 2768 2769 2770=cut 2771 2772 2773sub t_proj_vandg3 2774 { PDL::Transform::Proj4::vandg3->new( @_ ); } 2775 2776 2777=head2 t_proj_vandg4 2778 2779Autogenerated transformation function for Proj4 projection code vandg4. 2780 2781The full name for this projection is van der Grinten IV. 2782 2783 2784=cut 2785 2786 2787sub t_proj_vandg4 2788 { PDL::Transform::Proj4::vandg4->new( @_ ); } 2789 2790 2791=head2 t_proj_vitk1 2792 2793Autogenerated transformation function for Proj4 projection code vitk1. 2794 2795The full name for this projection is Vitkovsky I. 2796 2797Projection Parameters 2798 2799=for options 2800 2801=over 4 2802 2803=item lat_1 2804 2805=item lat_2 2806 2807=back 2808 2809 2810 2811=cut 2812 2813 2814sub t_proj_vitk1 2815 { PDL::Transform::Proj4::vitk1->new( @_ ); } 2816 2817 2818=head2 t_proj_wag1 2819 2820Autogenerated transformation function for Proj4 projection code wag1. 2821 2822The full name for this projection is Wagner I (Kavraisky VI). 2823 2824 2825=cut 2826 2827 2828sub t_proj_wag1 2829 { PDL::Transform::Proj4::wag1->new( @_ ); } 2830 2831 2832=head2 t_proj_wag2 2833 2834Autogenerated transformation function for Proj4 projection code wag2. 2835 2836The full name for this projection is Wagner II. 2837 2838 2839=cut 2840 2841 2842sub t_proj_wag2 2843 { PDL::Transform::Proj4::wag2->new( @_ ); } 2844 2845 2846=head2 t_proj_wag3 2847 2848Autogenerated transformation function for Proj4 projection code wag3. 2849 2850The full name for this projection is Wagner III. 2851 2852Projection Parameters 2853 2854=for options 2855 2856=over 4 2857 2858=item lat_ts 2859 2860=back 2861 2862 2863 2864=cut 2865 2866 2867sub t_proj_wag3 2868 { PDL::Transform::Proj4::wag3->new( @_ ); } 2869 2870 2871=head2 t_proj_wag4 2872 2873Autogenerated transformation function for Proj4 projection code wag4. 2874 2875The full name for this projection is Wagner IV. 2876 2877 2878=cut 2879 2880 2881sub t_proj_wag4 2882 { PDL::Transform::Proj4::wag4->new( @_ ); } 2883 2884 2885=head2 t_proj_wag5 2886 2887Autogenerated transformation function for Proj4 projection code wag5. 2888 2889The full name for this projection is Wagner V. 2890 2891 2892=cut 2893 2894 2895sub t_proj_wag5 2896 { PDL::Transform::Proj4::wag5->new( @_ ); } 2897 2898 2899=head2 t_proj_wag6 2900 2901Autogenerated transformation function for Proj4 projection code wag6. 2902 2903The full name for this projection is Wagner VI. 2904 2905 2906=cut 2907 2908 2909sub t_proj_wag6 2910 { PDL::Transform::Proj4::wag6->new( @_ ); } 2911 2912 2913=head2 t_proj_wag7 2914 2915Autogenerated transformation function for Proj4 projection code wag7. 2916 2917The full name for this projection is Wagner VII. 2918 2919 2920=cut 2921 2922 2923sub t_proj_wag7 2924 { PDL::Transform::Proj4::wag7->new( @_ ); } 2925 2926 2927=head2 t_proj_weren 2928 2929Autogenerated transformation function for Proj4 projection code weren. 2930 2931The full name for this projection is Werenskiold I. 2932 2933 2934=cut 2935 2936 2937sub t_proj_weren 2938 { PDL::Transform::Proj4::weren->new( @_ ); } 2939 2940 2941=head2 t_proj_wink1 2942 2943Autogenerated transformation function for Proj4 projection code wink1. 2944 2945The full name for this projection is Winkel I. 2946 2947Projection Parameters 2948 2949=for options 2950 2951=over 4 2952 2953=item lat_ts 2954 2955=back 2956 2957 2958 2959=cut 2960 2961 2962sub t_proj_wink1 2963 { PDL::Transform::Proj4::wink1->new( @_ ); } 2964 2965 2966=head2 t_proj_wink2 2967 2968Autogenerated transformation function for Proj4 projection code wink2. 2969 2970The full name for this projection is Winkel II. 2971 2972Projection Parameters 2973 2974=for options 2975 2976=over 4 2977 2978=item lat_1 2979 2980=back 2981 2982 2983 2984=cut 2985 2986 2987sub t_proj_wink2 2988 { PDL::Transform::Proj4::wink2->new( @_ ); } 2989 2990 2991=head2 t_proj_wintri 2992 2993Autogenerated transformation function for Proj4 projection code wintri. 2994 2995The full name for this projection is Winkel Tripel. 2996 2997Projection Parameters 2998 2999=for options 3000 3001=over 4 3002 3003=item lat_1 3004 3005=back 3006 3007 3008 3009=cut 3010 3011 3012sub t_proj_wintri 3013 { PDL::Transform::Proj4::wintri->new( @_ ); } 3014 3015 3016 3017 3018*_proj4_dummy = \&PDL::_proj4_dummy; 3019 3020 3021 3022; 3023 3024 3025# Autogenerated code for the Proj4 projection code: 3026# aea 3027# 3028package PDL::Transform::Proj4::aea; 3029use PDL::Transform::Proj4; 3030@ISA = ( 'PDL::Transform::Proj4' ); 3031 3032sub new 3033{ 3034 my $proto = shift; 3035 my $class = ref($proto) || $proto; 3036 my $sub = "PDL::Transform::Proj4::aea::new()"; 3037 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3038 my $self = $class->SUPER::new( @_ ); 3039 bless ($self, $class); 3040 3041 my $o = $_[0]; 3042 unless( (ref $o) ) 3043 { $o = {@_}; } 3044 3045 #use Data::Dumper; 3046 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3047 #$dd2->Indent(1); 3048 #print STDERR $dd2->Dump(); 3049 3050 $self->{name} = "Albers Equal Area"; 3051 $self->{proj_code} = "aea"; 3052 3053 # Make sure proj is set in the options: 3054 $self->{params}->{proj} = $self->{proj_code}; 3055 3056 # Grab our projection specific options: 3057 # 3058 $self->{projection_params} = [ qw( lat_1 lat_2 ) ]; 3059 foreach my $param ( @{ $self->{projection_params} } ) 3060 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3061 3062 $self->update_proj_string(); 3063 3064 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3065 #$dd->Indent(1); 3066 #print STDERR $dd->Dump(); 3067 3068 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3069 3070 return $self; 3071} # End of PDL::Transform::aea::new()... 3072 30731; 3074 3075 3076 3077 3078# Autogenerated code for the Proj4 projection code: 3079# aeqd 3080# 3081package PDL::Transform::Proj4::aeqd; 3082use PDL::Transform::Proj4; 3083@ISA = ( 'PDL::Transform::Proj4' ); 3084 3085sub new 3086{ 3087 my $proto = shift; 3088 my $class = ref($proto) || $proto; 3089 my $sub = "PDL::Transform::Proj4::aeqd::new()"; 3090 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3091 my $self = $class->SUPER::new( @_ ); 3092 bless ($self, $class); 3093 3094 my $o = $_[0]; 3095 unless( (ref $o) ) 3096 { $o = {@_}; } 3097 3098 #use Data::Dumper; 3099 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3100 #$dd2->Indent(1); 3101 #print STDERR $dd2->Dump(); 3102 3103 $self->{name} = "Azimuthal Equidistant"; 3104 $self->{proj_code} = "aeqd"; 3105 3106 # Make sure proj is set in the options: 3107 $self->{params}->{proj} = $self->{proj_code}; 3108 3109 # Grab our projection specific options: 3110 # 3111 $self->{projection_params} = [ qw( lat_0 guam ) ]; 3112 foreach my $param ( @{ $self->{projection_params} } ) 3113 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3114 3115 $self->update_proj_string(); 3116 3117 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3118 #$dd->Indent(1); 3119 #print STDERR $dd->Dump(); 3120 3121 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3122 3123 return $self; 3124} # End of PDL::Transform::aeqd::new()... 3125 31261; 3127 3128 3129 3130 3131# Autogenerated code for the Proj4 projection code: 3132# airy 3133# 3134package PDL::Transform::Proj4::airy; 3135use PDL::Transform::Proj4; 3136@ISA = ( 'PDL::Transform::Proj4' ); 3137 3138sub new 3139{ 3140 my $proto = shift; 3141 my $class = ref($proto) || $proto; 3142 my $sub = "PDL::Transform::Proj4::airy::new()"; 3143 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3144 my $self = $class->SUPER::new( @_ ); 3145 bless ($self, $class); 3146 3147 my $o = $_[0]; 3148 unless( (ref $o) ) 3149 { $o = {@_}; } 3150 3151 #use Data::Dumper; 3152 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3153 #$dd2->Indent(1); 3154 #print STDERR $dd2->Dump(); 3155 3156 $self->{name} = "Airy"; 3157 $self->{proj_code} = "airy"; 3158 3159 # Make sure proj is set in the options: 3160 $self->{params}->{proj} = $self->{proj_code}; 3161 3162 # Grab our projection specific options: 3163 # 3164 $self->{projection_params} = [ qw( no_cut lat_b ) ]; 3165 foreach my $param ( @{ $self->{projection_params} } ) 3166 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3167 3168 $self->update_proj_string(); 3169 3170 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3171 #$dd->Indent(1); 3172 #print STDERR $dd->Dump(); 3173 3174 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3175 3176 return $self; 3177} # End of PDL::Transform::airy::new()... 3178 31791; 3180 3181 3182 3183 3184# Autogenerated code for the Proj4 projection code: 3185# aitoff 3186# 3187package PDL::Transform::Proj4::aitoff; 3188use PDL::Transform::Proj4; 3189@ISA = ( 'PDL::Transform::Proj4' ); 3190 3191sub new 3192{ 3193 my $proto = shift; 3194 my $class = ref($proto) || $proto; 3195 my $sub = "PDL::Transform::Proj4::aitoff::new()"; 3196 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3197 my $self = $class->SUPER::new( @_ ); 3198 bless ($self, $class); 3199 3200 my $o = $_[0]; 3201 unless( (ref $o) ) 3202 { $o = {@_}; } 3203 3204 #use Data::Dumper; 3205 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3206 #$dd2->Indent(1); 3207 #print STDERR $dd2->Dump(); 3208 3209 $self->{name} = "Aitoff"; 3210 $self->{proj_code} = "aitoff"; 3211 3212 # Make sure proj is set in the options: 3213 $self->{params}->{proj} = $self->{proj_code}; 3214 3215 # Grab our projection specific options: 3216 # 3217 $self->{projection_params} = [ qw( ) ]; 3218 foreach my $param ( @{ $self->{projection_params} } ) 3219 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3220 3221 $self->update_proj_string(); 3222 3223 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3224 #$dd->Indent(1); 3225 #print STDERR $dd->Dump(); 3226 3227 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3228 3229 return $self; 3230} # End of PDL::Transform::aitoff::new()... 3231 32321; 3233 3234 3235 3236 3237# Autogenerated code for the Proj4 projection code: 3238# alsk 3239# 3240package PDL::Transform::Proj4::alsk; 3241use PDL::Transform::Proj4; 3242@ISA = ( 'PDL::Transform::Proj4' ); 3243 3244sub new 3245{ 3246 my $proto = shift; 3247 my $class = ref($proto) || $proto; 3248 my $sub = "PDL::Transform::Proj4::alsk::new()"; 3249 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3250 my $self = $class->SUPER::new( @_ ); 3251 bless ($self, $class); 3252 3253 my $o = $_[0]; 3254 unless( (ref $o) ) 3255 { $o = {@_}; } 3256 3257 #use Data::Dumper; 3258 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3259 #$dd2->Indent(1); 3260 #print STDERR $dd2->Dump(); 3261 3262 $self->{name} = "Mod. Stereographic of Alaska"; 3263 $self->{proj_code} = "alsk"; 3264 3265 # Make sure proj is set in the options: 3266 $self->{params}->{proj} = $self->{proj_code}; 3267 3268 # Grab our projection specific options: 3269 # 3270 $self->{projection_params} = [ qw( ) ]; 3271 foreach my $param ( @{ $self->{projection_params} } ) 3272 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3273 3274 $self->update_proj_string(); 3275 3276 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3277 #$dd->Indent(1); 3278 #print STDERR $dd->Dump(); 3279 3280 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3281 3282 return $self; 3283} # End of PDL::Transform::alsk::new()... 3284 32851; 3286 3287 3288 3289 3290# Autogenerated code for the Proj4 projection code: 3291# apian 3292# 3293package PDL::Transform::Proj4::apian; 3294use PDL::Transform::Proj4; 3295@ISA = ( 'PDL::Transform::Proj4' ); 3296 3297sub new 3298{ 3299 my $proto = shift; 3300 my $class = ref($proto) || $proto; 3301 my $sub = "PDL::Transform::Proj4::apian::new()"; 3302 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3303 my $self = $class->SUPER::new( @_ ); 3304 bless ($self, $class); 3305 3306 my $o = $_[0]; 3307 unless( (ref $o) ) 3308 { $o = {@_}; } 3309 3310 #use Data::Dumper; 3311 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3312 #$dd2->Indent(1); 3313 #print STDERR $dd2->Dump(); 3314 3315 $self->{name} = "Apian Globular I"; 3316 $self->{proj_code} = "apian"; 3317 3318 # Make sure proj is set in the options: 3319 $self->{params}->{proj} = $self->{proj_code}; 3320 3321 # Grab our projection specific options: 3322 # 3323 $self->{projection_params} = [ qw( ) ]; 3324 foreach my $param ( @{ $self->{projection_params} } ) 3325 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3326 3327 $self->update_proj_string(); 3328 3329 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3330 #$dd->Indent(1); 3331 #print STDERR $dd->Dump(); 3332 3333 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3334 3335 return $self; 3336} # End of PDL::Transform::apian::new()... 3337 33381; 3339 3340 3341 3342 3343# Autogenerated code for the Proj4 projection code: 3344# august 3345# 3346package PDL::Transform::Proj4::august; 3347use PDL::Transform::Proj4; 3348@ISA = ( 'PDL::Transform::Proj4' ); 3349 3350sub new 3351{ 3352 my $proto = shift; 3353 my $class = ref($proto) || $proto; 3354 my $sub = "PDL::Transform::Proj4::august::new()"; 3355 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3356 my $self = $class->SUPER::new( @_ ); 3357 bless ($self, $class); 3358 3359 my $o = $_[0]; 3360 unless( (ref $o) ) 3361 { $o = {@_}; } 3362 3363 #use Data::Dumper; 3364 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3365 #$dd2->Indent(1); 3366 #print STDERR $dd2->Dump(); 3367 3368 $self->{name} = "August Epicycloidal"; 3369 $self->{proj_code} = "august"; 3370 3371 # Make sure proj is set in the options: 3372 $self->{params}->{proj} = $self->{proj_code}; 3373 3374 # Grab our projection specific options: 3375 # 3376 $self->{projection_params} = [ qw( ) ]; 3377 foreach my $param ( @{ $self->{projection_params} } ) 3378 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3379 3380 $self->update_proj_string(); 3381 3382 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3383 #$dd->Indent(1); 3384 #print STDERR $dd->Dump(); 3385 3386 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3387 3388 return $self; 3389} # End of PDL::Transform::august::new()... 3390 33911; 3392 3393 3394 3395 3396# Autogenerated code for the Proj4 projection code: 3397# bacon 3398# 3399package PDL::Transform::Proj4::bacon; 3400use PDL::Transform::Proj4; 3401@ISA = ( 'PDL::Transform::Proj4' ); 3402 3403sub new 3404{ 3405 my $proto = shift; 3406 my $class = ref($proto) || $proto; 3407 my $sub = "PDL::Transform::Proj4::bacon::new()"; 3408 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3409 my $self = $class->SUPER::new( @_ ); 3410 bless ($self, $class); 3411 3412 my $o = $_[0]; 3413 unless( (ref $o) ) 3414 { $o = {@_}; } 3415 3416 #use Data::Dumper; 3417 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3418 #$dd2->Indent(1); 3419 #print STDERR $dd2->Dump(); 3420 3421 $self->{name} = "Bacon Globular"; 3422 $self->{proj_code} = "bacon"; 3423 3424 # Make sure proj is set in the options: 3425 $self->{params}->{proj} = $self->{proj_code}; 3426 3427 # Grab our projection specific options: 3428 # 3429 $self->{projection_params} = [ qw( ) ]; 3430 foreach my $param ( @{ $self->{projection_params} } ) 3431 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3432 3433 $self->update_proj_string(); 3434 3435 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3436 #$dd->Indent(1); 3437 #print STDERR $dd->Dump(); 3438 3439 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3440 3441 return $self; 3442} # End of PDL::Transform::bacon::new()... 3443 34441; 3445 3446 3447 3448 3449# Autogenerated code for the Proj4 projection code: 3450# bipc 3451# 3452package PDL::Transform::Proj4::bipc; 3453use PDL::Transform::Proj4; 3454@ISA = ( 'PDL::Transform::Proj4' ); 3455 3456sub new 3457{ 3458 my $proto = shift; 3459 my $class = ref($proto) || $proto; 3460 my $sub = "PDL::Transform::Proj4::bipc::new()"; 3461 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3462 my $self = $class->SUPER::new( @_ ); 3463 bless ($self, $class); 3464 3465 my $o = $_[0]; 3466 unless( (ref $o) ) 3467 { $o = {@_}; } 3468 3469 #use Data::Dumper; 3470 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3471 #$dd2->Indent(1); 3472 #print STDERR $dd2->Dump(); 3473 3474 $self->{name} = "Bipolar conic of western hemisphere"; 3475 $self->{proj_code} = "bipc"; 3476 3477 # Make sure proj is set in the options: 3478 $self->{params}->{proj} = $self->{proj_code}; 3479 3480 # Grab our projection specific options: 3481 # 3482 $self->{projection_params} = [ qw( ) ]; 3483 foreach my $param ( @{ $self->{projection_params} } ) 3484 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3485 3486 $self->update_proj_string(); 3487 3488 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3489 #$dd->Indent(1); 3490 #print STDERR $dd->Dump(); 3491 3492 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3493 3494 return $self; 3495} # End of PDL::Transform::bipc::new()... 3496 34971; 3498 3499 3500 3501 3502# Autogenerated code for the Proj4 projection code: 3503# boggs 3504# 3505package PDL::Transform::Proj4::boggs; 3506use PDL::Transform::Proj4; 3507@ISA = ( 'PDL::Transform::Proj4' ); 3508 3509sub new 3510{ 3511 my $proto = shift; 3512 my $class = ref($proto) || $proto; 3513 my $sub = "PDL::Transform::Proj4::boggs::new()"; 3514 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3515 my $self = $class->SUPER::new( @_ ); 3516 bless ($self, $class); 3517 3518 my $o = $_[0]; 3519 unless( (ref $o) ) 3520 { $o = {@_}; } 3521 3522 #use Data::Dumper; 3523 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3524 #$dd2->Indent(1); 3525 #print STDERR $dd2->Dump(); 3526 3527 $self->{name} = "Boggs Eumorphic"; 3528 $self->{proj_code} = "boggs"; 3529 3530 # Make sure proj is set in the options: 3531 $self->{params}->{proj} = $self->{proj_code}; 3532 3533 # Grab our projection specific options: 3534 # 3535 $self->{projection_params} = [ qw( ) ]; 3536 foreach my $param ( @{ $self->{projection_params} } ) 3537 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3538 3539 $self->update_proj_string(); 3540 3541 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3542 #$dd->Indent(1); 3543 #print STDERR $dd->Dump(); 3544 3545 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3546 3547 return $self; 3548} # End of PDL::Transform::boggs::new()... 3549 35501; 3551 3552 3553 3554 3555# Autogenerated code for the Proj4 projection code: 3556# bonne 3557# 3558package PDL::Transform::Proj4::bonne; 3559use PDL::Transform::Proj4; 3560@ISA = ( 'PDL::Transform::Proj4' ); 3561 3562sub new 3563{ 3564 my $proto = shift; 3565 my $class = ref($proto) || $proto; 3566 my $sub = "PDL::Transform::Proj4::bonne::new()"; 3567 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3568 my $self = $class->SUPER::new( @_ ); 3569 bless ($self, $class); 3570 3571 my $o = $_[0]; 3572 unless( (ref $o) ) 3573 { $o = {@_}; } 3574 3575 #use Data::Dumper; 3576 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3577 #$dd2->Indent(1); 3578 #print STDERR $dd2->Dump(); 3579 3580 $self->{name} = "Bonne (Werner lat_1=90)"; 3581 $self->{proj_code} = "bonne"; 3582 3583 # Make sure proj is set in the options: 3584 $self->{params}->{proj} = $self->{proj_code}; 3585 3586 # Grab our projection specific options: 3587 # 3588 $self->{projection_params} = [ qw( lat_1 ) ]; 3589 foreach my $param ( @{ $self->{projection_params} } ) 3590 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3591 3592 $self->update_proj_string(); 3593 3594 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3595 #$dd->Indent(1); 3596 #print STDERR $dd->Dump(); 3597 3598 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3599 3600 return $self; 3601} # End of PDL::Transform::bonne::new()... 3602 36031; 3604 3605 3606 3607 3608# Autogenerated code for the Proj4 projection code: 3609# calcofi 3610# 3611package PDL::Transform::Proj4::calcofi; 3612use PDL::Transform::Proj4; 3613@ISA = ( 'PDL::Transform::Proj4' ); 3614 3615sub new 3616{ 3617 my $proto = shift; 3618 my $class = ref($proto) || $proto; 3619 my $sub = "PDL::Transform::Proj4::calcofi::new()"; 3620 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3621 my $self = $class->SUPER::new( @_ ); 3622 bless ($self, $class); 3623 3624 my $o = $_[0]; 3625 unless( (ref $o) ) 3626 { $o = {@_}; } 3627 3628 #use Data::Dumper; 3629 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3630 #$dd2->Indent(1); 3631 #print STDERR $dd2->Dump(); 3632 3633 $self->{name} = "Cal Coop Ocean Fish Invest Lines/Stations"; 3634 $self->{proj_code} = "calcofi"; 3635 3636 # Make sure proj is set in the options: 3637 $self->{params}->{proj} = $self->{proj_code}; 3638 3639 # Grab our projection specific options: 3640 # 3641 $self->{projection_params} = [ qw( ) ]; 3642 foreach my $param ( @{ $self->{projection_params} } ) 3643 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3644 3645 $self->update_proj_string(); 3646 3647 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3648 #$dd->Indent(1); 3649 #print STDERR $dd->Dump(); 3650 3651 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3652 3653 return $self; 3654} # End of PDL::Transform::calcofi::new()... 3655 36561; 3657 3658 3659 3660 3661# Autogenerated code for the Proj4 projection code: 3662# cass 3663# 3664package PDL::Transform::Proj4::cass; 3665use PDL::Transform::Proj4; 3666@ISA = ( 'PDL::Transform::Proj4' ); 3667 3668sub new 3669{ 3670 my $proto = shift; 3671 my $class = ref($proto) || $proto; 3672 my $sub = "PDL::Transform::Proj4::cass::new()"; 3673 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3674 my $self = $class->SUPER::new( @_ ); 3675 bless ($self, $class); 3676 3677 my $o = $_[0]; 3678 unless( (ref $o) ) 3679 { $o = {@_}; } 3680 3681 #use Data::Dumper; 3682 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3683 #$dd2->Indent(1); 3684 #print STDERR $dd2->Dump(); 3685 3686 $self->{name} = "Cassini"; 3687 $self->{proj_code} = "cass"; 3688 3689 # Make sure proj is set in the options: 3690 $self->{params}->{proj} = $self->{proj_code}; 3691 3692 # Grab our projection specific options: 3693 # 3694 $self->{projection_params} = [ qw( ) ]; 3695 foreach my $param ( @{ $self->{projection_params} } ) 3696 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3697 3698 $self->update_proj_string(); 3699 3700 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3701 #$dd->Indent(1); 3702 #print STDERR $dd->Dump(); 3703 3704 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3705 3706 return $self; 3707} # End of PDL::Transform::cass::new()... 3708 37091; 3710 3711 3712 3713 3714# Autogenerated code for the Proj4 projection code: 3715# cc 3716# 3717package PDL::Transform::Proj4::cc; 3718use PDL::Transform::Proj4; 3719@ISA = ( 'PDL::Transform::Proj4' ); 3720 3721sub new 3722{ 3723 my $proto = shift; 3724 my $class = ref($proto) || $proto; 3725 my $sub = "PDL::Transform::Proj4::cc::new()"; 3726 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3727 my $self = $class->SUPER::new( @_ ); 3728 bless ($self, $class); 3729 3730 my $o = $_[0]; 3731 unless( (ref $o) ) 3732 { $o = {@_}; } 3733 3734 #use Data::Dumper; 3735 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3736 #$dd2->Indent(1); 3737 #print STDERR $dd2->Dump(); 3738 3739 $self->{name} = "Central Cylindrical"; 3740 $self->{proj_code} = "cc"; 3741 3742 # Make sure proj is set in the options: 3743 $self->{params}->{proj} = $self->{proj_code}; 3744 3745 # Grab our projection specific options: 3746 # 3747 $self->{projection_params} = [ qw( ) ]; 3748 foreach my $param ( @{ $self->{projection_params} } ) 3749 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3750 3751 $self->update_proj_string(); 3752 3753 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3754 #$dd->Indent(1); 3755 #print STDERR $dd->Dump(); 3756 3757 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3758 3759 return $self; 3760} # End of PDL::Transform::cc::new()... 3761 37621; 3763 3764 3765 3766 3767# Autogenerated code for the Proj4 projection code: 3768# cea 3769# 3770package PDL::Transform::Proj4::cea; 3771use PDL::Transform::Proj4; 3772@ISA = ( 'PDL::Transform::Proj4' ); 3773 3774sub new 3775{ 3776 my $proto = shift; 3777 my $class = ref($proto) || $proto; 3778 my $sub = "PDL::Transform::Proj4::cea::new()"; 3779 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3780 my $self = $class->SUPER::new( @_ ); 3781 bless ($self, $class); 3782 3783 my $o = $_[0]; 3784 unless( (ref $o) ) 3785 { $o = {@_}; } 3786 3787 #use Data::Dumper; 3788 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3789 #$dd2->Indent(1); 3790 #print STDERR $dd2->Dump(); 3791 3792 $self->{name} = "Equal Area Cylindrical"; 3793 $self->{proj_code} = "cea"; 3794 3795 # Make sure proj is set in the options: 3796 $self->{params}->{proj} = $self->{proj_code}; 3797 3798 # Grab our projection specific options: 3799 # 3800 $self->{projection_params} = [ qw( lat_ts ) ]; 3801 foreach my $param ( @{ $self->{projection_params} } ) 3802 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3803 3804 $self->update_proj_string(); 3805 3806 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3807 #$dd->Indent(1); 3808 #print STDERR $dd->Dump(); 3809 3810 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3811 3812 return $self; 3813} # End of PDL::Transform::cea::new()... 3814 38151; 3816 3817 3818 3819 3820# Autogenerated code for the Proj4 projection code: 3821# chamb 3822# 3823package PDL::Transform::Proj4::chamb; 3824use PDL::Transform::Proj4; 3825@ISA = ( 'PDL::Transform::Proj4' ); 3826 3827sub new 3828{ 3829 my $proto = shift; 3830 my $class = ref($proto) || $proto; 3831 my $sub = "PDL::Transform::Proj4::chamb::new()"; 3832 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3833 my $self = $class->SUPER::new( @_ ); 3834 bless ($self, $class); 3835 3836 my $o = $_[0]; 3837 unless( (ref $o) ) 3838 { $o = {@_}; } 3839 3840 #use Data::Dumper; 3841 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3842 #$dd2->Indent(1); 3843 #print STDERR $dd2->Dump(); 3844 3845 $self->{name} = "Chamberlin Trimetric"; 3846 $self->{proj_code} = "chamb"; 3847 3848 # Make sure proj is set in the options: 3849 $self->{params}->{proj} = $self->{proj_code}; 3850 3851 # Grab our projection specific options: 3852 # 3853 $self->{projection_params} = [ qw( lat_1 lon_1 lat_2 lon_2 lat_3 lon_3 ) ]; 3854 foreach my $param ( @{ $self->{projection_params} } ) 3855 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3856 3857 $self->update_proj_string(); 3858 3859 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3860 #$dd->Indent(1); 3861 #print STDERR $dd->Dump(); 3862 3863 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3864 3865 return $self; 3866} # End of PDL::Transform::chamb::new()... 3867 38681; 3869 3870 3871 3872 3873# Autogenerated code for the Proj4 projection code: 3874# collg 3875# 3876package PDL::Transform::Proj4::collg; 3877use PDL::Transform::Proj4; 3878@ISA = ( 'PDL::Transform::Proj4' ); 3879 3880sub new 3881{ 3882 my $proto = shift; 3883 my $class = ref($proto) || $proto; 3884 my $sub = "PDL::Transform::Proj4::collg::new()"; 3885 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3886 my $self = $class->SUPER::new( @_ ); 3887 bless ($self, $class); 3888 3889 my $o = $_[0]; 3890 unless( (ref $o) ) 3891 { $o = {@_}; } 3892 3893 #use Data::Dumper; 3894 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3895 #$dd2->Indent(1); 3896 #print STDERR $dd2->Dump(); 3897 3898 $self->{name} = "Collignon"; 3899 $self->{proj_code} = "collg"; 3900 3901 # Make sure proj is set in the options: 3902 $self->{params}->{proj} = $self->{proj_code}; 3903 3904 # Grab our projection specific options: 3905 # 3906 $self->{projection_params} = [ qw( ) ]; 3907 foreach my $param ( @{ $self->{projection_params} } ) 3908 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3909 3910 $self->update_proj_string(); 3911 3912 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3913 #$dd->Indent(1); 3914 #print STDERR $dd->Dump(); 3915 3916 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3917 3918 return $self; 3919} # End of PDL::Transform::collg::new()... 3920 39211; 3922 3923 3924 3925 3926# Autogenerated code for the Proj4 projection code: 3927# comill 3928# 3929package PDL::Transform::Proj4::comill; 3930use PDL::Transform::Proj4; 3931@ISA = ( 'PDL::Transform::Proj4' ); 3932 3933sub new 3934{ 3935 my $proto = shift; 3936 my $class = ref($proto) || $proto; 3937 my $sub = "PDL::Transform::Proj4::comill::new()"; 3938 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3939 my $self = $class->SUPER::new( @_ ); 3940 bless ($self, $class); 3941 3942 my $o = $_[0]; 3943 unless( (ref $o) ) 3944 { $o = {@_}; } 3945 3946 #use Data::Dumper; 3947 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 3948 #$dd2->Indent(1); 3949 #print STDERR $dd2->Dump(); 3950 3951 $self->{name} = "Compact Miller"; 3952 $self->{proj_code} = "comill"; 3953 3954 # Make sure proj is set in the options: 3955 $self->{params}->{proj} = $self->{proj_code}; 3956 3957 # Grab our projection specific options: 3958 # 3959 $self->{projection_params} = [ qw( ) ]; 3960 foreach my $param ( @{ $self->{projection_params} } ) 3961 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 3962 3963 $self->update_proj_string(); 3964 3965 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 3966 #$dd->Indent(1); 3967 #print STDERR $dd->Dump(); 3968 3969 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 3970 3971 return $self; 3972} # End of PDL::Transform::comill::new()... 3973 39741; 3975 3976 3977 3978 3979# Autogenerated code for the Proj4 projection code: 3980# crast 3981# 3982package PDL::Transform::Proj4::crast; 3983use PDL::Transform::Proj4; 3984@ISA = ( 'PDL::Transform::Proj4' ); 3985 3986sub new 3987{ 3988 my $proto = shift; 3989 my $class = ref($proto) || $proto; 3990 my $sub = "PDL::Transform::Proj4::crast::new()"; 3991 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 3992 my $self = $class->SUPER::new( @_ ); 3993 bless ($self, $class); 3994 3995 my $o = $_[0]; 3996 unless( (ref $o) ) 3997 { $o = {@_}; } 3998 3999 #use Data::Dumper; 4000 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4001 #$dd2->Indent(1); 4002 #print STDERR $dd2->Dump(); 4003 4004 $self->{name} = "Craster Parabolic (Putnins P4)"; 4005 $self->{proj_code} = "crast"; 4006 4007 # Make sure proj is set in the options: 4008 $self->{params}->{proj} = $self->{proj_code}; 4009 4010 # Grab our projection specific options: 4011 # 4012 $self->{projection_params} = [ qw( ) ]; 4013 foreach my $param ( @{ $self->{projection_params} } ) 4014 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4015 4016 $self->update_proj_string(); 4017 4018 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4019 #$dd->Indent(1); 4020 #print STDERR $dd->Dump(); 4021 4022 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4023 4024 return $self; 4025} # End of PDL::Transform::crast::new()... 4026 40271; 4028 4029 4030 4031 4032# Autogenerated code for the Proj4 projection code: 4033# denoy 4034# 4035package PDL::Transform::Proj4::denoy; 4036use PDL::Transform::Proj4; 4037@ISA = ( 'PDL::Transform::Proj4' ); 4038 4039sub new 4040{ 4041 my $proto = shift; 4042 my $class = ref($proto) || $proto; 4043 my $sub = "PDL::Transform::Proj4::denoy::new()"; 4044 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4045 my $self = $class->SUPER::new( @_ ); 4046 bless ($self, $class); 4047 4048 my $o = $_[0]; 4049 unless( (ref $o) ) 4050 { $o = {@_}; } 4051 4052 #use Data::Dumper; 4053 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4054 #$dd2->Indent(1); 4055 #print STDERR $dd2->Dump(); 4056 4057 $self->{name} = "Denoyer Semi-Elliptical"; 4058 $self->{proj_code} = "denoy"; 4059 4060 # Make sure proj is set in the options: 4061 $self->{params}->{proj} = $self->{proj_code}; 4062 4063 # Grab our projection specific options: 4064 # 4065 $self->{projection_params} = [ qw( ) ]; 4066 foreach my $param ( @{ $self->{projection_params} } ) 4067 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4068 4069 $self->update_proj_string(); 4070 4071 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4072 #$dd->Indent(1); 4073 #print STDERR $dd->Dump(); 4074 4075 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4076 4077 return $self; 4078} # End of PDL::Transform::denoy::new()... 4079 40801; 4081 4082 4083 4084 4085# Autogenerated code for the Proj4 projection code: 4086# eck1 4087# 4088package PDL::Transform::Proj4::eck1; 4089use PDL::Transform::Proj4; 4090@ISA = ( 'PDL::Transform::Proj4' ); 4091 4092sub new 4093{ 4094 my $proto = shift; 4095 my $class = ref($proto) || $proto; 4096 my $sub = "PDL::Transform::Proj4::eck1::new()"; 4097 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4098 my $self = $class->SUPER::new( @_ ); 4099 bless ($self, $class); 4100 4101 my $o = $_[0]; 4102 unless( (ref $o) ) 4103 { $o = {@_}; } 4104 4105 #use Data::Dumper; 4106 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4107 #$dd2->Indent(1); 4108 #print STDERR $dd2->Dump(); 4109 4110 $self->{name} = "Eckert I"; 4111 $self->{proj_code} = "eck1"; 4112 4113 # Make sure proj is set in the options: 4114 $self->{params}->{proj} = $self->{proj_code}; 4115 4116 # Grab our projection specific options: 4117 # 4118 $self->{projection_params} = [ qw( ) ]; 4119 foreach my $param ( @{ $self->{projection_params} } ) 4120 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4121 4122 $self->update_proj_string(); 4123 4124 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4125 #$dd->Indent(1); 4126 #print STDERR $dd->Dump(); 4127 4128 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4129 4130 return $self; 4131} # End of PDL::Transform::eck1::new()... 4132 41331; 4134 4135 4136 4137 4138# Autogenerated code for the Proj4 projection code: 4139# eck2 4140# 4141package PDL::Transform::Proj4::eck2; 4142use PDL::Transform::Proj4; 4143@ISA = ( 'PDL::Transform::Proj4' ); 4144 4145sub new 4146{ 4147 my $proto = shift; 4148 my $class = ref($proto) || $proto; 4149 my $sub = "PDL::Transform::Proj4::eck2::new()"; 4150 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4151 my $self = $class->SUPER::new( @_ ); 4152 bless ($self, $class); 4153 4154 my $o = $_[0]; 4155 unless( (ref $o) ) 4156 { $o = {@_}; } 4157 4158 #use Data::Dumper; 4159 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4160 #$dd2->Indent(1); 4161 #print STDERR $dd2->Dump(); 4162 4163 $self->{name} = "Eckert II"; 4164 $self->{proj_code} = "eck2"; 4165 4166 # Make sure proj is set in the options: 4167 $self->{params}->{proj} = $self->{proj_code}; 4168 4169 # Grab our projection specific options: 4170 # 4171 $self->{projection_params} = [ qw( ) ]; 4172 foreach my $param ( @{ $self->{projection_params} } ) 4173 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4174 4175 $self->update_proj_string(); 4176 4177 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4178 #$dd->Indent(1); 4179 #print STDERR $dd->Dump(); 4180 4181 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4182 4183 return $self; 4184} # End of PDL::Transform::eck2::new()... 4185 41861; 4187 4188 4189 4190 4191# Autogenerated code for the Proj4 projection code: 4192# eck3 4193# 4194package PDL::Transform::Proj4::eck3; 4195use PDL::Transform::Proj4; 4196@ISA = ( 'PDL::Transform::Proj4' ); 4197 4198sub new 4199{ 4200 my $proto = shift; 4201 my $class = ref($proto) || $proto; 4202 my $sub = "PDL::Transform::Proj4::eck3::new()"; 4203 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4204 my $self = $class->SUPER::new( @_ ); 4205 bless ($self, $class); 4206 4207 my $o = $_[0]; 4208 unless( (ref $o) ) 4209 { $o = {@_}; } 4210 4211 #use Data::Dumper; 4212 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4213 #$dd2->Indent(1); 4214 #print STDERR $dd2->Dump(); 4215 4216 $self->{name} = "Eckert III"; 4217 $self->{proj_code} = "eck3"; 4218 4219 # Make sure proj is set in the options: 4220 $self->{params}->{proj} = $self->{proj_code}; 4221 4222 # Grab our projection specific options: 4223 # 4224 $self->{projection_params} = [ qw( ) ]; 4225 foreach my $param ( @{ $self->{projection_params} } ) 4226 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4227 4228 $self->update_proj_string(); 4229 4230 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4231 #$dd->Indent(1); 4232 #print STDERR $dd->Dump(); 4233 4234 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4235 4236 return $self; 4237} # End of PDL::Transform::eck3::new()... 4238 42391; 4240 4241 4242 4243 4244# Autogenerated code for the Proj4 projection code: 4245# eck4 4246# 4247package PDL::Transform::Proj4::eck4; 4248use PDL::Transform::Proj4; 4249@ISA = ( 'PDL::Transform::Proj4' ); 4250 4251sub new 4252{ 4253 my $proto = shift; 4254 my $class = ref($proto) || $proto; 4255 my $sub = "PDL::Transform::Proj4::eck4::new()"; 4256 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4257 my $self = $class->SUPER::new( @_ ); 4258 bless ($self, $class); 4259 4260 my $o = $_[0]; 4261 unless( (ref $o) ) 4262 { $o = {@_}; } 4263 4264 #use Data::Dumper; 4265 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4266 #$dd2->Indent(1); 4267 #print STDERR $dd2->Dump(); 4268 4269 $self->{name} = "Eckert IV"; 4270 $self->{proj_code} = "eck4"; 4271 4272 # Make sure proj is set in the options: 4273 $self->{params}->{proj} = $self->{proj_code}; 4274 4275 # Grab our projection specific options: 4276 # 4277 $self->{projection_params} = [ qw( ) ]; 4278 foreach my $param ( @{ $self->{projection_params} } ) 4279 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4280 4281 $self->update_proj_string(); 4282 4283 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4284 #$dd->Indent(1); 4285 #print STDERR $dd->Dump(); 4286 4287 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4288 4289 return $self; 4290} # End of PDL::Transform::eck4::new()... 4291 42921; 4293 4294 4295 4296 4297# Autogenerated code for the Proj4 projection code: 4298# eck5 4299# 4300package PDL::Transform::Proj4::eck5; 4301use PDL::Transform::Proj4; 4302@ISA = ( 'PDL::Transform::Proj4' ); 4303 4304sub new 4305{ 4306 my $proto = shift; 4307 my $class = ref($proto) || $proto; 4308 my $sub = "PDL::Transform::Proj4::eck5::new()"; 4309 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4310 my $self = $class->SUPER::new( @_ ); 4311 bless ($self, $class); 4312 4313 my $o = $_[0]; 4314 unless( (ref $o) ) 4315 { $o = {@_}; } 4316 4317 #use Data::Dumper; 4318 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4319 #$dd2->Indent(1); 4320 #print STDERR $dd2->Dump(); 4321 4322 $self->{name} = "Eckert V"; 4323 $self->{proj_code} = "eck5"; 4324 4325 # Make sure proj is set in the options: 4326 $self->{params}->{proj} = $self->{proj_code}; 4327 4328 # Grab our projection specific options: 4329 # 4330 $self->{projection_params} = [ qw( ) ]; 4331 foreach my $param ( @{ $self->{projection_params} } ) 4332 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4333 4334 $self->update_proj_string(); 4335 4336 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4337 #$dd->Indent(1); 4338 #print STDERR $dd->Dump(); 4339 4340 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4341 4342 return $self; 4343} # End of PDL::Transform::eck5::new()... 4344 43451; 4346 4347 4348 4349 4350# Autogenerated code for the Proj4 projection code: 4351# eck6 4352# 4353package PDL::Transform::Proj4::eck6; 4354use PDL::Transform::Proj4; 4355@ISA = ( 'PDL::Transform::Proj4' ); 4356 4357sub new 4358{ 4359 my $proto = shift; 4360 my $class = ref($proto) || $proto; 4361 my $sub = "PDL::Transform::Proj4::eck6::new()"; 4362 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4363 my $self = $class->SUPER::new( @_ ); 4364 bless ($self, $class); 4365 4366 my $o = $_[0]; 4367 unless( (ref $o) ) 4368 { $o = {@_}; } 4369 4370 #use Data::Dumper; 4371 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4372 #$dd2->Indent(1); 4373 #print STDERR $dd2->Dump(); 4374 4375 $self->{name} = "Eckert VI"; 4376 $self->{proj_code} = "eck6"; 4377 4378 # Make sure proj is set in the options: 4379 $self->{params}->{proj} = $self->{proj_code}; 4380 4381 # Grab our projection specific options: 4382 # 4383 $self->{projection_params} = [ qw( ) ]; 4384 foreach my $param ( @{ $self->{projection_params} } ) 4385 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4386 4387 $self->update_proj_string(); 4388 4389 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4390 #$dd->Indent(1); 4391 #print STDERR $dd->Dump(); 4392 4393 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4394 4395 return $self; 4396} # End of PDL::Transform::eck6::new()... 4397 43981; 4399 4400 4401 4402 4403# Autogenerated code for the Proj4 projection code: 4404# eqc 4405# 4406package PDL::Transform::Proj4::eqc; 4407use PDL::Transform::Proj4; 4408@ISA = ( 'PDL::Transform::Proj4' ); 4409 4410sub new 4411{ 4412 my $proto = shift; 4413 my $class = ref($proto) || $proto; 4414 my $sub = "PDL::Transform::Proj4::eqc::new()"; 4415 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4416 my $self = $class->SUPER::new( @_ ); 4417 bless ($self, $class); 4418 4419 my $o = $_[0]; 4420 unless( (ref $o) ) 4421 { $o = {@_}; } 4422 4423 #use Data::Dumper; 4424 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4425 #$dd2->Indent(1); 4426 #print STDERR $dd2->Dump(); 4427 4428 $self->{name} = "Equidistant Cylindrical (Plate Caree)"; 4429 $self->{proj_code} = "eqc"; 4430 4431 # Make sure proj is set in the options: 4432 $self->{params}->{proj} = $self->{proj_code}; 4433 4434 # Grab our projection specific options: 4435 # 4436 $self->{projection_params} = [ qw( lat_ts lat_00 ) ]; 4437 foreach my $param ( @{ $self->{projection_params} } ) 4438 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4439 4440 $self->update_proj_string(); 4441 4442 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4443 #$dd->Indent(1); 4444 #print STDERR $dd->Dump(); 4445 4446 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4447 4448 return $self; 4449} # End of PDL::Transform::eqc::new()... 4450 44511; 4452 4453 4454 4455 4456# Autogenerated code for the Proj4 projection code: 4457# eqdc 4458# 4459package PDL::Transform::Proj4::eqdc; 4460use PDL::Transform::Proj4; 4461@ISA = ( 'PDL::Transform::Proj4' ); 4462 4463sub new 4464{ 4465 my $proto = shift; 4466 my $class = ref($proto) || $proto; 4467 my $sub = "PDL::Transform::Proj4::eqdc::new()"; 4468 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4469 my $self = $class->SUPER::new( @_ ); 4470 bless ($self, $class); 4471 4472 my $o = $_[0]; 4473 unless( (ref $o) ) 4474 { $o = {@_}; } 4475 4476 #use Data::Dumper; 4477 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4478 #$dd2->Indent(1); 4479 #print STDERR $dd2->Dump(); 4480 4481 $self->{name} = "Equidistant Conic"; 4482 $self->{proj_code} = "eqdc"; 4483 4484 # Make sure proj is set in the options: 4485 $self->{params}->{proj} = $self->{proj_code}; 4486 4487 # Grab our projection specific options: 4488 # 4489 $self->{projection_params} = [ qw( lat_1 lat_2 ) ]; 4490 foreach my $param ( @{ $self->{projection_params} } ) 4491 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4492 4493 $self->update_proj_string(); 4494 4495 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4496 #$dd->Indent(1); 4497 #print STDERR $dd->Dump(); 4498 4499 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4500 4501 return $self; 4502} # End of PDL::Transform::eqdc::new()... 4503 45041; 4505 4506 4507 4508 4509# Autogenerated code for the Proj4 projection code: 4510# etmerc 4511# 4512package PDL::Transform::Proj4::etmerc; 4513use PDL::Transform::Proj4; 4514@ISA = ( 'PDL::Transform::Proj4' ); 4515 4516sub new 4517{ 4518 my $proto = shift; 4519 my $class = ref($proto) || $proto; 4520 my $sub = "PDL::Transform::Proj4::etmerc::new()"; 4521 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4522 my $self = $class->SUPER::new( @_ ); 4523 bless ($self, $class); 4524 4525 my $o = $_[0]; 4526 unless( (ref $o) ) 4527 { $o = {@_}; } 4528 4529 #use Data::Dumper; 4530 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4531 #$dd2->Indent(1); 4532 #print STDERR $dd2->Dump(); 4533 4534 $self->{name} = "Extended Transverse Mercator"; 4535 $self->{proj_code} = "etmerc"; 4536 4537 # Make sure proj is set in the options: 4538 $self->{params}->{proj} = $self->{proj_code}; 4539 4540 # Grab our projection specific options: 4541 # 4542 $self->{projection_params} = [ qw( lat_ts(0) lat_0(0) ) ]; 4543 foreach my $param ( @{ $self->{projection_params} } ) 4544 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4545 4546 $self->update_proj_string(); 4547 4548 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4549 #$dd->Indent(1); 4550 #print STDERR $dd->Dump(); 4551 4552 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4553 4554 return $self; 4555} # End of PDL::Transform::etmerc::new()... 4556 45571; 4558 4559 4560 4561 4562# Autogenerated code for the Proj4 projection code: 4563# euler 4564# 4565package PDL::Transform::Proj4::euler; 4566use PDL::Transform::Proj4; 4567@ISA = ( 'PDL::Transform::Proj4' ); 4568 4569sub new 4570{ 4571 my $proto = shift; 4572 my $class = ref($proto) || $proto; 4573 my $sub = "PDL::Transform::Proj4::euler::new()"; 4574 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4575 my $self = $class->SUPER::new( @_ ); 4576 bless ($self, $class); 4577 4578 my $o = $_[0]; 4579 unless( (ref $o) ) 4580 { $o = {@_}; } 4581 4582 #use Data::Dumper; 4583 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4584 #$dd2->Indent(1); 4585 #print STDERR $dd2->Dump(); 4586 4587 $self->{name} = "Euler"; 4588 $self->{proj_code} = "euler"; 4589 4590 # Make sure proj is set in the options: 4591 $self->{params}->{proj} = $self->{proj_code}; 4592 4593 # Grab our projection specific options: 4594 # 4595 $self->{projection_params} = [ qw( lat_1 lat_2 ) ]; 4596 foreach my $param ( @{ $self->{projection_params} } ) 4597 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4598 4599 $self->update_proj_string(); 4600 4601 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4602 #$dd->Indent(1); 4603 #print STDERR $dd->Dump(); 4604 4605 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4606 4607 return $self; 4608} # End of PDL::Transform::euler::new()... 4609 46101; 4611 4612 4613 4614 4615# Autogenerated code for the Proj4 projection code: 4616# fahey 4617# 4618package PDL::Transform::Proj4::fahey; 4619use PDL::Transform::Proj4; 4620@ISA = ( 'PDL::Transform::Proj4' ); 4621 4622sub new 4623{ 4624 my $proto = shift; 4625 my $class = ref($proto) || $proto; 4626 my $sub = "PDL::Transform::Proj4::fahey::new()"; 4627 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4628 my $self = $class->SUPER::new( @_ ); 4629 bless ($self, $class); 4630 4631 my $o = $_[0]; 4632 unless( (ref $o) ) 4633 { $o = {@_}; } 4634 4635 #use Data::Dumper; 4636 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4637 #$dd2->Indent(1); 4638 #print STDERR $dd2->Dump(); 4639 4640 $self->{name} = "Fahey"; 4641 $self->{proj_code} = "fahey"; 4642 4643 # Make sure proj is set in the options: 4644 $self->{params}->{proj} = $self->{proj_code}; 4645 4646 # Grab our projection specific options: 4647 # 4648 $self->{projection_params} = [ qw( ) ]; 4649 foreach my $param ( @{ $self->{projection_params} } ) 4650 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4651 4652 $self->update_proj_string(); 4653 4654 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4655 #$dd->Indent(1); 4656 #print STDERR $dd->Dump(); 4657 4658 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4659 4660 return $self; 4661} # End of PDL::Transform::fahey::new()... 4662 46631; 4664 4665 4666 4667 4668# Autogenerated code for the Proj4 projection code: 4669# fouc 4670# 4671package PDL::Transform::Proj4::fouc; 4672use PDL::Transform::Proj4; 4673@ISA = ( 'PDL::Transform::Proj4' ); 4674 4675sub new 4676{ 4677 my $proto = shift; 4678 my $class = ref($proto) || $proto; 4679 my $sub = "PDL::Transform::Proj4::fouc::new()"; 4680 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4681 my $self = $class->SUPER::new( @_ ); 4682 bless ($self, $class); 4683 4684 my $o = $_[0]; 4685 unless( (ref $o) ) 4686 { $o = {@_}; } 4687 4688 #use Data::Dumper; 4689 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4690 #$dd2->Indent(1); 4691 #print STDERR $dd2->Dump(); 4692 4693 $self->{name} = "Foucaut"; 4694 $self->{proj_code} = "fouc"; 4695 4696 # Make sure proj is set in the options: 4697 $self->{params}->{proj} = $self->{proj_code}; 4698 4699 # Grab our projection specific options: 4700 # 4701 $self->{projection_params} = [ qw( ) ]; 4702 foreach my $param ( @{ $self->{projection_params} } ) 4703 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4704 4705 $self->update_proj_string(); 4706 4707 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4708 #$dd->Indent(1); 4709 #print STDERR $dd->Dump(); 4710 4711 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4712 4713 return $self; 4714} # End of PDL::Transform::fouc::new()... 4715 47161; 4717 4718 4719 4720 4721# Autogenerated code for the Proj4 projection code: 4722# fouc_s 4723# 4724package PDL::Transform::Proj4::fouc_s; 4725use PDL::Transform::Proj4; 4726@ISA = ( 'PDL::Transform::Proj4' ); 4727 4728sub new 4729{ 4730 my $proto = shift; 4731 my $class = ref($proto) || $proto; 4732 my $sub = "PDL::Transform::Proj4::fouc_s::new()"; 4733 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4734 my $self = $class->SUPER::new( @_ ); 4735 bless ($self, $class); 4736 4737 my $o = $_[0]; 4738 unless( (ref $o) ) 4739 { $o = {@_}; } 4740 4741 #use Data::Dumper; 4742 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4743 #$dd2->Indent(1); 4744 #print STDERR $dd2->Dump(); 4745 4746 $self->{name} = "Foucaut Sinusoidal"; 4747 $self->{proj_code} = "fouc_s"; 4748 4749 # Make sure proj is set in the options: 4750 $self->{params}->{proj} = $self->{proj_code}; 4751 4752 # Grab our projection specific options: 4753 # 4754 $self->{projection_params} = [ qw( ) ]; 4755 foreach my $param ( @{ $self->{projection_params} } ) 4756 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4757 4758 $self->update_proj_string(); 4759 4760 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4761 #$dd->Indent(1); 4762 #print STDERR $dd->Dump(); 4763 4764 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4765 4766 return $self; 4767} # End of PDL::Transform::fouc_s::new()... 4768 47691; 4770 4771 4772 4773 4774# Autogenerated code for the Proj4 projection code: 4775# gall 4776# 4777package PDL::Transform::Proj4::gall; 4778use PDL::Transform::Proj4; 4779@ISA = ( 'PDL::Transform::Proj4' ); 4780 4781sub new 4782{ 4783 my $proto = shift; 4784 my $class = ref($proto) || $proto; 4785 my $sub = "PDL::Transform::Proj4::gall::new()"; 4786 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4787 my $self = $class->SUPER::new( @_ ); 4788 bless ($self, $class); 4789 4790 my $o = $_[0]; 4791 unless( (ref $o) ) 4792 { $o = {@_}; } 4793 4794 #use Data::Dumper; 4795 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4796 #$dd2->Indent(1); 4797 #print STDERR $dd2->Dump(); 4798 4799 $self->{name} = "Gall (Gall Stereographic)"; 4800 $self->{proj_code} = "gall"; 4801 4802 # Make sure proj is set in the options: 4803 $self->{params}->{proj} = $self->{proj_code}; 4804 4805 # Grab our projection specific options: 4806 # 4807 $self->{projection_params} = [ qw( ) ]; 4808 foreach my $param ( @{ $self->{projection_params} } ) 4809 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4810 4811 $self->update_proj_string(); 4812 4813 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4814 #$dd->Indent(1); 4815 #print STDERR $dd->Dump(); 4816 4817 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4818 4819 return $self; 4820} # End of PDL::Transform::gall::new()... 4821 48221; 4823 4824 4825 4826 4827# Autogenerated code for the Proj4 projection code: 4828# geocent 4829# 4830package PDL::Transform::Proj4::geocent; 4831use PDL::Transform::Proj4; 4832@ISA = ( 'PDL::Transform::Proj4' ); 4833 4834sub new 4835{ 4836 my $proto = shift; 4837 my $class = ref($proto) || $proto; 4838 my $sub = "PDL::Transform::Proj4::geocent::new()"; 4839 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4840 my $self = $class->SUPER::new( @_ ); 4841 bless ($self, $class); 4842 4843 my $o = $_[0]; 4844 unless( (ref $o) ) 4845 { $o = {@_}; } 4846 4847 #use Data::Dumper; 4848 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4849 #$dd2->Indent(1); 4850 #print STDERR $dd2->Dump(); 4851 4852 $self->{name} = "Geocentric"; 4853 $self->{proj_code} = "geocent"; 4854 4855 # Make sure proj is set in the options: 4856 $self->{params}->{proj} = $self->{proj_code}; 4857 4858 # Grab our projection specific options: 4859 # 4860 $self->{projection_params} = [ qw( ) ]; 4861 foreach my $param ( @{ $self->{projection_params} } ) 4862 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4863 4864 $self->update_proj_string(); 4865 4866 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4867 #$dd->Indent(1); 4868 #print STDERR $dd->Dump(); 4869 4870 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4871 4872 return $self; 4873} # End of PDL::Transform::geocent::new()... 4874 48751; 4876 4877 4878 4879 4880# Autogenerated code for the Proj4 projection code: 4881# geos 4882# 4883package PDL::Transform::Proj4::geos; 4884use PDL::Transform::Proj4; 4885@ISA = ( 'PDL::Transform::Proj4' ); 4886 4887sub new 4888{ 4889 my $proto = shift; 4890 my $class = ref($proto) || $proto; 4891 my $sub = "PDL::Transform::Proj4::geos::new()"; 4892 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4893 my $self = $class->SUPER::new( @_ ); 4894 bless ($self, $class); 4895 4896 my $o = $_[0]; 4897 unless( (ref $o) ) 4898 { $o = {@_}; } 4899 4900 #use Data::Dumper; 4901 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4902 #$dd2->Indent(1); 4903 #print STDERR $dd2->Dump(); 4904 4905 $self->{name} = "Geostationary Satellite View"; 4906 $self->{proj_code} = "geos"; 4907 4908 # Make sure proj is set in the options: 4909 $self->{params}->{proj} = $self->{proj_code}; 4910 4911 # Grab our projection specific options: 4912 # 4913 $self->{projection_params} = [ qw( h ) ]; 4914 foreach my $param ( @{ $self->{projection_params} } ) 4915 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4916 4917 $self->update_proj_string(); 4918 4919 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4920 #$dd->Indent(1); 4921 #print STDERR $dd->Dump(); 4922 4923 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4924 4925 return $self; 4926} # End of PDL::Transform::geos::new()... 4927 49281; 4929 4930 4931 4932 4933# Autogenerated code for the Proj4 projection code: 4934# gins8 4935# 4936package PDL::Transform::Proj4::gins8; 4937use PDL::Transform::Proj4; 4938@ISA = ( 'PDL::Transform::Proj4' ); 4939 4940sub new 4941{ 4942 my $proto = shift; 4943 my $class = ref($proto) || $proto; 4944 my $sub = "PDL::Transform::Proj4::gins8::new()"; 4945 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4946 my $self = $class->SUPER::new( @_ ); 4947 bless ($self, $class); 4948 4949 my $o = $_[0]; 4950 unless( (ref $o) ) 4951 { $o = {@_}; } 4952 4953 #use Data::Dumper; 4954 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 4955 #$dd2->Indent(1); 4956 #print STDERR $dd2->Dump(); 4957 4958 $self->{name} = "Ginsburg VIII (TsNIIGAiK)"; 4959 $self->{proj_code} = "gins8"; 4960 4961 # Make sure proj is set in the options: 4962 $self->{params}->{proj} = $self->{proj_code}; 4963 4964 # Grab our projection specific options: 4965 # 4966 $self->{projection_params} = [ qw( ) ]; 4967 foreach my $param ( @{ $self->{projection_params} } ) 4968 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 4969 4970 $self->update_proj_string(); 4971 4972 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 4973 #$dd->Indent(1); 4974 #print STDERR $dd->Dump(); 4975 4976 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 4977 4978 return $self; 4979} # End of PDL::Transform::gins8::new()... 4980 49811; 4982 4983 4984 4985 4986# Autogenerated code for the Proj4 projection code: 4987# gn_sinu 4988# 4989package PDL::Transform::Proj4::gn_sinu; 4990use PDL::Transform::Proj4; 4991@ISA = ( 'PDL::Transform::Proj4' ); 4992 4993sub new 4994{ 4995 my $proto = shift; 4996 my $class = ref($proto) || $proto; 4997 my $sub = "PDL::Transform::Proj4::gn_sinu::new()"; 4998 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 4999 my $self = $class->SUPER::new( @_ ); 5000 bless ($self, $class); 5001 5002 my $o = $_[0]; 5003 unless( (ref $o) ) 5004 { $o = {@_}; } 5005 5006 #use Data::Dumper; 5007 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5008 #$dd2->Indent(1); 5009 #print STDERR $dd2->Dump(); 5010 5011 $self->{name} = "General Sinusoidal Series"; 5012 $self->{proj_code} = "gn_sinu"; 5013 5014 # Make sure proj is set in the options: 5015 $self->{params}->{proj} = $self->{proj_code}; 5016 5017 # Grab our projection specific options: 5018 # 5019 $self->{projection_params} = [ qw( m n ) ]; 5020 foreach my $param ( @{ $self->{projection_params} } ) 5021 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5022 5023 $self->update_proj_string(); 5024 5025 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5026 #$dd->Indent(1); 5027 #print STDERR $dd->Dump(); 5028 5029 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5030 5031 return $self; 5032} # End of PDL::Transform::gn_sinu::new()... 5033 50341; 5035 5036 5037 5038 5039# Autogenerated code for the Proj4 projection code: 5040# gnom 5041# 5042package PDL::Transform::Proj4::gnom; 5043use PDL::Transform::Proj4; 5044@ISA = ( 'PDL::Transform::Proj4' ); 5045 5046sub new 5047{ 5048 my $proto = shift; 5049 my $class = ref($proto) || $proto; 5050 my $sub = "PDL::Transform::Proj4::gnom::new()"; 5051 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5052 my $self = $class->SUPER::new( @_ ); 5053 bless ($self, $class); 5054 5055 my $o = $_[0]; 5056 unless( (ref $o) ) 5057 { $o = {@_}; } 5058 5059 #use Data::Dumper; 5060 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5061 #$dd2->Indent(1); 5062 #print STDERR $dd2->Dump(); 5063 5064 $self->{name} = "Gnomonic"; 5065 $self->{proj_code} = "gnom"; 5066 5067 # Make sure proj is set in the options: 5068 $self->{params}->{proj} = $self->{proj_code}; 5069 5070 # Grab our projection specific options: 5071 # 5072 $self->{projection_params} = [ qw( ) ]; 5073 foreach my $param ( @{ $self->{projection_params} } ) 5074 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5075 5076 $self->update_proj_string(); 5077 5078 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5079 #$dd->Indent(1); 5080 #print STDERR $dd->Dump(); 5081 5082 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5083 5084 return $self; 5085} # End of PDL::Transform::gnom::new()... 5086 50871; 5088 5089 5090 5091 5092# Autogenerated code for the Proj4 projection code: 5093# goode 5094# 5095package PDL::Transform::Proj4::goode; 5096use PDL::Transform::Proj4; 5097@ISA = ( 'PDL::Transform::Proj4' ); 5098 5099sub new 5100{ 5101 my $proto = shift; 5102 my $class = ref($proto) || $proto; 5103 my $sub = "PDL::Transform::Proj4::goode::new()"; 5104 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5105 my $self = $class->SUPER::new( @_ ); 5106 bless ($self, $class); 5107 5108 my $o = $_[0]; 5109 unless( (ref $o) ) 5110 { $o = {@_}; } 5111 5112 #use Data::Dumper; 5113 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5114 #$dd2->Indent(1); 5115 #print STDERR $dd2->Dump(); 5116 5117 $self->{name} = "Goode Homolosine"; 5118 $self->{proj_code} = "goode"; 5119 5120 # Make sure proj is set in the options: 5121 $self->{params}->{proj} = $self->{proj_code}; 5122 5123 # Grab our projection specific options: 5124 # 5125 $self->{projection_params} = [ qw( ) ]; 5126 foreach my $param ( @{ $self->{projection_params} } ) 5127 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5128 5129 $self->update_proj_string(); 5130 5131 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5132 #$dd->Indent(1); 5133 #print STDERR $dd->Dump(); 5134 5135 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5136 5137 return $self; 5138} # End of PDL::Transform::goode::new()... 5139 51401; 5141 5142 5143 5144 5145# Autogenerated code for the Proj4 projection code: 5146# gs48 5147# 5148package PDL::Transform::Proj4::gs48; 5149use PDL::Transform::Proj4; 5150@ISA = ( 'PDL::Transform::Proj4' ); 5151 5152sub new 5153{ 5154 my $proto = shift; 5155 my $class = ref($proto) || $proto; 5156 my $sub = "PDL::Transform::Proj4::gs48::new()"; 5157 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5158 my $self = $class->SUPER::new( @_ ); 5159 bless ($self, $class); 5160 5161 my $o = $_[0]; 5162 unless( (ref $o) ) 5163 { $o = {@_}; } 5164 5165 #use Data::Dumper; 5166 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5167 #$dd2->Indent(1); 5168 #print STDERR $dd2->Dump(); 5169 5170 $self->{name} = "Mod. Stereographic of 48 U.S."; 5171 $self->{proj_code} = "gs48"; 5172 5173 # Make sure proj is set in the options: 5174 $self->{params}->{proj} = $self->{proj_code}; 5175 5176 # Grab our projection specific options: 5177 # 5178 $self->{projection_params} = [ qw( ) ]; 5179 foreach my $param ( @{ $self->{projection_params} } ) 5180 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5181 5182 $self->update_proj_string(); 5183 5184 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5185 #$dd->Indent(1); 5186 #print STDERR $dd->Dump(); 5187 5188 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5189 5190 return $self; 5191} # End of PDL::Transform::gs48::new()... 5192 51931; 5194 5195 5196 5197 5198# Autogenerated code for the Proj4 projection code: 5199# gs50 5200# 5201package PDL::Transform::Proj4::gs50; 5202use PDL::Transform::Proj4; 5203@ISA = ( 'PDL::Transform::Proj4' ); 5204 5205sub new 5206{ 5207 my $proto = shift; 5208 my $class = ref($proto) || $proto; 5209 my $sub = "PDL::Transform::Proj4::gs50::new()"; 5210 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5211 my $self = $class->SUPER::new( @_ ); 5212 bless ($self, $class); 5213 5214 my $o = $_[0]; 5215 unless( (ref $o) ) 5216 { $o = {@_}; } 5217 5218 #use Data::Dumper; 5219 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5220 #$dd2->Indent(1); 5221 #print STDERR $dd2->Dump(); 5222 5223 $self->{name} = "Mod. Stereographic of 50 U.S."; 5224 $self->{proj_code} = "gs50"; 5225 5226 # Make sure proj is set in the options: 5227 $self->{params}->{proj} = $self->{proj_code}; 5228 5229 # Grab our projection specific options: 5230 # 5231 $self->{projection_params} = [ qw( ) ]; 5232 foreach my $param ( @{ $self->{projection_params} } ) 5233 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5234 5235 $self->update_proj_string(); 5236 5237 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5238 #$dd->Indent(1); 5239 #print STDERR $dd->Dump(); 5240 5241 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5242 5243 return $self; 5244} # End of PDL::Transform::gs50::new()... 5245 52461; 5247 5248 5249 5250 5251# Autogenerated code for the Proj4 projection code: 5252# gstmerc 5253# 5254package PDL::Transform::Proj4::gstmerc; 5255use PDL::Transform::Proj4; 5256@ISA = ( 'PDL::Transform::Proj4' ); 5257 5258sub new 5259{ 5260 my $proto = shift; 5261 my $class = ref($proto) || $proto; 5262 my $sub = "PDL::Transform::Proj4::gstmerc::new()"; 5263 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5264 my $self = $class->SUPER::new( @_ ); 5265 bless ($self, $class); 5266 5267 my $o = $_[0]; 5268 unless( (ref $o) ) 5269 { $o = {@_}; } 5270 5271 #use Data::Dumper; 5272 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5273 #$dd2->Indent(1); 5274 #print STDERR $dd2->Dump(); 5275 5276 $self->{name} = "Gauss-Schreiber Transverse Mercator (aka Gauss-Laborde Reunion)"; 5277 $self->{proj_code} = "gstmerc"; 5278 5279 # Make sure proj is set in the options: 5280 $self->{params}->{proj} = $self->{proj_code}; 5281 5282 # Grab our projection specific options: 5283 # 5284 $self->{projection_params} = [ qw( lat_0 lon_0 k_0 ) ]; 5285 foreach my $param ( @{ $self->{projection_params} } ) 5286 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5287 5288 $self->update_proj_string(); 5289 5290 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5291 #$dd->Indent(1); 5292 #print STDERR $dd->Dump(); 5293 5294 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5295 5296 return $self; 5297} # End of PDL::Transform::gstmerc::new()... 5298 52991; 5300 5301 5302 5303 5304# Autogenerated code for the Proj4 projection code: 5305# hammer 5306# 5307package PDL::Transform::Proj4::hammer; 5308use PDL::Transform::Proj4; 5309@ISA = ( 'PDL::Transform::Proj4' ); 5310 5311sub new 5312{ 5313 my $proto = shift; 5314 my $class = ref($proto) || $proto; 5315 my $sub = "PDL::Transform::Proj4::hammer::new()"; 5316 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5317 my $self = $class->SUPER::new( @_ ); 5318 bless ($self, $class); 5319 5320 my $o = $_[0]; 5321 unless( (ref $o) ) 5322 { $o = {@_}; } 5323 5324 #use Data::Dumper; 5325 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5326 #$dd2->Indent(1); 5327 #print STDERR $dd2->Dump(); 5328 5329 $self->{name} = "Hammer & Eckert-Greifendorff"; 5330 $self->{proj_code} = "hammer"; 5331 5332 # Make sure proj is set in the options: 5333 $self->{params}->{proj} = $self->{proj_code}; 5334 5335 # Grab our projection specific options: 5336 # 5337 $self->{projection_params} = [ qw( W M ) ]; 5338 foreach my $param ( @{ $self->{projection_params} } ) 5339 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5340 5341 $self->update_proj_string(); 5342 5343 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5344 #$dd->Indent(1); 5345 #print STDERR $dd->Dump(); 5346 5347 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5348 5349 return $self; 5350} # End of PDL::Transform::hammer::new()... 5351 53521; 5353 5354 5355 5356 5357# Autogenerated code for the Proj4 projection code: 5358# hatano 5359# 5360package PDL::Transform::Proj4::hatano; 5361use PDL::Transform::Proj4; 5362@ISA = ( 'PDL::Transform::Proj4' ); 5363 5364sub new 5365{ 5366 my $proto = shift; 5367 my $class = ref($proto) || $proto; 5368 my $sub = "PDL::Transform::Proj4::hatano::new()"; 5369 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5370 my $self = $class->SUPER::new( @_ ); 5371 bless ($self, $class); 5372 5373 my $o = $_[0]; 5374 unless( (ref $o) ) 5375 { $o = {@_}; } 5376 5377 #use Data::Dumper; 5378 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5379 #$dd2->Indent(1); 5380 #print STDERR $dd2->Dump(); 5381 5382 $self->{name} = "Hatano Asymmetrical Equal Area"; 5383 $self->{proj_code} = "hatano"; 5384 5385 # Make sure proj is set in the options: 5386 $self->{params}->{proj} = $self->{proj_code}; 5387 5388 # Grab our projection specific options: 5389 # 5390 $self->{projection_params} = [ qw( ) ]; 5391 foreach my $param ( @{ $self->{projection_params} } ) 5392 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5393 5394 $self->update_proj_string(); 5395 5396 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5397 #$dd->Indent(1); 5398 #print STDERR $dd->Dump(); 5399 5400 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5401 5402 return $self; 5403} # End of PDL::Transform::hatano::new()... 5404 54051; 5406 5407 5408 5409 5410# Autogenerated code for the Proj4 projection code: 5411# healpix 5412# 5413package PDL::Transform::Proj4::healpix; 5414use PDL::Transform::Proj4; 5415@ISA = ( 'PDL::Transform::Proj4' ); 5416 5417sub new 5418{ 5419 my $proto = shift; 5420 my $class = ref($proto) || $proto; 5421 my $sub = "PDL::Transform::Proj4::healpix::new()"; 5422 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5423 my $self = $class->SUPER::new( @_ ); 5424 bless ($self, $class); 5425 5426 my $o = $_[0]; 5427 unless( (ref $o) ) 5428 { $o = {@_}; } 5429 5430 #use Data::Dumper; 5431 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5432 #$dd2->Indent(1); 5433 #print STDERR $dd2->Dump(); 5434 5435 $self->{name} = "HEALPix"; 5436 $self->{proj_code} = "healpix"; 5437 5438 # Make sure proj is set in the options: 5439 $self->{params}->{proj} = $self->{proj_code}; 5440 5441 # Grab our projection specific options: 5442 # 5443 $self->{projection_params} = [ qw( ) ]; 5444 foreach my $param ( @{ $self->{projection_params} } ) 5445 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5446 5447 $self->update_proj_string(); 5448 5449 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5450 #$dd->Indent(1); 5451 #print STDERR $dd->Dump(); 5452 5453 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5454 5455 return $self; 5456} # End of PDL::Transform::healpix::new()... 5457 54581; 5459 5460 5461 5462 5463# Autogenerated code for the Proj4 projection code: 5464# igh 5465# 5466package PDL::Transform::Proj4::igh; 5467use PDL::Transform::Proj4; 5468@ISA = ( 'PDL::Transform::Proj4' ); 5469 5470sub new 5471{ 5472 my $proto = shift; 5473 my $class = ref($proto) || $proto; 5474 my $sub = "PDL::Transform::Proj4::igh::new()"; 5475 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5476 my $self = $class->SUPER::new( @_ ); 5477 bless ($self, $class); 5478 5479 my $o = $_[0]; 5480 unless( (ref $o) ) 5481 { $o = {@_}; } 5482 5483 #use Data::Dumper; 5484 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5485 #$dd2->Indent(1); 5486 #print STDERR $dd2->Dump(); 5487 5488 $self->{name} = "Interrupted Goode Homolosine"; 5489 $self->{proj_code} = "igh"; 5490 5491 # Make sure proj is set in the options: 5492 $self->{params}->{proj} = $self->{proj_code}; 5493 5494 # Grab our projection specific options: 5495 # 5496 $self->{projection_params} = [ qw( ) ]; 5497 foreach my $param ( @{ $self->{projection_params} } ) 5498 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5499 5500 $self->update_proj_string(); 5501 5502 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5503 #$dd->Indent(1); 5504 #print STDERR $dd->Dump(); 5505 5506 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5507 5508 return $self; 5509} # End of PDL::Transform::igh::new()... 5510 55111; 5512 5513 5514 5515 5516# Autogenerated code for the Proj4 projection code: 5517# imw_p 5518# 5519package PDL::Transform::Proj4::imw_p; 5520use PDL::Transform::Proj4; 5521@ISA = ( 'PDL::Transform::Proj4' ); 5522 5523sub new 5524{ 5525 my $proto = shift; 5526 my $class = ref($proto) || $proto; 5527 my $sub = "PDL::Transform::Proj4::imw_p::new()"; 5528 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5529 my $self = $class->SUPER::new( @_ ); 5530 bless ($self, $class); 5531 5532 my $o = $_[0]; 5533 unless( (ref $o) ) 5534 { $o = {@_}; } 5535 5536 #use Data::Dumper; 5537 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5538 #$dd2->Indent(1); 5539 #print STDERR $dd2->Dump(); 5540 5541 $self->{name} = "International Map of the World Polyconic"; 5542 $self->{proj_code} = "imw_p"; 5543 5544 # Make sure proj is set in the options: 5545 $self->{params}->{proj} = $self->{proj_code}; 5546 5547 # Grab our projection specific options: 5548 # 5549 $self->{projection_params} = [ qw( lat_1 lat_2 lon_1 ) ]; 5550 foreach my $param ( @{ $self->{projection_params} } ) 5551 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5552 5553 $self->update_proj_string(); 5554 5555 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5556 #$dd->Indent(1); 5557 #print STDERR $dd->Dump(); 5558 5559 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5560 5561 return $self; 5562} # End of PDL::Transform::imw_p::new()... 5563 55641; 5565 5566 5567 5568 5569# Autogenerated code for the Proj4 projection code: 5570# isea 5571# 5572package PDL::Transform::Proj4::isea; 5573use PDL::Transform::Proj4; 5574@ISA = ( 'PDL::Transform::Proj4' ); 5575 5576sub new 5577{ 5578 my $proto = shift; 5579 my $class = ref($proto) || $proto; 5580 my $sub = "PDL::Transform::Proj4::isea::new()"; 5581 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5582 my $self = $class->SUPER::new( @_ ); 5583 bless ($self, $class); 5584 5585 my $o = $_[0]; 5586 unless( (ref $o) ) 5587 { $o = {@_}; } 5588 5589 #use Data::Dumper; 5590 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5591 #$dd2->Indent(1); 5592 #print STDERR $dd2->Dump(); 5593 5594 $self->{name} = "Icosahedral Snyder Equal Area"; 5595 $self->{proj_code} = "isea"; 5596 5597 # Make sure proj is set in the options: 5598 $self->{params}->{proj} = $self->{proj_code}; 5599 5600 # Grab our projection specific options: 5601 # 5602 $self->{projection_params} = [ qw( ) ]; 5603 foreach my $param ( @{ $self->{projection_params} } ) 5604 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5605 5606 $self->update_proj_string(); 5607 5608 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5609 #$dd->Indent(1); 5610 #print STDERR $dd->Dump(); 5611 5612 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5613 5614 return $self; 5615} # End of PDL::Transform::isea::new()... 5616 56171; 5618 5619 5620 5621 5622# Autogenerated code for the Proj4 projection code: 5623# kav5 5624# 5625package PDL::Transform::Proj4::kav5; 5626use PDL::Transform::Proj4; 5627@ISA = ( 'PDL::Transform::Proj4' ); 5628 5629sub new 5630{ 5631 my $proto = shift; 5632 my $class = ref($proto) || $proto; 5633 my $sub = "PDL::Transform::Proj4::kav5::new()"; 5634 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5635 my $self = $class->SUPER::new( @_ ); 5636 bless ($self, $class); 5637 5638 my $o = $_[0]; 5639 unless( (ref $o) ) 5640 { $o = {@_}; } 5641 5642 #use Data::Dumper; 5643 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5644 #$dd2->Indent(1); 5645 #print STDERR $dd2->Dump(); 5646 5647 $self->{name} = "Kavraisky V"; 5648 $self->{proj_code} = "kav5"; 5649 5650 # Make sure proj is set in the options: 5651 $self->{params}->{proj} = $self->{proj_code}; 5652 5653 # Grab our projection specific options: 5654 # 5655 $self->{projection_params} = [ qw( ) ]; 5656 foreach my $param ( @{ $self->{projection_params} } ) 5657 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5658 5659 $self->update_proj_string(); 5660 5661 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5662 #$dd->Indent(1); 5663 #print STDERR $dd->Dump(); 5664 5665 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5666 5667 return $self; 5668} # End of PDL::Transform::kav5::new()... 5669 56701; 5671 5672 5673 5674 5675# Autogenerated code for the Proj4 projection code: 5676# kav7 5677# 5678package PDL::Transform::Proj4::kav7; 5679use PDL::Transform::Proj4; 5680@ISA = ( 'PDL::Transform::Proj4' ); 5681 5682sub new 5683{ 5684 my $proto = shift; 5685 my $class = ref($proto) || $proto; 5686 my $sub = "PDL::Transform::Proj4::kav7::new()"; 5687 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5688 my $self = $class->SUPER::new( @_ ); 5689 bless ($self, $class); 5690 5691 my $o = $_[0]; 5692 unless( (ref $o) ) 5693 { $o = {@_}; } 5694 5695 #use Data::Dumper; 5696 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5697 #$dd2->Indent(1); 5698 #print STDERR $dd2->Dump(); 5699 5700 $self->{name} = "Kavraisky VII"; 5701 $self->{proj_code} = "kav7"; 5702 5703 # Make sure proj is set in the options: 5704 $self->{params}->{proj} = $self->{proj_code}; 5705 5706 # Grab our projection specific options: 5707 # 5708 $self->{projection_params} = [ qw( ) ]; 5709 foreach my $param ( @{ $self->{projection_params} } ) 5710 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5711 5712 $self->update_proj_string(); 5713 5714 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5715 #$dd->Indent(1); 5716 #print STDERR $dd->Dump(); 5717 5718 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5719 5720 return $self; 5721} # End of PDL::Transform::kav7::new()... 5722 57231; 5724 5725 5726 5727 5728# Autogenerated code for the Proj4 projection code: 5729# krovak 5730# 5731package PDL::Transform::Proj4::krovak; 5732use PDL::Transform::Proj4; 5733@ISA = ( 'PDL::Transform::Proj4' ); 5734 5735sub new 5736{ 5737 my $proto = shift; 5738 my $class = ref($proto) || $proto; 5739 my $sub = "PDL::Transform::Proj4::krovak::new()"; 5740 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5741 my $self = $class->SUPER::new( @_ ); 5742 bless ($self, $class); 5743 5744 my $o = $_[0]; 5745 unless( (ref $o) ) 5746 { $o = {@_}; } 5747 5748 #use Data::Dumper; 5749 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5750 #$dd2->Indent(1); 5751 #print STDERR $dd2->Dump(); 5752 5753 $self->{name} = "Krovak"; 5754 $self->{proj_code} = "krovak"; 5755 5756 # Make sure proj is set in the options: 5757 $self->{params}->{proj} = $self->{proj_code}; 5758 5759 # Grab our projection specific options: 5760 # 5761 $self->{projection_params} = [ qw( ) ]; 5762 foreach my $param ( @{ $self->{projection_params} } ) 5763 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5764 5765 $self->update_proj_string(); 5766 5767 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5768 #$dd->Indent(1); 5769 #print STDERR $dd->Dump(); 5770 5771 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5772 5773 return $self; 5774} # End of PDL::Transform::krovak::new()... 5775 57761; 5777 5778 5779 5780 5781# Autogenerated code for the Proj4 projection code: 5782# labrd 5783# 5784package PDL::Transform::Proj4::labrd; 5785use PDL::Transform::Proj4; 5786@ISA = ( 'PDL::Transform::Proj4' ); 5787 5788sub new 5789{ 5790 my $proto = shift; 5791 my $class = ref($proto) || $proto; 5792 my $sub = "PDL::Transform::Proj4::labrd::new()"; 5793 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5794 my $self = $class->SUPER::new( @_ ); 5795 bless ($self, $class); 5796 5797 my $o = $_[0]; 5798 unless( (ref $o) ) 5799 { $o = {@_}; } 5800 5801 #use Data::Dumper; 5802 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5803 #$dd2->Indent(1); 5804 #print STDERR $dd2->Dump(); 5805 5806 $self->{name} = "Laborde"; 5807 $self->{proj_code} = "labrd"; 5808 5809 # Make sure proj is set in the options: 5810 $self->{params}->{proj} = $self->{proj_code}; 5811 5812 # Grab our projection specific options: 5813 # 5814 $self->{projection_params} = [ qw( ) ]; 5815 foreach my $param ( @{ $self->{projection_params} } ) 5816 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5817 5818 $self->update_proj_string(); 5819 5820 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5821 #$dd->Indent(1); 5822 #print STDERR $dd->Dump(); 5823 5824 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5825 5826 return $self; 5827} # End of PDL::Transform::labrd::new()... 5828 58291; 5830 5831 5832 5833 5834# Autogenerated code for the Proj4 projection code: 5835# laea 5836# 5837package PDL::Transform::Proj4::laea; 5838use PDL::Transform::Proj4; 5839@ISA = ( 'PDL::Transform::Proj4' ); 5840 5841sub new 5842{ 5843 my $proto = shift; 5844 my $class = ref($proto) || $proto; 5845 my $sub = "PDL::Transform::Proj4::laea::new()"; 5846 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5847 my $self = $class->SUPER::new( @_ ); 5848 bless ($self, $class); 5849 5850 my $o = $_[0]; 5851 unless( (ref $o) ) 5852 { $o = {@_}; } 5853 5854 #use Data::Dumper; 5855 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5856 #$dd2->Indent(1); 5857 #print STDERR $dd2->Dump(); 5858 5859 $self->{name} = "Lambert Azimuthal Equal Area"; 5860 $self->{proj_code} = "laea"; 5861 5862 # Make sure proj is set in the options: 5863 $self->{params}->{proj} = $self->{proj_code}; 5864 5865 # Grab our projection specific options: 5866 # 5867 $self->{projection_params} = [ qw( ) ]; 5868 foreach my $param ( @{ $self->{projection_params} } ) 5869 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5870 5871 $self->update_proj_string(); 5872 5873 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5874 #$dd->Indent(1); 5875 #print STDERR $dd->Dump(); 5876 5877 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5878 5879 return $self; 5880} # End of PDL::Transform::laea::new()... 5881 58821; 5883 5884 5885 5886 5887# Autogenerated code for the Proj4 projection code: 5888# lagrng 5889# 5890package PDL::Transform::Proj4::lagrng; 5891use PDL::Transform::Proj4; 5892@ISA = ( 'PDL::Transform::Proj4' ); 5893 5894sub new 5895{ 5896 my $proto = shift; 5897 my $class = ref($proto) || $proto; 5898 my $sub = "PDL::Transform::Proj4::lagrng::new()"; 5899 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5900 my $self = $class->SUPER::new( @_ ); 5901 bless ($self, $class); 5902 5903 my $o = $_[0]; 5904 unless( (ref $o) ) 5905 { $o = {@_}; } 5906 5907 #use Data::Dumper; 5908 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5909 #$dd2->Indent(1); 5910 #print STDERR $dd2->Dump(); 5911 5912 $self->{name} = "Lagrange"; 5913 $self->{proj_code} = "lagrng"; 5914 5915 # Make sure proj is set in the options: 5916 $self->{params}->{proj} = $self->{proj_code}; 5917 5918 # Grab our projection specific options: 5919 # 5920 $self->{projection_params} = [ qw( W ) ]; 5921 foreach my $param ( @{ $self->{projection_params} } ) 5922 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5923 5924 $self->update_proj_string(); 5925 5926 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5927 #$dd->Indent(1); 5928 #print STDERR $dd->Dump(); 5929 5930 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5931 5932 return $self; 5933} # End of PDL::Transform::lagrng::new()... 5934 59351; 5936 5937 5938 5939 5940# Autogenerated code for the Proj4 projection code: 5941# larr 5942# 5943package PDL::Transform::Proj4::larr; 5944use PDL::Transform::Proj4; 5945@ISA = ( 'PDL::Transform::Proj4' ); 5946 5947sub new 5948{ 5949 my $proto = shift; 5950 my $class = ref($proto) || $proto; 5951 my $sub = "PDL::Transform::Proj4::larr::new()"; 5952 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 5953 my $self = $class->SUPER::new( @_ ); 5954 bless ($self, $class); 5955 5956 my $o = $_[0]; 5957 unless( (ref $o) ) 5958 { $o = {@_}; } 5959 5960 #use Data::Dumper; 5961 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 5962 #$dd2->Indent(1); 5963 #print STDERR $dd2->Dump(); 5964 5965 $self->{name} = "Larrivee"; 5966 $self->{proj_code} = "larr"; 5967 5968 # Make sure proj is set in the options: 5969 $self->{params}->{proj} = $self->{proj_code}; 5970 5971 # Grab our projection specific options: 5972 # 5973 $self->{projection_params} = [ qw( ) ]; 5974 foreach my $param ( @{ $self->{projection_params} } ) 5975 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 5976 5977 $self->update_proj_string(); 5978 5979 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 5980 #$dd->Indent(1); 5981 #print STDERR $dd->Dump(); 5982 5983 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 5984 5985 return $self; 5986} # End of PDL::Transform::larr::new()... 5987 59881; 5989 5990 5991 5992 5993# Autogenerated code for the Proj4 projection code: 5994# lask 5995# 5996package PDL::Transform::Proj4::lask; 5997use PDL::Transform::Proj4; 5998@ISA = ( 'PDL::Transform::Proj4' ); 5999 6000sub new 6001{ 6002 my $proto = shift; 6003 my $class = ref($proto) || $proto; 6004 my $sub = "PDL::Transform::Proj4::lask::new()"; 6005 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6006 my $self = $class->SUPER::new( @_ ); 6007 bless ($self, $class); 6008 6009 my $o = $_[0]; 6010 unless( (ref $o) ) 6011 { $o = {@_}; } 6012 6013 #use Data::Dumper; 6014 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6015 #$dd2->Indent(1); 6016 #print STDERR $dd2->Dump(); 6017 6018 $self->{name} = "Laskowski"; 6019 $self->{proj_code} = "lask"; 6020 6021 # Make sure proj is set in the options: 6022 $self->{params}->{proj} = $self->{proj_code}; 6023 6024 # Grab our projection specific options: 6025 # 6026 $self->{projection_params} = [ qw( ) ]; 6027 foreach my $param ( @{ $self->{projection_params} } ) 6028 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6029 6030 $self->update_proj_string(); 6031 6032 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6033 #$dd->Indent(1); 6034 #print STDERR $dd->Dump(); 6035 6036 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6037 6038 return $self; 6039} # End of PDL::Transform::lask::new()... 6040 60411; 6042 6043 6044 6045 6046# Autogenerated code for the Proj4 projection code: 6047# latlon 6048# 6049package PDL::Transform::Proj4::latlon; 6050use PDL::Transform::Proj4; 6051@ISA = ( 'PDL::Transform::Proj4' ); 6052 6053sub new 6054{ 6055 my $proto = shift; 6056 my $class = ref($proto) || $proto; 6057 my $sub = "PDL::Transform::Proj4::latlon::new()"; 6058 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6059 my $self = $class->SUPER::new( @_ ); 6060 bless ($self, $class); 6061 6062 my $o = $_[0]; 6063 unless( (ref $o) ) 6064 { $o = {@_}; } 6065 6066 #use Data::Dumper; 6067 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6068 #$dd2->Indent(1); 6069 #print STDERR $dd2->Dump(); 6070 6071 $self->{name} = "Lat/long (Geodetic alias)"; 6072 $self->{proj_code} = "latlon"; 6073 6074 # Make sure proj is set in the options: 6075 $self->{params}->{proj} = $self->{proj_code}; 6076 6077 # Grab our projection specific options: 6078 # 6079 $self->{projection_params} = [ qw( ) ]; 6080 foreach my $param ( @{ $self->{projection_params} } ) 6081 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6082 6083 $self->update_proj_string(); 6084 6085 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6086 #$dd->Indent(1); 6087 #print STDERR $dd->Dump(); 6088 6089 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6090 6091 return $self; 6092} # End of PDL::Transform::latlon::new()... 6093 60941; 6095 6096 6097 6098 6099# Autogenerated code for the Proj4 projection code: 6100# latlong 6101# 6102package PDL::Transform::Proj4::latlong; 6103use PDL::Transform::Proj4; 6104@ISA = ( 'PDL::Transform::Proj4' ); 6105 6106sub new 6107{ 6108 my $proto = shift; 6109 my $class = ref($proto) || $proto; 6110 my $sub = "PDL::Transform::Proj4::latlong::new()"; 6111 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6112 my $self = $class->SUPER::new( @_ ); 6113 bless ($self, $class); 6114 6115 my $o = $_[0]; 6116 unless( (ref $o) ) 6117 { $o = {@_}; } 6118 6119 #use Data::Dumper; 6120 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6121 #$dd2->Indent(1); 6122 #print STDERR $dd2->Dump(); 6123 6124 $self->{name} = "Lat/long (Geodetic alias)"; 6125 $self->{proj_code} = "latlong"; 6126 6127 # Make sure proj is set in the options: 6128 $self->{params}->{proj} = $self->{proj_code}; 6129 6130 # Grab our projection specific options: 6131 # 6132 $self->{projection_params} = [ qw( ) ]; 6133 foreach my $param ( @{ $self->{projection_params} } ) 6134 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6135 6136 $self->update_proj_string(); 6137 6138 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6139 #$dd->Indent(1); 6140 #print STDERR $dd->Dump(); 6141 6142 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6143 6144 return $self; 6145} # End of PDL::Transform::latlong::new()... 6146 61471; 6148 6149 6150 6151 6152# Autogenerated code for the Proj4 projection code: 6153# lcc 6154# 6155package PDL::Transform::Proj4::lcc; 6156use PDL::Transform::Proj4; 6157@ISA = ( 'PDL::Transform::Proj4' ); 6158 6159sub new 6160{ 6161 my $proto = shift; 6162 my $class = ref($proto) || $proto; 6163 my $sub = "PDL::Transform::Proj4::lcc::new()"; 6164 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6165 my $self = $class->SUPER::new( @_ ); 6166 bless ($self, $class); 6167 6168 my $o = $_[0]; 6169 unless( (ref $o) ) 6170 { $o = {@_}; } 6171 6172 #use Data::Dumper; 6173 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6174 #$dd2->Indent(1); 6175 #print STDERR $dd2->Dump(); 6176 6177 $self->{name} = "Lambert Conformal Conic"; 6178 $self->{proj_code} = "lcc"; 6179 6180 # Make sure proj is set in the options: 6181 $self->{params}->{proj} = $self->{proj_code}; 6182 6183 # Grab our projection specific options: 6184 # 6185 $self->{projection_params} = [ qw( lat_1 lat_2 lat_0 ) ]; 6186 foreach my $param ( @{ $self->{projection_params} } ) 6187 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6188 6189 $self->update_proj_string(); 6190 6191 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6192 #$dd->Indent(1); 6193 #print STDERR $dd->Dump(); 6194 6195 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6196 6197 return $self; 6198} # End of PDL::Transform::lcc::new()... 6199 62001; 6201 6202 6203 6204 6205# Autogenerated code for the Proj4 projection code: 6206# lcca 6207# 6208package PDL::Transform::Proj4::lcca; 6209use PDL::Transform::Proj4; 6210@ISA = ( 'PDL::Transform::Proj4' ); 6211 6212sub new 6213{ 6214 my $proto = shift; 6215 my $class = ref($proto) || $proto; 6216 my $sub = "PDL::Transform::Proj4::lcca::new()"; 6217 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6218 my $self = $class->SUPER::new( @_ ); 6219 bless ($self, $class); 6220 6221 my $o = $_[0]; 6222 unless( (ref $o) ) 6223 { $o = {@_}; } 6224 6225 #use Data::Dumper; 6226 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6227 #$dd2->Indent(1); 6228 #print STDERR $dd2->Dump(); 6229 6230 $self->{name} = "Lambert Conformal Conic Alternative"; 6231 $self->{proj_code} = "lcca"; 6232 6233 # Make sure proj is set in the options: 6234 $self->{params}->{proj} = $self->{proj_code}; 6235 6236 # Grab our projection specific options: 6237 # 6238 $self->{projection_params} = [ qw( lat_0 ) ]; 6239 foreach my $param ( @{ $self->{projection_params} } ) 6240 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6241 6242 $self->update_proj_string(); 6243 6244 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6245 #$dd->Indent(1); 6246 #print STDERR $dd->Dump(); 6247 6248 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6249 6250 return $self; 6251} # End of PDL::Transform::lcca::new()... 6252 62531; 6254 6255 6256 6257 6258# Autogenerated code for the Proj4 projection code: 6259# leac 6260# 6261package PDL::Transform::Proj4::leac; 6262use PDL::Transform::Proj4; 6263@ISA = ( 'PDL::Transform::Proj4' ); 6264 6265sub new 6266{ 6267 my $proto = shift; 6268 my $class = ref($proto) || $proto; 6269 my $sub = "PDL::Transform::Proj4::leac::new()"; 6270 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6271 my $self = $class->SUPER::new( @_ ); 6272 bless ($self, $class); 6273 6274 my $o = $_[0]; 6275 unless( (ref $o) ) 6276 { $o = {@_}; } 6277 6278 #use Data::Dumper; 6279 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6280 #$dd2->Indent(1); 6281 #print STDERR $dd2->Dump(); 6282 6283 $self->{name} = "Lambert Equal Area Conic"; 6284 $self->{proj_code} = "leac"; 6285 6286 # Make sure proj is set in the options: 6287 $self->{params}->{proj} = $self->{proj_code}; 6288 6289 # Grab our projection specific options: 6290 # 6291 $self->{projection_params} = [ qw( lat_1 south ) ]; 6292 foreach my $param ( @{ $self->{projection_params} } ) 6293 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6294 6295 $self->update_proj_string(); 6296 6297 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6298 #$dd->Indent(1); 6299 #print STDERR $dd->Dump(); 6300 6301 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6302 6303 return $self; 6304} # End of PDL::Transform::leac::new()... 6305 63061; 6307 6308 6309 6310 6311# Autogenerated code for the Proj4 projection code: 6312# lee_os 6313# 6314package PDL::Transform::Proj4::lee_os; 6315use PDL::Transform::Proj4; 6316@ISA = ( 'PDL::Transform::Proj4' ); 6317 6318sub new 6319{ 6320 my $proto = shift; 6321 my $class = ref($proto) || $proto; 6322 my $sub = "PDL::Transform::Proj4::lee_os::new()"; 6323 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6324 my $self = $class->SUPER::new( @_ ); 6325 bless ($self, $class); 6326 6327 my $o = $_[0]; 6328 unless( (ref $o) ) 6329 { $o = {@_}; } 6330 6331 #use Data::Dumper; 6332 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6333 #$dd2->Indent(1); 6334 #print STDERR $dd2->Dump(); 6335 6336 $self->{name} = "Lee Oblated Stereographic"; 6337 $self->{proj_code} = "lee_os"; 6338 6339 # Make sure proj is set in the options: 6340 $self->{params}->{proj} = $self->{proj_code}; 6341 6342 # Grab our projection specific options: 6343 # 6344 $self->{projection_params} = [ qw( ) ]; 6345 foreach my $param ( @{ $self->{projection_params} } ) 6346 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6347 6348 $self->update_proj_string(); 6349 6350 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6351 #$dd->Indent(1); 6352 #print STDERR $dd->Dump(); 6353 6354 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6355 6356 return $self; 6357} # End of PDL::Transform::lee_os::new()... 6358 63591; 6360 6361 6362 6363 6364# Autogenerated code for the Proj4 projection code: 6365# longlat 6366# 6367package PDL::Transform::Proj4::longlat; 6368use PDL::Transform::Proj4; 6369@ISA = ( 'PDL::Transform::Proj4' ); 6370 6371sub new 6372{ 6373 my $proto = shift; 6374 my $class = ref($proto) || $proto; 6375 my $sub = "PDL::Transform::Proj4::longlat::new()"; 6376 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6377 my $self = $class->SUPER::new( @_ ); 6378 bless ($self, $class); 6379 6380 my $o = $_[0]; 6381 unless( (ref $o) ) 6382 { $o = {@_}; } 6383 6384 #use Data::Dumper; 6385 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6386 #$dd2->Indent(1); 6387 #print STDERR $dd2->Dump(); 6388 6389 $self->{name} = "Lat/long (Geodetic alias)"; 6390 $self->{proj_code} = "longlat"; 6391 6392 # Make sure proj is set in the options: 6393 $self->{params}->{proj} = $self->{proj_code}; 6394 6395 # Grab our projection specific options: 6396 # 6397 $self->{projection_params} = [ qw( ) ]; 6398 foreach my $param ( @{ $self->{projection_params} } ) 6399 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6400 6401 $self->update_proj_string(); 6402 6403 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6404 #$dd->Indent(1); 6405 #print STDERR $dd->Dump(); 6406 6407 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6408 6409 return $self; 6410} # End of PDL::Transform::longlat::new()... 6411 64121; 6413 6414 6415 6416 6417# Autogenerated code for the Proj4 projection code: 6418# lonlat 6419# 6420package PDL::Transform::Proj4::lonlat; 6421use PDL::Transform::Proj4; 6422@ISA = ( 'PDL::Transform::Proj4' ); 6423 6424sub new 6425{ 6426 my $proto = shift; 6427 my $class = ref($proto) || $proto; 6428 my $sub = "PDL::Transform::Proj4::lonlat::new()"; 6429 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6430 my $self = $class->SUPER::new( @_ ); 6431 bless ($self, $class); 6432 6433 my $o = $_[0]; 6434 unless( (ref $o) ) 6435 { $o = {@_}; } 6436 6437 #use Data::Dumper; 6438 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6439 #$dd2->Indent(1); 6440 #print STDERR $dd2->Dump(); 6441 6442 $self->{name} = "Lat/long (Geodetic)"; 6443 $self->{proj_code} = "lonlat"; 6444 6445 # Make sure proj is set in the options: 6446 $self->{params}->{proj} = $self->{proj_code}; 6447 6448 # Grab our projection specific options: 6449 # 6450 $self->{projection_params} = [ qw( ) ]; 6451 foreach my $param ( @{ $self->{projection_params} } ) 6452 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6453 6454 $self->update_proj_string(); 6455 6456 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6457 #$dd->Indent(1); 6458 #print STDERR $dd->Dump(); 6459 6460 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6461 6462 return $self; 6463} # End of PDL::Transform::lonlat::new()... 6464 64651; 6466 6467 6468 6469 6470# Autogenerated code for the Proj4 projection code: 6471# loxim 6472# 6473package PDL::Transform::Proj4::loxim; 6474use PDL::Transform::Proj4; 6475@ISA = ( 'PDL::Transform::Proj4' ); 6476 6477sub new 6478{ 6479 my $proto = shift; 6480 my $class = ref($proto) || $proto; 6481 my $sub = "PDL::Transform::Proj4::loxim::new()"; 6482 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6483 my $self = $class->SUPER::new( @_ ); 6484 bless ($self, $class); 6485 6486 my $o = $_[0]; 6487 unless( (ref $o) ) 6488 { $o = {@_}; } 6489 6490 #use Data::Dumper; 6491 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6492 #$dd2->Indent(1); 6493 #print STDERR $dd2->Dump(); 6494 6495 $self->{name} = "Loximuthal"; 6496 $self->{proj_code} = "loxim"; 6497 6498 # Make sure proj is set in the options: 6499 $self->{params}->{proj} = $self->{proj_code}; 6500 6501 # Grab our projection specific options: 6502 # 6503 $self->{projection_params} = [ qw( ) ]; 6504 foreach my $param ( @{ $self->{projection_params} } ) 6505 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6506 6507 $self->update_proj_string(); 6508 6509 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6510 #$dd->Indent(1); 6511 #print STDERR $dd->Dump(); 6512 6513 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6514 6515 return $self; 6516} # End of PDL::Transform::loxim::new()... 6517 65181; 6519 6520 6521 6522 6523# Autogenerated code for the Proj4 projection code: 6524# lsat 6525# 6526package PDL::Transform::Proj4::lsat; 6527use PDL::Transform::Proj4; 6528@ISA = ( 'PDL::Transform::Proj4' ); 6529 6530sub new 6531{ 6532 my $proto = shift; 6533 my $class = ref($proto) || $proto; 6534 my $sub = "PDL::Transform::Proj4::lsat::new()"; 6535 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6536 my $self = $class->SUPER::new( @_ ); 6537 bless ($self, $class); 6538 6539 my $o = $_[0]; 6540 unless( (ref $o) ) 6541 { $o = {@_}; } 6542 6543 #use Data::Dumper; 6544 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6545 #$dd2->Indent(1); 6546 #print STDERR $dd2->Dump(); 6547 6548 $self->{name} = "Space oblique for LANDSAT"; 6549 $self->{proj_code} = "lsat"; 6550 6551 # Make sure proj is set in the options: 6552 $self->{params}->{proj} = $self->{proj_code}; 6553 6554 # Grab our projection specific options: 6555 # 6556 $self->{projection_params} = [ qw( lsat path ) ]; 6557 foreach my $param ( @{ $self->{projection_params} } ) 6558 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6559 6560 $self->update_proj_string(); 6561 6562 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6563 #$dd->Indent(1); 6564 #print STDERR $dd->Dump(); 6565 6566 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6567 6568 return $self; 6569} # End of PDL::Transform::lsat::new()... 6570 65711; 6572 6573 6574 6575 6576# Autogenerated code for the Proj4 projection code: 6577# mbt_fps 6578# 6579package PDL::Transform::Proj4::mbt_fps; 6580use PDL::Transform::Proj4; 6581@ISA = ( 'PDL::Transform::Proj4' ); 6582 6583sub new 6584{ 6585 my $proto = shift; 6586 my $class = ref($proto) || $proto; 6587 my $sub = "PDL::Transform::Proj4::mbt_fps::new()"; 6588 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6589 my $self = $class->SUPER::new( @_ ); 6590 bless ($self, $class); 6591 6592 my $o = $_[0]; 6593 unless( (ref $o) ) 6594 { $o = {@_}; } 6595 6596 #use Data::Dumper; 6597 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6598 #$dd2->Indent(1); 6599 #print STDERR $dd2->Dump(); 6600 6601 $self->{name} = "McBryde-Thomas Flat-Pole Sine (No. 2)"; 6602 $self->{proj_code} = "mbt_fps"; 6603 6604 # Make sure proj is set in the options: 6605 $self->{params}->{proj} = $self->{proj_code}; 6606 6607 # Grab our projection specific options: 6608 # 6609 $self->{projection_params} = [ qw( ) ]; 6610 foreach my $param ( @{ $self->{projection_params} } ) 6611 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6612 6613 $self->update_proj_string(); 6614 6615 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6616 #$dd->Indent(1); 6617 #print STDERR $dd->Dump(); 6618 6619 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6620 6621 return $self; 6622} # End of PDL::Transform::mbt_fps::new()... 6623 66241; 6625 6626 6627 6628 6629# Autogenerated code for the Proj4 projection code: 6630# mbt_s 6631# 6632package PDL::Transform::Proj4::mbt_s; 6633use PDL::Transform::Proj4; 6634@ISA = ( 'PDL::Transform::Proj4' ); 6635 6636sub new 6637{ 6638 my $proto = shift; 6639 my $class = ref($proto) || $proto; 6640 my $sub = "PDL::Transform::Proj4::mbt_s::new()"; 6641 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6642 my $self = $class->SUPER::new( @_ ); 6643 bless ($self, $class); 6644 6645 my $o = $_[0]; 6646 unless( (ref $o) ) 6647 { $o = {@_}; } 6648 6649 #use Data::Dumper; 6650 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6651 #$dd2->Indent(1); 6652 #print STDERR $dd2->Dump(); 6653 6654 $self->{name} = "McBryde-Thomas Flat-Polar Sine (No. 1)"; 6655 $self->{proj_code} = "mbt_s"; 6656 6657 # Make sure proj is set in the options: 6658 $self->{params}->{proj} = $self->{proj_code}; 6659 6660 # Grab our projection specific options: 6661 # 6662 $self->{projection_params} = [ qw( ) ]; 6663 foreach my $param ( @{ $self->{projection_params} } ) 6664 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6665 6666 $self->update_proj_string(); 6667 6668 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6669 #$dd->Indent(1); 6670 #print STDERR $dd->Dump(); 6671 6672 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6673 6674 return $self; 6675} # End of PDL::Transform::mbt_s::new()... 6676 66771; 6678 6679 6680 6681 6682# Autogenerated code for the Proj4 projection code: 6683# mbtfpp 6684# 6685package PDL::Transform::Proj4::mbtfpp; 6686use PDL::Transform::Proj4; 6687@ISA = ( 'PDL::Transform::Proj4' ); 6688 6689sub new 6690{ 6691 my $proto = shift; 6692 my $class = ref($proto) || $proto; 6693 my $sub = "PDL::Transform::Proj4::mbtfpp::new()"; 6694 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6695 my $self = $class->SUPER::new( @_ ); 6696 bless ($self, $class); 6697 6698 my $o = $_[0]; 6699 unless( (ref $o) ) 6700 { $o = {@_}; } 6701 6702 #use Data::Dumper; 6703 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6704 #$dd2->Indent(1); 6705 #print STDERR $dd2->Dump(); 6706 6707 $self->{name} = "McBride-Thomas Flat-Polar Parabolic"; 6708 $self->{proj_code} = "mbtfpp"; 6709 6710 # Make sure proj is set in the options: 6711 $self->{params}->{proj} = $self->{proj_code}; 6712 6713 # Grab our projection specific options: 6714 # 6715 $self->{projection_params} = [ qw( ) ]; 6716 foreach my $param ( @{ $self->{projection_params} } ) 6717 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6718 6719 $self->update_proj_string(); 6720 6721 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6722 #$dd->Indent(1); 6723 #print STDERR $dd->Dump(); 6724 6725 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6726 6727 return $self; 6728} # End of PDL::Transform::mbtfpp::new()... 6729 67301; 6731 6732 6733 6734 6735# Autogenerated code for the Proj4 projection code: 6736# mbtfpq 6737# 6738package PDL::Transform::Proj4::mbtfpq; 6739use PDL::Transform::Proj4; 6740@ISA = ( 'PDL::Transform::Proj4' ); 6741 6742sub new 6743{ 6744 my $proto = shift; 6745 my $class = ref($proto) || $proto; 6746 my $sub = "PDL::Transform::Proj4::mbtfpq::new()"; 6747 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6748 my $self = $class->SUPER::new( @_ ); 6749 bless ($self, $class); 6750 6751 my $o = $_[0]; 6752 unless( (ref $o) ) 6753 { $o = {@_}; } 6754 6755 #use Data::Dumper; 6756 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6757 #$dd2->Indent(1); 6758 #print STDERR $dd2->Dump(); 6759 6760 $self->{name} = "McBryde-Thomas Flat-Polar Quartic"; 6761 $self->{proj_code} = "mbtfpq"; 6762 6763 # Make sure proj is set in the options: 6764 $self->{params}->{proj} = $self->{proj_code}; 6765 6766 # Grab our projection specific options: 6767 # 6768 $self->{projection_params} = [ qw( ) ]; 6769 foreach my $param ( @{ $self->{projection_params} } ) 6770 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6771 6772 $self->update_proj_string(); 6773 6774 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6775 #$dd->Indent(1); 6776 #print STDERR $dd->Dump(); 6777 6778 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6779 6780 return $self; 6781} # End of PDL::Transform::mbtfpq::new()... 6782 67831; 6784 6785 6786 6787 6788# Autogenerated code for the Proj4 projection code: 6789# mbtfps 6790# 6791package PDL::Transform::Proj4::mbtfps; 6792use PDL::Transform::Proj4; 6793@ISA = ( 'PDL::Transform::Proj4' ); 6794 6795sub new 6796{ 6797 my $proto = shift; 6798 my $class = ref($proto) || $proto; 6799 my $sub = "PDL::Transform::Proj4::mbtfps::new()"; 6800 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6801 my $self = $class->SUPER::new( @_ ); 6802 bless ($self, $class); 6803 6804 my $o = $_[0]; 6805 unless( (ref $o) ) 6806 { $o = {@_}; } 6807 6808 #use Data::Dumper; 6809 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6810 #$dd2->Indent(1); 6811 #print STDERR $dd2->Dump(); 6812 6813 $self->{name} = "McBryde-Thomas Flat-Polar Sinusoidal"; 6814 $self->{proj_code} = "mbtfps"; 6815 6816 # Make sure proj is set in the options: 6817 $self->{params}->{proj} = $self->{proj_code}; 6818 6819 # Grab our projection specific options: 6820 # 6821 $self->{projection_params} = [ qw( ) ]; 6822 foreach my $param ( @{ $self->{projection_params} } ) 6823 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6824 6825 $self->update_proj_string(); 6826 6827 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6828 #$dd->Indent(1); 6829 #print STDERR $dd->Dump(); 6830 6831 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6832 6833 return $self; 6834} # End of PDL::Transform::mbtfps::new()... 6835 68361; 6837 6838 6839 6840 6841# Autogenerated code for the Proj4 projection code: 6842# merc 6843# 6844package PDL::Transform::Proj4::merc; 6845use PDL::Transform::Proj4; 6846@ISA = ( 'PDL::Transform::Proj4' ); 6847 6848sub new 6849{ 6850 my $proto = shift; 6851 my $class = ref($proto) || $proto; 6852 my $sub = "PDL::Transform::Proj4::merc::new()"; 6853 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6854 my $self = $class->SUPER::new( @_ ); 6855 bless ($self, $class); 6856 6857 my $o = $_[0]; 6858 unless( (ref $o) ) 6859 { $o = {@_}; } 6860 6861 #use Data::Dumper; 6862 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6863 #$dd2->Indent(1); 6864 #print STDERR $dd2->Dump(); 6865 6866 $self->{name} = "Mercator"; 6867 $self->{proj_code} = "merc"; 6868 6869 # Make sure proj is set in the options: 6870 $self->{params}->{proj} = $self->{proj_code}; 6871 6872 # Grab our projection specific options: 6873 # 6874 $self->{projection_params} = [ qw( lat_ts ) ]; 6875 foreach my $param ( @{ $self->{projection_params} } ) 6876 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6877 6878 $self->update_proj_string(); 6879 6880 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6881 #$dd->Indent(1); 6882 #print STDERR $dd->Dump(); 6883 6884 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6885 6886 return $self; 6887} # End of PDL::Transform::merc::new()... 6888 68891; 6890 6891 6892 6893 6894# Autogenerated code for the Proj4 projection code: 6895# mil_os 6896# 6897package PDL::Transform::Proj4::mil_os; 6898use PDL::Transform::Proj4; 6899@ISA = ( 'PDL::Transform::Proj4' ); 6900 6901sub new 6902{ 6903 my $proto = shift; 6904 my $class = ref($proto) || $proto; 6905 my $sub = "PDL::Transform::Proj4::mil_os::new()"; 6906 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6907 my $self = $class->SUPER::new( @_ ); 6908 bless ($self, $class); 6909 6910 my $o = $_[0]; 6911 unless( (ref $o) ) 6912 { $o = {@_}; } 6913 6914 #use Data::Dumper; 6915 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6916 #$dd2->Indent(1); 6917 #print STDERR $dd2->Dump(); 6918 6919 $self->{name} = "Miller Oblated Stereographic"; 6920 $self->{proj_code} = "mil_os"; 6921 6922 # Make sure proj is set in the options: 6923 $self->{params}->{proj} = $self->{proj_code}; 6924 6925 # Grab our projection specific options: 6926 # 6927 $self->{projection_params} = [ qw( ) ]; 6928 foreach my $param ( @{ $self->{projection_params} } ) 6929 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6930 6931 $self->update_proj_string(); 6932 6933 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6934 #$dd->Indent(1); 6935 #print STDERR $dd->Dump(); 6936 6937 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6938 6939 return $self; 6940} # End of PDL::Transform::mil_os::new()... 6941 69421; 6943 6944 6945 6946 6947# Autogenerated code for the Proj4 projection code: 6948# mill 6949# 6950package PDL::Transform::Proj4::mill; 6951use PDL::Transform::Proj4; 6952@ISA = ( 'PDL::Transform::Proj4' ); 6953 6954sub new 6955{ 6956 my $proto = shift; 6957 my $class = ref($proto) || $proto; 6958 my $sub = "PDL::Transform::Proj4::mill::new()"; 6959 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 6960 my $self = $class->SUPER::new( @_ ); 6961 bless ($self, $class); 6962 6963 my $o = $_[0]; 6964 unless( (ref $o) ) 6965 { $o = {@_}; } 6966 6967 #use Data::Dumper; 6968 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 6969 #$dd2->Indent(1); 6970 #print STDERR $dd2->Dump(); 6971 6972 $self->{name} = "Miller Cylindrical"; 6973 $self->{proj_code} = "mill"; 6974 6975 # Make sure proj is set in the options: 6976 $self->{params}->{proj} = $self->{proj_code}; 6977 6978 # Grab our projection specific options: 6979 # 6980 $self->{projection_params} = [ qw( ) ]; 6981 foreach my $param ( @{ $self->{projection_params} } ) 6982 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 6983 6984 $self->update_proj_string(); 6985 6986 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 6987 #$dd->Indent(1); 6988 #print STDERR $dd->Dump(); 6989 6990 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 6991 6992 return $self; 6993} # End of PDL::Transform::mill::new()... 6994 69951; 6996 6997 6998 6999 7000# Autogenerated code for the Proj4 projection code: 7001# misrsom 7002# 7003package PDL::Transform::Proj4::misrsom; 7004use PDL::Transform::Proj4; 7005@ISA = ( 'PDL::Transform::Proj4' ); 7006 7007sub new 7008{ 7009 my $proto = shift; 7010 my $class = ref($proto) || $proto; 7011 my $sub = "PDL::Transform::Proj4::misrsom::new()"; 7012 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7013 my $self = $class->SUPER::new( @_ ); 7014 bless ($self, $class); 7015 7016 my $o = $_[0]; 7017 unless( (ref $o) ) 7018 { $o = {@_}; } 7019 7020 #use Data::Dumper; 7021 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7022 #$dd2->Indent(1); 7023 #print STDERR $dd2->Dump(); 7024 7025 $self->{name} = "Space oblique for MISR"; 7026 $self->{proj_code} = "misrsom"; 7027 7028 # Make sure proj is set in the options: 7029 $self->{params}->{proj} = $self->{proj_code}; 7030 7031 # Grab our projection specific options: 7032 # 7033 $self->{projection_params} = [ qw( path ) ]; 7034 foreach my $param ( @{ $self->{projection_params} } ) 7035 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7036 7037 $self->update_proj_string(); 7038 7039 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7040 #$dd->Indent(1); 7041 #print STDERR $dd->Dump(); 7042 7043 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7044 7045 return $self; 7046} # End of PDL::Transform::misrsom::new()... 7047 70481; 7049 7050 7051 7052 7053# Autogenerated code for the Proj4 projection code: 7054# moll 7055# 7056package PDL::Transform::Proj4::moll; 7057use PDL::Transform::Proj4; 7058@ISA = ( 'PDL::Transform::Proj4' ); 7059 7060sub new 7061{ 7062 my $proto = shift; 7063 my $class = ref($proto) || $proto; 7064 my $sub = "PDL::Transform::Proj4::moll::new()"; 7065 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7066 my $self = $class->SUPER::new( @_ ); 7067 bless ($self, $class); 7068 7069 my $o = $_[0]; 7070 unless( (ref $o) ) 7071 { $o = {@_}; } 7072 7073 #use Data::Dumper; 7074 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7075 #$dd2->Indent(1); 7076 #print STDERR $dd2->Dump(); 7077 7078 $self->{name} = "Mollweide"; 7079 $self->{proj_code} = "moll"; 7080 7081 # Make sure proj is set in the options: 7082 $self->{params}->{proj} = $self->{proj_code}; 7083 7084 # Grab our projection specific options: 7085 # 7086 $self->{projection_params} = [ qw( ) ]; 7087 foreach my $param ( @{ $self->{projection_params} } ) 7088 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7089 7090 $self->update_proj_string(); 7091 7092 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7093 #$dd->Indent(1); 7094 #print STDERR $dd->Dump(); 7095 7096 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7097 7098 return $self; 7099} # End of PDL::Transform::moll::new()... 7100 71011; 7102 7103 7104 7105 7106# Autogenerated code for the Proj4 projection code: 7107# murd1 7108# 7109package PDL::Transform::Proj4::murd1; 7110use PDL::Transform::Proj4; 7111@ISA = ( 'PDL::Transform::Proj4' ); 7112 7113sub new 7114{ 7115 my $proto = shift; 7116 my $class = ref($proto) || $proto; 7117 my $sub = "PDL::Transform::Proj4::murd1::new()"; 7118 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7119 my $self = $class->SUPER::new( @_ ); 7120 bless ($self, $class); 7121 7122 my $o = $_[0]; 7123 unless( (ref $o) ) 7124 { $o = {@_}; } 7125 7126 #use Data::Dumper; 7127 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7128 #$dd2->Indent(1); 7129 #print STDERR $dd2->Dump(); 7130 7131 $self->{name} = "Murdoch I"; 7132 $self->{proj_code} = "murd1"; 7133 7134 # Make sure proj is set in the options: 7135 $self->{params}->{proj} = $self->{proj_code}; 7136 7137 # Grab our projection specific options: 7138 # 7139 $self->{projection_params} = [ qw( lat_1 lat_2 ) ]; 7140 foreach my $param ( @{ $self->{projection_params} } ) 7141 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7142 7143 $self->update_proj_string(); 7144 7145 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7146 #$dd->Indent(1); 7147 #print STDERR $dd->Dump(); 7148 7149 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7150 7151 return $self; 7152} # End of PDL::Transform::murd1::new()... 7153 71541; 7155 7156 7157 7158 7159# Autogenerated code for the Proj4 projection code: 7160# murd2 7161# 7162package PDL::Transform::Proj4::murd2; 7163use PDL::Transform::Proj4; 7164@ISA = ( 'PDL::Transform::Proj4' ); 7165 7166sub new 7167{ 7168 my $proto = shift; 7169 my $class = ref($proto) || $proto; 7170 my $sub = "PDL::Transform::Proj4::murd2::new()"; 7171 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7172 my $self = $class->SUPER::new( @_ ); 7173 bless ($self, $class); 7174 7175 my $o = $_[0]; 7176 unless( (ref $o) ) 7177 { $o = {@_}; } 7178 7179 #use Data::Dumper; 7180 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7181 #$dd2->Indent(1); 7182 #print STDERR $dd2->Dump(); 7183 7184 $self->{name} = "Murdoch II"; 7185 $self->{proj_code} = "murd2"; 7186 7187 # Make sure proj is set in the options: 7188 $self->{params}->{proj} = $self->{proj_code}; 7189 7190 # Grab our projection specific options: 7191 # 7192 $self->{projection_params} = [ qw( lat_1 lat_2 ) ]; 7193 foreach my $param ( @{ $self->{projection_params} } ) 7194 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7195 7196 $self->update_proj_string(); 7197 7198 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7199 #$dd->Indent(1); 7200 #print STDERR $dd->Dump(); 7201 7202 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7203 7204 return $self; 7205} # End of PDL::Transform::murd2::new()... 7206 72071; 7208 7209 7210 7211 7212# Autogenerated code for the Proj4 projection code: 7213# murd3 7214# 7215package PDL::Transform::Proj4::murd3; 7216use PDL::Transform::Proj4; 7217@ISA = ( 'PDL::Transform::Proj4' ); 7218 7219sub new 7220{ 7221 my $proto = shift; 7222 my $class = ref($proto) || $proto; 7223 my $sub = "PDL::Transform::Proj4::murd3::new()"; 7224 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7225 my $self = $class->SUPER::new( @_ ); 7226 bless ($self, $class); 7227 7228 my $o = $_[0]; 7229 unless( (ref $o) ) 7230 { $o = {@_}; } 7231 7232 #use Data::Dumper; 7233 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7234 #$dd2->Indent(1); 7235 #print STDERR $dd2->Dump(); 7236 7237 $self->{name} = "Murdoch III"; 7238 $self->{proj_code} = "murd3"; 7239 7240 # Make sure proj is set in the options: 7241 $self->{params}->{proj} = $self->{proj_code}; 7242 7243 # Grab our projection specific options: 7244 # 7245 $self->{projection_params} = [ qw( lat_1 lat_2 ) ]; 7246 foreach my $param ( @{ $self->{projection_params} } ) 7247 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7248 7249 $self->update_proj_string(); 7250 7251 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7252 #$dd->Indent(1); 7253 #print STDERR $dd->Dump(); 7254 7255 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7256 7257 return $self; 7258} # End of PDL::Transform::murd3::new()... 7259 72601; 7261 7262 7263 7264 7265# Autogenerated code for the Proj4 projection code: 7266# natearth 7267# 7268package PDL::Transform::Proj4::natearth; 7269use PDL::Transform::Proj4; 7270@ISA = ( 'PDL::Transform::Proj4' ); 7271 7272sub new 7273{ 7274 my $proto = shift; 7275 my $class = ref($proto) || $proto; 7276 my $sub = "PDL::Transform::Proj4::natearth::new()"; 7277 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7278 my $self = $class->SUPER::new( @_ ); 7279 bless ($self, $class); 7280 7281 my $o = $_[0]; 7282 unless( (ref $o) ) 7283 { $o = {@_}; } 7284 7285 #use Data::Dumper; 7286 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7287 #$dd2->Indent(1); 7288 #print STDERR $dd2->Dump(); 7289 7290 $self->{name} = "Natural Earth"; 7291 $self->{proj_code} = "natearth"; 7292 7293 # Make sure proj is set in the options: 7294 $self->{params}->{proj} = $self->{proj_code}; 7295 7296 # Grab our projection specific options: 7297 # 7298 $self->{projection_params} = [ qw( ) ]; 7299 foreach my $param ( @{ $self->{projection_params} } ) 7300 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7301 7302 $self->update_proj_string(); 7303 7304 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7305 #$dd->Indent(1); 7306 #print STDERR $dd->Dump(); 7307 7308 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7309 7310 return $self; 7311} # End of PDL::Transform::natearth::new()... 7312 73131; 7314 7315 7316 7317 7318# Autogenerated code for the Proj4 projection code: 7319# natearth2 7320# 7321package PDL::Transform::Proj4::natearth2; 7322use PDL::Transform::Proj4; 7323@ISA = ( 'PDL::Transform::Proj4' ); 7324 7325sub new 7326{ 7327 my $proto = shift; 7328 my $class = ref($proto) || $proto; 7329 my $sub = "PDL::Transform::Proj4::natearth2::new()"; 7330 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7331 my $self = $class->SUPER::new( @_ ); 7332 bless ($self, $class); 7333 7334 my $o = $_[0]; 7335 unless( (ref $o) ) 7336 { $o = {@_}; } 7337 7338 #use Data::Dumper; 7339 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7340 #$dd2->Indent(1); 7341 #print STDERR $dd2->Dump(); 7342 7343 $self->{name} = "Natural Earth 2"; 7344 $self->{proj_code} = "natearth2"; 7345 7346 # Make sure proj is set in the options: 7347 $self->{params}->{proj} = $self->{proj_code}; 7348 7349 # Grab our projection specific options: 7350 # 7351 $self->{projection_params} = [ qw( ) ]; 7352 foreach my $param ( @{ $self->{projection_params} } ) 7353 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7354 7355 $self->update_proj_string(); 7356 7357 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7358 #$dd->Indent(1); 7359 #print STDERR $dd->Dump(); 7360 7361 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7362 7363 return $self; 7364} # End of PDL::Transform::natearth2::new()... 7365 73661; 7367 7368 7369 7370 7371# Autogenerated code for the Proj4 projection code: 7372# nell 7373# 7374package PDL::Transform::Proj4::nell; 7375use PDL::Transform::Proj4; 7376@ISA = ( 'PDL::Transform::Proj4' ); 7377 7378sub new 7379{ 7380 my $proto = shift; 7381 my $class = ref($proto) || $proto; 7382 my $sub = "PDL::Transform::Proj4::nell::new()"; 7383 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7384 my $self = $class->SUPER::new( @_ ); 7385 bless ($self, $class); 7386 7387 my $o = $_[0]; 7388 unless( (ref $o) ) 7389 { $o = {@_}; } 7390 7391 #use Data::Dumper; 7392 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7393 #$dd2->Indent(1); 7394 #print STDERR $dd2->Dump(); 7395 7396 $self->{name} = "Nell"; 7397 $self->{proj_code} = "nell"; 7398 7399 # Make sure proj is set in the options: 7400 $self->{params}->{proj} = $self->{proj_code}; 7401 7402 # Grab our projection specific options: 7403 # 7404 $self->{projection_params} = [ qw( ) ]; 7405 foreach my $param ( @{ $self->{projection_params} } ) 7406 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7407 7408 $self->update_proj_string(); 7409 7410 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7411 #$dd->Indent(1); 7412 #print STDERR $dd->Dump(); 7413 7414 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7415 7416 return $self; 7417} # End of PDL::Transform::nell::new()... 7418 74191; 7420 7421 7422 7423 7424# Autogenerated code for the Proj4 projection code: 7425# nell_h 7426# 7427package PDL::Transform::Proj4::nell_h; 7428use PDL::Transform::Proj4; 7429@ISA = ( 'PDL::Transform::Proj4' ); 7430 7431sub new 7432{ 7433 my $proto = shift; 7434 my $class = ref($proto) || $proto; 7435 my $sub = "PDL::Transform::Proj4::nell_h::new()"; 7436 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7437 my $self = $class->SUPER::new( @_ ); 7438 bless ($self, $class); 7439 7440 my $o = $_[0]; 7441 unless( (ref $o) ) 7442 { $o = {@_}; } 7443 7444 #use Data::Dumper; 7445 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7446 #$dd2->Indent(1); 7447 #print STDERR $dd2->Dump(); 7448 7449 $self->{name} = "Nell-Hammer"; 7450 $self->{proj_code} = "nell_h"; 7451 7452 # Make sure proj is set in the options: 7453 $self->{params}->{proj} = $self->{proj_code}; 7454 7455 # Grab our projection specific options: 7456 # 7457 $self->{projection_params} = [ qw( ) ]; 7458 foreach my $param ( @{ $self->{projection_params} } ) 7459 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7460 7461 $self->update_proj_string(); 7462 7463 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7464 #$dd->Indent(1); 7465 #print STDERR $dd->Dump(); 7466 7467 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7468 7469 return $self; 7470} # End of PDL::Transform::nell_h::new()... 7471 74721; 7473 7474 7475 7476 7477# Autogenerated code for the Proj4 projection code: 7478# nicol 7479# 7480package PDL::Transform::Proj4::nicol; 7481use PDL::Transform::Proj4; 7482@ISA = ( 'PDL::Transform::Proj4' ); 7483 7484sub new 7485{ 7486 my $proto = shift; 7487 my $class = ref($proto) || $proto; 7488 my $sub = "PDL::Transform::Proj4::nicol::new()"; 7489 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7490 my $self = $class->SUPER::new( @_ ); 7491 bless ($self, $class); 7492 7493 my $o = $_[0]; 7494 unless( (ref $o) ) 7495 { $o = {@_}; } 7496 7497 #use Data::Dumper; 7498 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7499 #$dd2->Indent(1); 7500 #print STDERR $dd2->Dump(); 7501 7502 $self->{name} = "Nicolosi Globular"; 7503 $self->{proj_code} = "nicol"; 7504 7505 # Make sure proj is set in the options: 7506 $self->{params}->{proj} = $self->{proj_code}; 7507 7508 # Grab our projection specific options: 7509 # 7510 $self->{projection_params} = [ qw( ) ]; 7511 foreach my $param ( @{ $self->{projection_params} } ) 7512 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7513 7514 $self->update_proj_string(); 7515 7516 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7517 #$dd->Indent(1); 7518 #print STDERR $dd->Dump(); 7519 7520 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7521 7522 return $self; 7523} # End of PDL::Transform::nicol::new()... 7524 75251; 7526 7527 7528 7529 7530# Autogenerated code for the Proj4 projection code: 7531# nsper 7532# 7533package PDL::Transform::Proj4::nsper; 7534use PDL::Transform::Proj4; 7535@ISA = ( 'PDL::Transform::Proj4' ); 7536 7537sub new 7538{ 7539 my $proto = shift; 7540 my $class = ref($proto) || $proto; 7541 my $sub = "PDL::Transform::Proj4::nsper::new()"; 7542 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7543 my $self = $class->SUPER::new( @_ ); 7544 bless ($self, $class); 7545 7546 my $o = $_[0]; 7547 unless( (ref $o) ) 7548 { $o = {@_}; } 7549 7550 #use Data::Dumper; 7551 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7552 #$dd2->Indent(1); 7553 #print STDERR $dd2->Dump(); 7554 7555 $self->{name} = "Near-sided perspective"; 7556 $self->{proj_code} = "nsper"; 7557 7558 # Make sure proj is set in the options: 7559 $self->{params}->{proj} = $self->{proj_code}; 7560 7561 # Grab our projection specific options: 7562 # 7563 $self->{projection_params} = [ qw( h ) ]; 7564 foreach my $param ( @{ $self->{projection_params} } ) 7565 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7566 7567 $self->update_proj_string(); 7568 7569 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7570 #$dd->Indent(1); 7571 #print STDERR $dd->Dump(); 7572 7573 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7574 7575 return $self; 7576} # End of PDL::Transform::nsper::new()... 7577 75781; 7579 7580 7581 7582 7583# Autogenerated code for the Proj4 projection code: 7584# nzmg 7585# 7586package PDL::Transform::Proj4::nzmg; 7587use PDL::Transform::Proj4; 7588@ISA = ( 'PDL::Transform::Proj4' ); 7589 7590sub new 7591{ 7592 my $proto = shift; 7593 my $class = ref($proto) || $proto; 7594 my $sub = "PDL::Transform::Proj4::nzmg::new()"; 7595 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7596 my $self = $class->SUPER::new( @_ ); 7597 bless ($self, $class); 7598 7599 my $o = $_[0]; 7600 unless( (ref $o) ) 7601 { $o = {@_}; } 7602 7603 #use Data::Dumper; 7604 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7605 #$dd2->Indent(1); 7606 #print STDERR $dd2->Dump(); 7607 7608 $self->{name} = "New Zealand Map Grid"; 7609 $self->{proj_code} = "nzmg"; 7610 7611 # Make sure proj is set in the options: 7612 $self->{params}->{proj} = $self->{proj_code}; 7613 7614 # Grab our projection specific options: 7615 # 7616 $self->{projection_params} = [ qw( ) ]; 7617 foreach my $param ( @{ $self->{projection_params} } ) 7618 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7619 7620 $self->update_proj_string(); 7621 7622 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7623 #$dd->Indent(1); 7624 #print STDERR $dd->Dump(); 7625 7626 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7627 7628 return $self; 7629} # End of PDL::Transform::nzmg::new()... 7630 76311; 7632 7633 7634 7635 7636# Autogenerated code for the Proj4 projection code: 7637# ob_tran 7638# 7639package PDL::Transform::Proj4::ob_tran; 7640use PDL::Transform::Proj4; 7641@ISA = ( 'PDL::Transform::Proj4' ); 7642 7643sub new 7644{ 7645 my $proto = shift; 7646 my $class = ref($proto) || $proto; 7647 my $sub = "PDL::Transform::Proj4::ob_tran::new()"; 7648 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7649 my $self = $class->SUPER::new( @_ ); 7650 bless ($self, $class); 7651 7652 my $o = $_[0]; 7653 unless( (ref $o) ) 7654 { $o = {@_}; } 7655 7656 #use Data::Dumper; 7657 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7658 #$dd2->Indent(1); 7659 #print STDERR $dd2->Dump(); 7660 7661 $self->{name} = "General Oblique Transformation"; 7662 $self->{proj_code} = "ob_tran"; 7663 7664 # Make sure proj is set in the options: 7665 $self->{params}->{proj} = $self->{proj_code}; 7666 7667 # Grab our projection specific options: 7668 # 7669 $self->{projection_params} = [ qw( 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 ) ]; 7670 foreach my $param ( @{ $self->{projection_params} } ) 7671 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7672 7673 $self->update_proj_string(); 7674 7675 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7676 #$dd->Indent(1); 7677 #print STDERR $dd->Dump(); 7678 7679 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7680 7681 return $self; 7682} # End of PDL::Transform::ob_tran::new()... 7683 76841; 7685 7686 7687 7688 7689# Autogenerated code for the Proj4 projection code: 7690# ocea 7691# 7692package PDL::Transform::Proj4::ocea; 7693use PDL::Transform::Proj4; 7694@ISA = ( 'PDL::Transform::Proj4' ); 7695 7696sub new 7697{ 7698 my $proto = shift; 7699 my $class = ref($proto) || $proto; 7700 my $sub = "PDL::Transform::Proj4::ocea::new()"; 7701 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7702 my $self = $class->SUPER::new( @_ ); 7703 bless ($self, $class); 7704 7705 my $o = $_[0]; 7706 unless( (ref $o) ) 7707 { $o = {@_}; } 7708 7709 #use Data::Dumper; 7710 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7711 #$dd2->Indent(1); 7712 #print STDERR $dd2->Dump(); 7713 7714 $self->{name} = "Oblique Cylindrical Equal Area"; 7715 $self->{proj_code} = "ocea"; 7716 7717 # Make sure proj is set in the options: 7718 $self->{params}->{proj} = $self->{proj_code}; 7719 7720 # Grab our projection specific options: 7721 # 7722 $self->{projection_params} = [ qw( lat_1 lat_2 lon_1 lon_2 ) ]; 7723 foreach my $param ( @{ $self->{projection_params} } ) 7724 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7725 7726 $self->update_proj_string(); 7727 7728 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7729 #$dd->Indent(1); 7730 #print STDERR $dd->Dump(); 7731 7732 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7733 7734 return $self; 7735} # End of PDL::Transform::ocea::new()... 7736 77371; 7738 7739 7740 7741 7742# Autogenerated code for the Proj4 projection code: 7743# oea 7744# 7745package PDL::Transform::Proj4::oea; 7746use PDL::Transform::Proj4; 7747@ISA = ( 'PDL::Transform::Proj4' ); 7748 7749sub new 7750{ 7751 my $proto = shift; 7752 my $class = ref($proto) || $proto; 7753 my $sub = "PDL::Transform::Proj4::oea::new()"; 7754 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7755 my $self = $class->SUPER::new( @_ ); 7756 bless ($self, $class); 7757 7758 my $o = $_[0]; 7759 unless( (ref $o) ) 7760 { $o = {@_}; } 7761 7762 #use Data::Dumper; 7763 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7764 #$dd2->Indent(1); 7765 #print STDERR $dd2->Dump(); 7766 7767 $self->{name} = "Oblated Equal Area"; 7768 $self->{proj_code} = "oea"; 7769 7770 # Make sure proj is set in the options: 7771 $self->{params}->{proj} = $self->{proj_code}; 7772 7773 # Grab our projection specific options: 7774 # 7775 $self->{projection_params} = [ qw( n m theta ) ]; 7776 foreach my $param ( @{ $self->{projection_params} } ) 7777 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7778 7779 $self->update_proj_string(); 7780 7781 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7782 #$dd->Indent(1); 7783 #print STDERR $dd->Dump(); 7784 7785 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7786 7787 return $self; 7788} # End of PDL::Transform::oea::new()... 7789 77901; 7791 7792 7793 7794 7795# Autogenerated code for the Proj4 projection code: 7796# omerc 7797# 7798package PDL::Transform::Proj4::omerc; 7799use PDL::Transform::Proj4; 7800@ISA = ( 'PDL::Transform::Proj4' ); 7801 7802sub new 7803{ 7804 my $proto = shift; 7805 my $class = ref($proto) || $proto; 7806 my $sub = "PDL::Transform::Proj4::omerc::new()"; 7807 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7808 my $self = $class->SUPER::new( @_ ); 7809 bless ($self, $class); 7810 7811 my $o = $_[0]; 7812 unless( (ref $o) ) 7813 { $o = {@_}; } 7814 7815 #use Data::Dumper; 7816 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7817 #$dd2->Indent(1); 7818 #print STDERR $dd2->Dump(); 7819 7820 $self->{name} = "Oblique Mercator"; 7821 $self->{proj_code} = "omerc"; 7822 7823 # Make sure proj is set in the options: 7824 $self->{params}->{proj} = $self->{proj_code}; 7825 7826 # Grab our projection specific options: 7827 # 7828 $self->{projection_params} = [ qw( alpha gamma no_off lonc lon_1 lat_1 lon_2 lat_2 ) ]; 7829 foreach my $param ( @{ $self->{projection_params} } ) 7830 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7831 7832 $self->update_proj_string(); 7833 7834 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7835 #$dd->Indent(1); 7836 #print STDERR $dd->Dump(); 7837 7838 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7839 7840 return $self; 7841} # End of PDL::Transform::omerc::new()... 7842 78431; 7844 7845 7846 7847 7848# Autogenerated code for the Proj4 projection code: 7849# ortel 7850# 7851package PDL::Transform::Proj4::ortel; 7852use PDL::Transform::Proj4; 7853@ISA = ( 'PDL::Transform::Proj4' ); 7854 7855sub new 7856{ 7857 my $proto = shift; 7858 my $class = ref($proto) || $proto; 7859 my $sub = "PDL::Transform::Proj4::ortel::new()"; 7860 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7861 my $self = $class->SUPER::new( @_ ); 7862 bless ($self, $class); 7863 7864 my $o = $_[0]; 7865 unless( (ref $o) ) 7866 { $o = {@_}; } 7867 7868 #use Data::Dumper; 7869 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7870 #$dd2->Indent(1); 7871 #print STDERR $dd2->Dump(); 7872 7873 $self->{name} = "Ortelius Oval"; 7874 $self->{proj_code} = "ortel"; 7875 7876 # Make sure proj is set in the options: 7877 $self->{params}->{proj} = $self->{proj_code}; 7878 7879 # Grab our projection specific options: 7880 # 7881 $self->{projection_params} = [ qw( ) ]; 7882 foreach my $param ( @{ $self->{projection_params} } ) 7883 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7884 7885 $self->update_proj_string(); 7886 7887 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7888 #$dd->Indent(1); 7889 #print STDERR $dd->Dump(); 7890 7891 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7892 7893 return $self; 7894} # End of PDL::Transform::ortel::new()... 7895 78961; 7897 7898 7899 7900 7901# Autogenerated code for the Proj4 projection code: 7902# ortho 7903# 7904package PDL::Transform::Proj4::ortho; 7905use PDL::Transform::Proj4; 7906@ISA = ( 'PDL::Transform::Proj4' ); 7907 7908sub new 7909{ 7910 my $proto = shift; 7911 my $class = ref($proto) || $proto; 7912 my $sub = "PDL::Transform::Proj4::ortho::new()"; 7913 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7914 my $self = $class->SUPER::new( @_ ); 7915 bless ($self, $class); 7916 7917 my $o = $_[0]; 7918 unless( (ref $o) ) 7919 { $o = {@_}; } 7920 7921 #use Data::Dumper; 7922 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7923 #$dd2->Indent(1); 7924 #print STDERR $dd2->Dump(); 7925 7926 $self->{name} = "Orthographic"; 7927 $self->{proj_code} = "ortho"; 7928 7929 # Make sure proj is set in the options: 7930 $self->{params}->{proj} = $self->{proj_code}; 7931 7932 # Grab our projection specific options: 7933 # 7934 $self->{projection_params} = [ qw( ) ]; 7935 foreach my $param ( @{ $self->{projection_params} } ) 7936 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7937 7938 $self->update_proj_string(); 7939 7940 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7941 #$dd->Indent(1); 7942 #print STDERR $dd->Dump(); 7943 7944 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7945 7946 return $self; 7947} # End of PDL::Transform::ortho::new()... 7948 79491; 7950 7951 7952 7953 7954# Autogenerated code for the Proj4 projection code: 7955# patterson 7956# 7957package PDL::Transform::Proj4::patterson; 7958use PDL::Transform::Proj4; 7959@ISA = ( 'PDL::Transform::Proj4' ); 7960 7961sub new 7962{ 7963 my $proto = shift; 7964 my $class = ref($proto) || $proto; 7965 my $sub = "PDL::Transform::Proj4::patterson::new()"; 7966 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 7967 my $self = $class->SUPER::new( @_ ); 7968 bless ($self, $class); 7969 7970 my $o = $_[0]; 7971 unless( (ref $o) ) 7972 { $o = {@_}; } 7973 7974 #use Data::Dumper; 7975 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 7976 #$dd2->Indent(1); 7977 #print STDERR $dd2->Dump(); 7978 7979 $self->{name} = "Patterson Cylindrical"; 7980 $self->{proj_code} = "patterson"; 7981 7982 # Make sure proj is set in the options: 7983 $self->{params}->{proj} = $self->{proj_code}; 7984 7985 # Grab our projection specific options: 7986 # 7987 $self->{projection_params} = [ qw( ) ]; 7988 foreach my $param ( @{ $self->{projection_params} } ) 7989 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 7990 7991 $self->update_proj_string(); 7992 7993 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 7994 #$dd->Indent(1); 7995 #print STDERR $dd->Dump(); 7996 7997 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 7998 7999 return $self; 8000} # End of PDL::Transform::patterson::new()... 8001 80021; 8003 8004 8005 8006 8007# Autogenerated code for the Proj4 projection code: 8008# pconic 8009# 8010package PDL::Transform::Proj4::pconic; 8011use PDL::Transform::Proj4; 8012@ISA = ( 'PDL::Transform::Proj4' ); 8013 8014sub new 8015{ 8016 my $proto = shift; 8017 my $class = ref($proto) || $proto; 8018 my $sub = "PDL::Transform::Proj4::pconic::new()"; 8019 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8020 my $self = $class->SUPER::new( @_ ); 8021 bless ($self, $class); 8022 8023 my $o = $_[0]; 8024 unless( (ref $o) ) 8025 { $o = {@_}; } 8026 8027 #use Data::Dumper; 8028 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8029 #$dd2->Indent(1); 8030 #print STDERR $dd2->Dump(); 8031 8032 $self->{name} = "Perspective Conic"; 8033 $self->{proj_code} = "pconic"; 8034 8035 # Make sure proj is set in the options: 8036 $self->{params}->{proj} = $self->{proj_code}; 8037 8038 # Grab our projection specific options: 8039 # 8040 $self->{projection_params} = [ qw( lat_1 lat_2 ) ]; 8041 foreach my $param ( @{ $self->{projection_params} } ) 8042 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8043 8044 $self->update_proj_string(); 8045 8046 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8047 #$dd->Indent(1); 8048 #print STDERR $dd->Dump(); 8049 8050 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8051 8052 return $self; 8053} # End of PDL::Transform::pconic::new()... 8054 80551; 8056 8057 8058 8059 8060# Autogenerated code for the Proj4 projection code: 8061# poly 8062# 8063package PDL::Transform::Proj4::poly; 8064use PDL::Transform::Proj4; 8065@ISA = ( 'PDL::Transform::Proj4' ); 8066 8067sub new 8068{ 8069 my $proto = shift; 8070 my $class = ref($proto) || $proto; 8071 my $sub = "PDL::Transform::Proj4::poly::new()"; 8072 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8073 my $self = $class->SUPER::new( @_ ); 8074 bless ($self, $class); 8075 8076 my $o = $_[0]; 8077 unless( (ref $o) ) 8078 { $o = {@_}; } 8079 8080 #use Data::Dumper; 8081 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8082 #$dd2->Indent(1); 8083 #print STDERR $dd2->Dump(); 8084 8085 $self->{name} = "Polyconic (American)"; 8086 $self->{proj_code} = "poly"; 8087 8088 # Make sure proj is set in the options: 8089 $self->{params}->{proj} = $self->{proj_code}; 8090 8091 # Grab our projection specific options: 8092 # 8093 $self->{projection_params} = [ qw( ) ]; 8094 foreach my $param ( @{ $self->{projection_params} } ) 8095 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8096 8097 $self->update_proj_string(); 8098 8099 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8100 #$dd->Indent(1); 8101 #print STDERR $dd->Dump(); 8102 8103 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8104 8105 return $self; 8106} # End of PDL::Transform::poly::new()... 8107 81081; 8109 8110 8111 8112 8113# Autogenerated code for the Proj4 projection code: 8114# putp1 8115# 8116package PDL::Transform::Proj4::putp1; 8117use PDL::Transform::Proj4; 8118@ISA = ( 'PDL::Transform::Proj4' ); 8119 8120sub new 8121{ 8122 my $proto = shift; 8123 my $class = ref($proto) || $proto; 8124 my $sub = "PDL::Transform::Proj4::putp1::new()"; 8125 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8126 my $self = $class->SUPER::new( @_ ); 8127 bless ($self, $class); 8128 8129 my $o = $_[0]; 8130 unless( (ref $o) ) 8131 { $o = {@_}; } 8132 8133 #use Data::Dumper; 8134 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8135 #$dd2->Indent(1); 8136 #print STDERR $dd2->Dump(); 8137 8138 $self->{name} = "Putnins P1"; 8139 $self->{proj_code} = "putp1"; 8140 8141 # Make sure proj is set in the options: 8142 $self->{params}->{proj} = $self->{proj_code}; 8143 8144 # Grab our projection specific options: 8145 # 8146 $self->{projection_params} = [ qw( ) ]; 8147 foreach my $param ( @{ $self->{projection_params} } ) 8148 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8149 8150 $self->update_proj_string(); 8151 8152 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8153 #$dd->Indent(1); 8154 #print STDERR $dd->Dump(); 8155 8156 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8157 8158 return $self; 8159} # End of PDL::Transform::putp1::new()... 8160 81611; 8162 8163 8164 8165 8166# Autogenerated code for the Proj4 projection code: 8167# putp2 8168# 8169package PDL::Transform::Proj4::putp2; 8170use PDL::Transform::Proj4; 8171@ISA = ( 'PDL::Transform::Proj4' ); 8172 8173sub new 8174{ 8175 my $proto = shift; 8176 my $class = ref($proto) || $proto; 8177 my $sub = "PDL::Transform::Proj4::putp2::new()"; 8178 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8179 my $self = $class->SUPER::new( @_ ); 8180 bless ($self, $class); 8181 8182 my $o = $_[0]; 8183 unless( (ref $o) ) 8184 { $o = {@_}; } 8185 8186 #use Data::Dumper; 8187 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8188 #$dd2->Indent(1); 8189 #print STDERR $dd2->Dump(); 8190 8191 $self->{name} = "Putnins P2"; 8192 $self->{proj_code} = "putp2"; 8193 8194 # Make sure proj is set in the options: 8195 $self->{params}->{proj} = $self->{proj_code}; 8196 8197 # Grab our projection specific options: 8198 # 8199 $self->{projection_params} = [ qw( ) ]; 8200 foreach my $param ( @{ $self->{projection_params} } ) 8201 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8202 8203 $self->update_proj_string(); 8204 8205 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8206 #$dd->Indent(1); 8207 #print STDERR $dd->Dump(); 8208 8209 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8210 8211 return $self; 8212} # End of PDL::Transform::putp2::new()... 8213 82141; 8215 8216 8217 8218 8219# Autogenerated code for the Proj4 projection code: 8220# putp3 8221# 8222package PDL::Transform::Proj4::putp3; 8223use PDL::Transform::Proj4; 8224@ISA = ( 'PDL::Transform::Proj4' ); 8225 8226sub new 8227{ 8228 my $proto = shift; 8229 my $class = ref($proto) || $proto; 8230 my $sub = "PDL::Transform::Proj4::putp3::new()"; 8231 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8232 my $self = $class->SUPER::new( @_ ); 8233 bless ($self, $class); 8234 8235 my $o = $_[0]; 8236 unless( (ref $o) ) 8237 { $o = {@_}; } 8238 8239 #use Data::Dumper; 8240 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8241 #$dd2->Indent(1); 8242 #print STDERR $dd2->Dump(); 8243 8244 $self->{name} = "Putnins P3"; 8245 $self->{proj_code} = "putp3"; 8246 8247 # Make sure proj is set in the options: 8248 $self->{params}->{proj} = $self->{proj_code}; 8249 8250 # Grab our projection specific options: 8251 # 8252 $self->{projection_params} = [ qw( ) ]; 8253 foreach my $param ( @{ $self->{projection_params} } ) 8254 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8255 8256 $self->update_proj_string(); 8257 8258 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8259 #$dd->Indent(1); 8260 #print STDERR $dd->Dump(); 8261 8262 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8263 8264 return $self; 8265} # End of PDL::Transform::putp3::new()... 8266 82671; 8268 8269 8270 8271 8272# Autogenerated code for the Proj4 projection code: 8273# putp3p 8274# 8275package PDL::Transform::Proj4::putp3p; 8276use PDL::Transform::Proj4; 8277@ISA = ( 'PDL::Transform::Proj4' ); 8278 8279sub new 8280{ 8281 my $proto = shift; 8282 my $class = ref($proto) || $proto; 8283 my $sub = "PDL::Transform::Proj4::putp3p::new()"; 8284 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8285 my $self = $class->SUPER::new( @_ ); 8286 bless ($self, $class); 8287 8288 my $o = $_[0]; 8289 unless( (ref $o) ) 8290 { $o = {@_}; } 8291 8292 #use Data::Dumper; 8293 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8294 #$dd2->Indent(1); 8295 #print STDERR $dd2->Dump(); 8296 8297 $self->{name} = "Putnins P3'"; 8298 $self->{proj_code} = "putp3p"; 8299 8300 # Make sure proj is set in the options: 8301 $self->{params}->{proj} = $self->{proj_code}; 8302 8303 # Grab our projection specific options: 8304 # 8305 $self->{projection_params} = [ qw( ) ]; 8306 foreach my $param ( @{ $self->{projection_params} } ) 8307 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8308 8309 $self->update_proj_string(); 8310 8311 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8312 #$dd->Indent(1); 8313 #print STDERR $dd->Dump(); 8314 8315 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8316 8317 return $self; 8318} # End of PDL::Transform::putp3p::new()... 8319 83201; 8321 8322 8323 8324 8325# Autogenerated code for the Proj4 projection code: 8326# putp4p 8327# 8328package PDL::Transform::Proj4::putp4p; 8329use PDL::Transform::Proj4; 8330@ISA = ( 'PDL::Transform::Proj4' ); 8331 8332sub new 8333{ 8334 my $proto = shift; 8335 my $class = ref($proto) || $proto; 8336 my $sub = "PDL::Transform::Proj4::putp4p::new()"; 8337 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8338 my $self = $class->SUPER::new( @_ ); 8339 bless ($self, $class); 8340 8341 my $o = $_[0]; 8342 unless( (ref $o) ) 8343 { $o = {@_}; } 8344 8345 #use Data::Dumper; 8346 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8347 #$dd2->Indent(1); 8348 #print STDERR $dd2->Dump(); 8349 8350 $self->{name} = "Putnins P4'"; 8351 $self->{proj_code} = "putp4p"; 8352 8353 # Make sure proj is set in the options: 8354 $self->{params}->{proj} = $self->{proj_code}; 8355 8356 # Grab our projection specific options: 8357 # 8358 $self->{projection_params} = [ qw( ) ]; 8359 foreach my $param ( @{ $self->{projection_params} } ) 8360 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8361 8362 $self->update_proj_string(); 8363 8364 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8365 #$dd->Indent(1); 8366 #print STDERR $dd->Dump(); 8367 8368 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8369 8370 return $self; 8371} # End of PDL::Transform::putp4p::new()... 8372 83731; 8374 8375 8376 8377 8378# Autogenerated code for the Proj4 projection code: 8379# putp5 8380# 8381package PDL::Transform::Proj4::putp5; 8382use PDL::Transform::Proj4; 8383@ISA = ( 'PDL::Transform::Proj4' ); 8384 8385sub new 8386{ 8387 my $proto = shift; 8388 my $class = ref($proto) || $proto; 8389 my $sub = "PDL::Transform::Proj4::putp5::new()"; 8390 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8391 my $self = $class->SUPER::new( @_ ); 8392 bless ($self, $class); 8393 8394 my $o = $_[0]; 8395 unless( (ref $o) ) 8396 { $o = {@_}; } 8397 8398 #use Data::Dumper; 8399 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8400 #$dd2->Indent(1); 8401 #print STDERR $dd2->Dump(); 8402 8403 $self->{name} = "Putnins P5"; 8404 $self->{proj_code} = "putp5"; 8405 8406 # Make sure proj is set in the options: 8407 $self->{params}->{proj} = $self->{proj_code}; 8408 8409 # Grab our projection specific options: 8410 # 8411 $self->{projection_params} = [ qw( ) ]; 8412 foreach my $param ( @{ $self->{projection_params} } ) 8413 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8414 8415 $self->update_proj_string(); 8416 8417 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8418 #$dd->Indent(1); 8419 #print STDERR $dd->Dump(); 8420 8421 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8422 8423 return $self; 8424} # End of PDL::Transform::putp5::new()... 8425 84261; 8427 8428 8429 8430 8431# Autogenerated code for the Proj4 projection code: 8432# putp5p 8433# 8434package PDL::Transform::Proj4::putp5p; 8435use PDL::Transform::Proj4; 8436@ISA = ( 'PDL::Transform::Proj4' ); 8437 8438sub new 8439{ 8440 my $proto = shift; 8441 my $class = ref($proto) || $proto; 8442 my $sub = "PDL::Transform::Proj4::putp5p::new()"; 8443 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8444 my $self = $class->SUPER::new( @_ ); 8445 bless ($self, $class); 8446 8447 my $o = $_[0]; 8448 unless( (ref $o) ) 8449 { $o = {@_}; } 8450 8451 #use Data::Dumper; 8452 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8453 #$dd2->Indent(1); 8454 #print STDERR $dd2->Dump(); 8455 8456 $self->{name} = "Putnins P5'"; 8457 $self->{proj_code} = "putp5p"; 8458 8459 # Make sure proj is set in the options: 8460 $self->{params}->{proj} = $self->{proj_code}; 8461 8462 # Grab our projection specific options: 8463 # 8464 $self->{projection_params} = [ qw( ) ]; 8465 foreach my $param ( @{ $self->{projection_params} } ) 8466 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8467 8468 $self->update_proj_string(); 8469 8470 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8471 #$dd->Indent(1); 8472 #print STDERR $dd->Dump(); 8473 8474 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8475 8476 return $self; 8477} # End of PDL::Transform::putp5p::new()... 8478 84791; 8480 8481 8482 8483 8484# Autogenerated code for the Proj4 projection code: 8485# putp6 8486# 8487package PDL::Transform::Proj4::putp6; 8488use PDL::Transform::Proj4; 8489@ISA = ( 'PDL::Transform::Proj4' ); 8490 8491sub new 8492{ 8493 my $proto = shift; 8494 my $class = ref($proto) || $proto; 8495 my $sub = "PDL::Transform::Proj4::putp6::new()"; 8496 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8497 my $self = $class->SUPER::new( @_ ); 8498 bless ($self, $class); 8499 8500 my $o = $_[0]; 8501 unless( (ref $o) ) 8502 { $o = {@_}; } 8503 8504 #use Data::Dumper; 8505 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8506 #$dd2->Indent(1); 8507 #print STDERR $dd2->Dump(); 8508 8509 $self->{name} = "Putnins P6"; 8510 $self->{proj_code} = "putp6"; 8511 8512 # Make sure proj is set in the options: 8513 $self->{params}->{proj} = $self->{proj_code}; 8514 8515 # Grab our projection specific options: 8516 # 8517 $self->{projection_params} = [ qw( ) ]; 8518 foreach my $param ( @{ $self->{projection_params} } ) 8519 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8520 8521 $self->update_proj_string(); 8522 8523 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8524 #$dd->Indent(1); 8525 #print STDERR $dd->Dump(); 8526 8527 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8528 8529 return $self; 8530} # End of PDL::Transform::putp6::new()... 8531 85321; 8533 8534 8535 8536 8537# Autogenerated code for the Proj4 projection code: 8538# putp6p 8539# 8540package PDL::Transform::Proj4::putp6p; 8541use PDL::Transform::Proj4; 8542@ISA = ( 'PDL::Transform::Proj4' ); 8543 8544sub new 8545{ 8546 my $proto = shift; 8547 my $class = ref($proto) || $proto; 8548 my $sub = "PDL::Transform::Proj4::putp6p::new()"; 8549 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8550 my $self = $class->SUPER::new( @_ ); 8551 bless ($self, $class); 8552 8553 my $o = $_[0]; 8554 unless( (ref $o) ) 8555 { $o = {@_}; } 8556 8557 #use Data::Dumper; 8558 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8559 #$dd2->Indent(1); 8560 #print STDERR $dd2->Dump(); 8561 8562 $self->{name} = "Putnins P6'"; 8563 $self->{proj_code} = "putp6p"; 8564 8565 # Make sure proj is set in the options: 8566 $self->{params}->{proj} = $self->{proj_code}; 8567 8568 # Grab our projection specific options: 8569 # 8570 $self->{projection_params} = [ qw( ) ]; 8571 foreach my $param ( @{ $self->{projection_params} } ) 8572 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8573 8574 $self->update_proj_string(); 8575 8576 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8577 #$dd->Indent(1); 8578 #print STDERR $dd->Dump(); 8579 8580 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8581 8582 return $self; 8583} # End of PDL::Transform::putp6p::new()... 8584 85851; 8586 8587 8588 8589 8590# Autogenerated code for the Proj4 projection code: 8591# qsc 8592# 8593package PDL::Transform::Proj4::qsc; 8594use PDL::Transform::Proj4; 8595@ISA = ( 'PDL::Transform::Proj4' ); 8596 8597sub new 8598{ 8599 my $proto = shift; 8600 my $class = ref($proto) || $proto; 8601 my $sub = "PDL::Transform::Proj4::qsc::new()"; 8602 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8603 my $self = $class->SUPER::new( @_ ); 8604 bless ($self, $class); 8605 8606 my $o = $_[0]; 8607 unless( (ref $o) ) 8608 { $o = {@_}; } 8609 8610 #use Data::Dumper; 8611 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8612 #$dd2->Indent(1); 8613 #print STDERR $dd2->Dump(); 8614 8615 $self->{name} = "Quadrilateralized Spherical Cube"; 8616 $self->{proj_code} = "qsc"; 8617 8618 # Make sure proj is set in the options: 8619 $self->{params}->{proj} = $self->{proj_code}; 8620 8621 # Grab our projection specific options: 8622 # 8623 $self->{projection_params} = [ qw( ) ]; 8624 foreach my $param ( @{ $self->{projection_params} } ) 8625 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8626 8627 $self->update_proj_string(); 8628 8629 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8630 #$dd->Indent(1); 8631 #print STDERR $dd->Dump(); 8632 8633 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8634 8635 return $self; 8636} # End of PDL::Transform::qsc::new()... 8637 86381; 8639 8640 8641 8642 8643# Autogenerated code for the Proj4 projection code: 8644# qua_aut 8645# 8646package PDL::Transform::Proj4::qua_aut; 8647use PDL::Transform::Proj4; 8648@ISA = ( 'PDL::Transform::Proj4' ); 8649 8650sub new 8651{ 8652 my $proto = shift; 8653 my $class = ref($proto) || $proto; 8654 my $sub = "PDL::Transform::Proj4::qua_aut::new()"; 8655 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8656 my $self = $class->SUPER::new( @_ ); 8657 bless ($self, $class); 8658 8659 my $o = $_[0]; 8660 unless( (ref $o) ) 8661 { $o = {@_}; } 8662 8663 #use Data::Dumper; 8664 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8665 #$dd2->Indent(1); 8666 #print STDERR $dd2->Dump(); 8667 8668 $self->{name} = "Quartic Authalic"; 8669 $self->{proj_code} = "qua_aut"; 8670 8671 # Make sure proj is set in the options: 8672 $self->{params}->{proj} = $self->{proj_code}; 8673 8674 # Grab our projection specific options: 8675 # 8676 $self->{projection_params} = [ qw( ) ]; 8677 foreach my $param ( @{ $self->{projection_params} } ) 8678 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8679 8680 $self->update_proj_string(); 8681 8682 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8683 #$dd->Indent(1); 8684 #print STDERR $dd->Dump(); 8685 8686 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8687 8688 return $self; 8689} # End of PDL::Transform::qua_aut::new()... 8690 86911; 8692 8693 8694 8695 8696# Autogenerated code for the Proj4 projection code: 8697# rhealpix 8698# 8699package PDL::Transform::Proj4::rhealpix; 8700use PDL::Transform::Proj4; 8701@ISA = ( 'PDL::Transform::Proj4' ); 8702 8703sub new 8704{ 8705 my $proto = shift; 8706 my $class = ref($proto) || $proto; 8707 my $sub = "PDL::Transform::Proj4::rhealpix::new()"; 8708 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8709 my $self = $class->SUPER::new( @_ ); 8710 bless ($self, $class); 8711 8712 my $o = $_[0]; 8713 unless( (ref $o) ) 8714 { $o = {@_}; } 8715 8716 #use Data::Dumper; 8717 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8718 #$dd2->Indent(1); 8719 #print STDERR $dd2->Dump(); 8720 8721 $self->{name} = "rHEALPix"; 8722 $self->{proj_code} = "rhealpix"; 8723 8724 # Make sure proj is set in the options: 8725 $self->{params}->{proj} = $self->{proj_code}; 8726 8727 # Grab our projection specific options: 8728 # 8729 $self->{projection_params} = [ qw( south_square ) ]; 8730 foreach my $param ( @{ $self->{projection_params} } ) 8731 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8732 8733 $self->update_proj_string(); 8734 8735 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8736 #$dd->Indent(1); 8737 #print STDERR $dd->Dump(); 8738 8739 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8740 8741 return $self; 8742} # End of PDL::Transform::rhealpix::new()... 8743 87441; 8745 8746 8747 8748 8749# Autogenerated code for the Proj4 projection code: 8750# robin 8751# 8752package PDL::Transform::Proj4::robin; 8753use PDL::Transform::Proj4; 8754@ISA = ( 'PDL::Transform::Proj4' ); 8755 8756sub new 8757{ 8758 my $proto = shift; 8759 my $class = ref($proto) || $proto; 8760 my $sub = "PDL::Transform::Proj4::robin::new()"; 8761 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8762 my $self = $class->SUPER::new( @_ ); 8763 bless ($self, $class); 8764 8765 my $o = $_[0]; 8766 unless( (ref $o) ) 8767 { $o = {@_}; } 8768 8769 #use Data::Dumper; 8770 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8771 #$dd2->Indent(1); 8772 #print STDERR $dd2->Dump(); 8773 8774 $self->{name} = "Robinson"; 8775 $self->{proj_code} = "robin"; 8776 8777 # Make sure proj is set in the options: 8778 $self->{params}->{proj} = $self->{proj_code}; 8779 8780 # Grab our projection specific options: 8781 # 8782 $self->{projection_params} = [ qw( ) ]; 8783 foreach my $param ( @{ $self->{projection_params} } ) 8784 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8785 8786 $self->update_proj_string(); 8787 8788 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8789 #$dd->Indent(1); 8790 #print STDERR $dd->Dump(); 8791 8792 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8793 8794 return $self; 8795} # End of PDL::Transform::robin::new()... 8796 87971; 8798 8799 8800 8801 8802# Autogenerated code for the Proj4 projection code: 8803# rouss 8804# 8805package PDL::Transform::Proj4::rouss; 8806use PDL::Transform::Proj4; 8807@ISA = ( 'PDL::Transform::Proj4' ); 8808 8809sub new 8810{ 8811 my $proto = shift; 8812 my $class = ref($proto) || $proto; 8813 my $sub = "PDL::Transform::Proj4::rouss::new()"; 8814 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8815 my $self = $class->SUPER::new( @_ ); 8816 bless ($self, $class); 8817 8818 my $o = $_[0]; 8819 unless( (ref $o) ) 8820 { $o = {@_}; } 8821 8822 #use Data::Dumper; 8823 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8824 #$dd2->Indent(1); 8825 #print STDERR $dd2->Dump(); 8826 8827 $self->{name} = "Roussilhe Stereographic"; 8828 $self->{proj_code} = "rouss"; 8829 8830 # Make sure proj is set in the options: 8831 $self->{params}->{proj} = $self->{proj_code}; 8832 8833 # Grab our projection specific options: 8834 # 8835 $self->{projection_params} = [ qw( ) ]; 8836 foreach my $param ( @{ $self->{projection_params} } ) 8837 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8838 8839 $self->update_proj_string(); 8840 8841 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8842 #$dd->Indent(1); 8843 #print STDERR $dd->Dump(); 8844 8845 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8846 8847 return $self; 8848} # End of PDL::Transform::rouss::new()... 8849 88501; 8851 8852 8853 8854 8855# Autogenerated code for the Proj4 projection code: 8856# rpoly 8857# 8858package PDL::Transform::Proj4::rpoly; 8859use PDL::Transform::Proj4; 8860@ISA = ( 'PDL::Transform::Proj4' ); 8861 8862sub new 8863{ 8864 my $proto = shift; 8865 my $class = ref($proto) || $proto; 8866 my $sub = "PDL::Transform::Proj4::rpoly::new()"; 8867 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8868 my $self = $class->SUPER::new( @_ ); 8869 bless ($self, $class); 8870 8871 my $o = $_[0]; 8872 unless( (ref $o) ) 8873 { $o = {@_}; } 8874 8875 #use Data::Dumper; 8876 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8877 #$dd2->Indent(1); 8878 #print STDERR $dd2->Dump(); 8879 8880 $self->{name} = "Rectangular Polyconic"; 8881 $self->{proj_code} = "rpoly"; 8882 8883 # Make sure proj is set in the options: 8884 $self->{params}->{proj} = $self->{proj_code}; 8885 8886 # Grab our projection specific options: 8887 # 8888 $self->{projection_params} = [ qw( lat_ts ) ]; 8889 foreach my $param ( @{ $self->{projection_params} } ) 8890 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8891 8892 $self->update_proj_string(); 8893 8894 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8895 #$dd->Indent(1); 8896 #print STDERR $dd->Dump(); 8897 8898 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8899 8900 return $self; 8901} # End of PDL::Transform::rpoly::new()... 8902 89031; 8904 8905 8906 8907 8908# Autogenerated code for the Proj4 projection code: 8909# sch 8910# 8911package PDL::Transform::Proj4::sch; 8912use PDL::Transform::Proj4; 8913@ISA = ( 'PDL::Transform::Proj4' ); 8914 8915sub new 8916{ 8917 my $proto = shift; 8918 my $class = ref($proto) || $proto; 8919 my $sub = "PDL::Transform::Proj4::sch::new()"; 8920 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8921 my $self = $class->SUPER::new( @_ ); 8922 bless ($self, $class); 8923 8924 my $o = $_[0]; 8925 unless( (ref $o) ) 8926 { $o = {@_}; } 8927 8928 #use Data::Dumper; 8929 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8930 #$dd2->Indent(1); 8931 #print STDERR $dd2->Dump(); 8932 8933 $self->{name} = "Spherical Cross-track Height"; 8934 $self->{proj_code} = "sch"; 8935 8936 # Make sure proj is set in the options: 8937 $self->{params}->{proj} = $self->{proj_code}; 8938 8939 # Grab our projection specific options: 8940 # 8941 $self->{projection_params} = [ qw( plat_0 plon_0 phdg_0 h_0 ) ]; 8942 foreach my $param ( @{ $self->{projection_params} } ) 8943 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8944 8945 $self->update_proj_string(); 8946 8947 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 8948 #$dd->Indent(1); 8949 #print STDERR $dd->Dump(); 8950 8951 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 8952 8953 return $self; 8954} # End of PDL::Transform::sch::new()... 8955 89561; 8957 8958 8959 8960 8961# Autogenerated code for the Proj4 projection code: 8962# sinu 8963# 8964package PDL::Transform::Proj4::sinu; 8965use PDL::Transform::Proj4; 8966@ISA = ( 'PDL::Transform::Proj4' ); 8967 8968sub new 8969{ 8970 my $proto = shift; 8971 my $class = ref($proto) || $proto; 8972 my $sub = "PDL::Transform::Proj4::sinu::new()"; 8973 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 8974 my $self = $class->SUPER::new( @_ ); 8975 bless ($self, $class); 8976 8977 my $o = $_[0]; 8978 unless( (ref $o) ) 8979 { $o = {@_}; } 8980 8981 #use Data::Dumper; 8982 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 8983 #$dd2->Indent(1); 8984 #print STDERR $dd2->Dump(); 8985 8986 $self->{name} = "Sinusoidal (Sanson-Flamsteed)"; 8987 $self->{proj_code} = "sinu"; 8988 8989 # Make sure proj is set in the options: 8990 $self->{params}->{proj} = $self->{proj_code}; 8991 8992 # Grab our projection specific options: 8993 # 8994 $self->{projection_params} = [ qw( ) ]; 8995 foreach my $param ( @{ $self->{projection_params} } ) 8996 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 8997 8998 $self->update_proj_string(); 8999 9000 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9001 #$dd->Indent(1); 9002 #print STDERR $dd->Dump(); 9003 9004 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9005 9006 return $self; 9007} # End of PDL::Transform::sinu::new()... 9008 90091; 9010 9011 9012 9013 9014# Autogenerated code for the Proj4 projection code: 9015# somerc 9016# 9017package PDL::Transform::Proj4::somerc; 9018use PDL::Transform::Proj4; 9019@ISA = ( 'PDL::Transform::Proj4' ); 9020 9021sub new 9022{ 9023 my $proto = shift; 9024 my $class = ref($proto) || $proto; 9025 my $sub = "PDL::Transform::Proj4::somerc::new()"; 9026 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9027 my $self = $class->SUPER::new( @_ ); 9028 bless ($self, $class); 9029 9030 my $o = $_[0]; 9031 unless( (ref $o) ) 9032 { $o = {@_}; } 9033 9034 #use Data::Dumper; 9035 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9036 #$dd2->Indent(1); 9037 #print STDERR $dd2->Dump(); 9038 9039 $self->{name} = "Swiss. Obl. Mercator"; 9040 $self->{proj_code} = "somerc"; 9041 9042 # Make sure proj is set in the options: 9043 $self->{params}->{proj} = $self->{proj_code}; 9044 9045 # Grab our projection specific options: 9046 # 9047 $self->{projection_params} = [ qw( ) ]; 9048 foreach my $param ( @{ $self->{projection_params} } ) 9049 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9050 9051 $self->update_proj_string(); 9052 9053 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9054 #$dd->Indent(1); 9055 #print STDERR $dd->Dump(); 9056 9057 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9058 9059 return $self; 9060} # End of PDL::Transform::somerc::new()... 9061 90621; 9063 9064 9065 9066 9067# Autogenerated code for the Proj4 projection code: 9068# stere 9069# 9070package PDL::Transform::Proj4::stere; 9071use PDL::Transform::Proj4; 9072@ISA = ( 'PDL::Transform::Proj4' ); 9073 9074sub new 9075{ 9076 my $proto = shift; 9077 my $class = ref($proto) || $proto; 9078 my $sub = "PDL::Transform::Proj4::stere::new()"; 9079 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9080 my $self = $class->SUPER::new( @_ ); 9081 bless ($self, $class); 9082 9083 my $o = $_[0]; 9084 unless( (ref $o) ) 9085 { $o = {@_}; } 9086 9087 #use Data::Dumper; 9088 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9089 #$dd2->Indent(1); 9090 #print STDERR $dd2->Dump(); 9091 9092 $self->{name} = "Stereographic"; 9093 $self->{proj_code} = "stere"; 9094 9095 # Make sure proj is set in the options: 9096 $self->{params}->{proj} = $self->{proj_code}; 9097 9098 # Grab our projection specific options: 9099 # 9100 $self->{projection_params} = [ qw( lat_ts ) ]; 9101 foreach my $param ( @{ $self->{projection_params} } ) 9102 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9103 9104 $self->update_proj_string(); 9105 9106 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9107 #$dd->Indent(1); 9108 #print STDERR $dd->Dump(); 9109 9110 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9111 9112 return $self; 9113} # End of PDL::Transform::stere::new()... 9114 91151; 9116 9117 9118 9119 9120# Autogenerated code for the Proj4 projection code: 9121# sterea 9122# 9123package PDL::Transform::Proj4::sterea; 9124use PDL::Transform::Proj4; 9125@ISA = ( 'PDL::Transform::Proj4' ); 9126 9127sub new 9128{ 9129 my $proto = shift; 9130 my $class = ref($proto) || $proto; 9131 my $sub = "PDL::Transform::Proj4::sterea::new()"; 9132 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9133 my $self = $class->SUPER::new( @_ ); 9134 bless ($self, $class); 9135 9136 my $o = $_[0]; 9137 unless( (ref $o) ) 9138 { $o = {@_}; } 9139 9140 #use Data::Dumper; 9141 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9142 #$dd2->Indent(1); 9143 #print STDERR $dd2->Dump(); 9144 9145 $self->{name} = "Oblique Stereographic Alternative"; 9146 $self->{proj_code} = "sterea"; 9147 9148 # Make sure proj is set in the options: 9149 $self->{params}->{proj} = $self->{proj_code}; 9150 9151 # Grab our projection specific options: 9152 # 9153 $self->{projection_params} = [ qw( ) ]; 9154 foreach my $param ( @{ $self->{projection_params} } ) 9155 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9156 9157 $self->update_proj_string(); 9158 9159 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9160 #$dd->Indent(1); 9161 #print STDERR $dd->Dump(); 9162 9163 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9164 9165 return $self; 9166} # End of PDL::Transform::sterea::new()... 9167 91681; 9169 9170 9171 9172 9173# Autogenerated code for the Proj4 projection code: 9174# tcc 9175# 9176package PDL::Transform::Proj4::tcc; 9177use PDL::Transform::Proj4; 9178@ISA = ( 'PDL::Transform::Proj4' ); 9179 9180sub new 9181{ 9182 my $proto = shift; 9183 my $class = ref($proto) || $proto; 9184 my $sub = "PDL::Transform::Proj4::tcc::new()"; 9185 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9186 my $self = $class->SUPER::new( @_ ); 9187 bless ($self, $class); 9188 9189 my $o = $_[0]; 9190 unless( (ref $o) ) 9191 { $o = {@_}; } 9192 9193 #use Data::Dumper; 9194 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9195 #$dd2->Indent(1); 9196 #print STDERR $dd2->Dump(); 9197 9198 $self->{name} = "Transverse Central Cylindrical"; 9199 $self->{proj_code} = "tcc"; 9200 9201 # Make sure proj is set in the options: 9202 $self->{params}->{proj} = $self->{proj_code}; 9203 9204 # Grab our projection specific options: 9205 # 9206 $self->{projection_params} = [ qw( ) ]; 9207 foreach my $param ( @{ $self->{projection_params} } ) 9208 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9209 9210 $self->update_proj_string(); 9211 9212 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9213 #$dd->Indent(1); 9214 #print STDERR $dd->Dump(); 9215 9216 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9217 9218 return $self; 9219} # End of PDL::Transform::tcc::new()... 9220 92211; 9222 9223 9224 9225 9226# Autogenerated code for the Proj4 projection code: 9227# tcea 9228# 9229package PDL::Transform::Proj4::tcea; 9230use PDL::Transform::Proj4; 9231@ISA = ( 'PDL::Transform::Proj4' ); 9232 9233sub new 9234{ 9235 my $proto = shift; 9236 my $class = ref($proto) || $proto; 9237 my $sub = "PDL::Transform::Proj4::tcea::new()"; 9238 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9239 my $self = $class->SUPER::new( @_ ); 9240 bless ($self, $class); 9241 9242 my $o = $_[0]; 9243 unless( (ref $o) ) 9244 { $o = {@_}; } 9245 9246 #use Data::Dumper; 9247 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9248 #$dd2->Indent(1); 9249 #print STDERR $dd2->Dump(); 9250 9251 $self->{name} = "Transverse Cylindrical Equal Area"; 9252 $self->{proj_code} = "tcea"; 9253 9254 # Make sure proj is set in the options: 9255 $self->{params}->{proj} = $self->{proj_code}; 9256 9257 # Grab our projection specific options: 9258 # 9259 $self->{projection_params} = [ qw( ) ]; 9260 foreach my $param ( @{ $self->{projection_params} } ) 9261 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9262 9263 $self->update_proj_string(); 9264 9265 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9266 #$dd->Indent(1); 9267 #print STDERR $dd->Dump(); 9268 9269 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9270 9271 return $self; 9272} # End of PDL::Transform::tcea::new()... 9273 92741; 9275 9276 9277 9278 9279# Autogenerated code for the Proj4 projection code: 9280# times 9281# 9282package PDL::Transform::Proj4::times; 9283use PDL::Transform::Proj4; 9284@ISA = ( 'PDL::Transform::Proj4' ); 9285 9286sub new 9287{ 9288 my $proto = shift; 9289 my $class = ref($proto) || $proto; 9290 my $sub = "PDL::Transform::Proj4::times::new()"; 9291 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9292 my $self = $class->SUPER::new( @_ ); 9293 bless ($self, $class); 9294 9295 my $o = $_[0]; 9296 unless( (ref $o) ) 9297 { $o = {@_}; } 9298 9299 #use Data::Dumper; 9300 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9301 #$dd2->Indent(1); 9302 #print STDERR $dd2->Dump(); 9303 9304 $self->{name} = "Times"; 9305 $self->{proj_code} = "times"; 9306 9307 # Make sure proj is set in the options: 9308 $self->{params}->{proj} = $self->{proj_code}; 9309 9310 # Grab our projection specific options: 9311 # 9312 $self->{projection_params} = [ qw( ) ]; 9313 foreach my $param ( @{ $self->{projection_params} } ) 9314 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9315 9316 $self->update_proj_string(); 9317 9318 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9319 #$dd->Indent(1); 9320 #print STDERR $dd->Dump(); 9321 9322 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9323 9324 return $self; 9325} # End of PDL::Transform::times::new()... 9326 93271; 9328 9329 9330 9331 9332# Autogenerated code for the Proj4 projection code: 9333# tissot 9334# 9335package PDL::Transform::Proj4::tissot; 9336use PDL::Transform::Proj4; 9337@ISA = ( 'PDL::Transform::Proj4' ); 9338 9339sub new 9340{ 9341 my $proto = shift; 9342 my $class = ref($proto) || $proto; 9343 my $sub = "PDL::Transform::Proj4::tissot::new()"; 9344 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9345 my $self = $class->SUPER::new( @_ ); 9346 bless ($self, $class); 9347 9348 my $o = $_[0]; 9349 unless( (ref $o) ) 9350 { $o = {@_}; } 9351 9352 #use Data::Dumper; 9353 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9354 #$dd2->Indent(1); 9355 #print STDERR $dd2->Dump(); 9356 9357 $self->{name} = "Tissot"; 9358 $self->{proj_code} = "tissot"; 9359 9360 # Make sure proj is set in the options: 9361 $self->{params}->{proj} = $self->{proj_code}; 9362 9363 # Grab our projection specific options: 9364 # 9365 $self->{projection_params} = [ qw( lat_1 lat_2 ) ]; 9366 foreach my $param ( @{ $self->{projection_params} } ) 9367 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9368 9369 $self->update_proj_string(); 9370 9371 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9372 #$dd->Indent(1); 9373 #print STDERR $dd->Dump(); 9374 9375 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9376 9377 return $self; 9378} # End of PDL::Transform::tissot::new()... 9379 93801; 9381 9382 9383 9384 9385# Autogenerated code for the Proj4 projection code: 9386# tmerc 9387# 9388package PDL::Transform::Proj4::tmerc; 9389use PDL::Transform::Proj4; 9390@ISA = ( 'PDL::Transform::Proj4' ); 9391 9392sub new 9393{ 9394 my $proto = shift; 9395 my $class = ref($proto) || $proto; 9396 my $sub = "PDL::Transform::Proj4::tmerc::new()"; 9397 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9398 my $self = $class->SUPER::new( @_ ); 9399 bless ($self, $class); 9400 9401 my $o = $_[0]; 9402 unless( (ref $o) ) 9403 { $o = {@_}; } 9404 9405 #use Data::Dumper; 9406 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9407 #$dd2->Indent(1); 9408 #print STDERR $dd2->Dump(); 9409 9410 $self->{name} = "Transverse Mercator"; 9411 $self->{proj_code} = "tmerc"; 9412 9413 # Make sure proj is set in the options: 9414 $self->{params}->{proj} = $self->{proj_code}; 9415 9416 # Grab our projection specific options: 9417 # 9418 $self->{projection_params} = [ qw( ) ]; 9419 foreach my $param ( @{ $self->{projection_params} } ) 9420 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9421 9422 $self->update_proj_string(); 9423 9424 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9425 #$dd->Indent(1); 9426 #print STDERR $dd->Dump(); 9427 9428 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9429 9430 return $self; 9431} # End of PDL::Transform::tmerc::new()... 9432 94331; 9434 9435 9436 9437 9438# Autogenerated code for the Proj4 projection code: 9439# tpeqd 9440# 9441package PDL::Transform::Proj4::tpeqd; 9442use PDL::Transform::Proj4; 9443@ISA = ( 'PDL::Transform::Proj4' ); 9444 9445sub new 9446{ 9447 my $proto = shift; 9448 my $class = ref($proto) || $proto; 9449 my $sub = "PDL::Transform::Proj4::tpeqd::new()"; 9450 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9451 my $self = $class->SUPER::new( @_ ); 9452 bless ($self, $class); 9453 9454 my $o = $_[0]; 9455 unless( (ref $o) ) 9456 { $o = {@_}; } 9457 9458 #use Data::Dumper; 9459 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9460 #$dd2->Indent(1); 9461 #print STDERR $dd2->Dump(); 9462 9463 $self->{name} = "Two Point Equidistant"; 9464 $self->{proj_code} = "tpeqd"; 9465 9466 # Make sure proj is set in the options: 9467 $self->{params}->{proj} = $self->{proj_code}; 9468 9469 # Grab our projection specific options: 9470 # 9471 $self->{projection_params} = [ qw( lat_1 lon_1 lat_2 lon_2 ) ]; 9472 foreach my $param ( @{ $self->{projection_params} } ) 9473 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9474 9475 $self->update_proj_string(); 9476 9477 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9478 #$dd->Indent(1); 9479 #print STDERR $dd->Dump(); 9480 9481 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9482 9483 return $self; 9484} # End of PDL::Transform::tpeqd::new()... 9485 94861; 9487 9488 9489 9490 9491# Autogenerated code for the Proj4 projection code: 9492# tpers 9493# 9494package PDL::Transform::Proj4::tpers; 9495use PDL::Transform::Proj4; 9496@ISA = ( 'PDL::Transform::Proj4' ); 9497 9498sub new 9499{ 9500 my $proto = shift; 9501 my $class = ref($proto) || $proto; 9502 my $sub = "PDL::Transform::Proj4::tpers::new()"; 9503 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9504 my $self = $class->SUPER::new( @_ ); 9505 bless ($self, $class); 9506 9507 my $o = $_[0]; 9508 unless( (ref $o) ) 9509 { $o = {@_}; } 9510 9511 #use Data::Dumper; 9512 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9513 #$dd2->Indent(1); 9514 #print STDERR $dd2->Dump(); 9515 9516 $self->{name} = "Tilted perspective"; 9517 $self->{proj_code} = "tpers"; 9518 9519 # Make sure proj is set in the options: 9520 $self->{params}->{proj} = $self->{proj_code}; 9521 9522 # Grab our projection specific options: 9523 # 9524 $self->{projection_params} = [ qw( tilt azi h ) ]; 9525 foreach my $param ( @{ $self->{projection_params} } ) 9526 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9527 9528 $self->update_proj_string(); 9529 9530 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9531 #$dd->Indent(1); 9532 #print STDERR $dd->Dump(); 9533 9534 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9535 9536 return $self; 9537} # End of PDL::Transform::tpers::new()... 9538 95391; 9540 9541 9542 9543 9544# Autogenerated code for the Proj4 projection code: 9545# ups 9546# 9547package PDL::Transform::Proj4::ups; 9548use PDL::Transform::Proj4; 9549@ISA = ( 'PDL::Transform::Proj4' ); 9550 9551sub new 9552{ 9553 my $proto = shift; 9554 my $class = ref($proto) || $proto; 9555 my $sub = "PDL::Transform::Proj4::ups::new()"; 9556 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9557 my $self = $class->SUPER::new( @_ ); 9558 bless ($self, $class); 9559 9560 my $o = $_[0]; 9561 unless( (ref $o) ) 9562 { $o = {@_}; } 9563 9564 #use Data::Dumper; 9565 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9566 #$dd2->Indent(1); 9567 #print STDERR $dd2->Dump(); 9568 9569 $self->{name} = "Universal Polar Stereographic"; 9570 $self->{proj_code} = "ups"; 9571 9572 # Make sure proj is set in the options: 9573 $self->{params}->{proj} = $self->{proj_code}; 9574 9575 # Grab our projection specific options: 9576 # 9577 $self->{projection_params} = [ qw( south ) ]; 9578 foreach my $param ( @{ $self->{projection_params} } ) 9579 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9580 9581 $self->update_proj_string(); 9582 9583 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9584 #$dd->Indent(1); 9585 #print STDERR $dd->Dump(); 9586 9587 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9588 9589 return $self; 9590} # End of PDL::Transform::ups::new()... 9591 95921; 9593 9594 9595 9596 9597# Autogenerated code for the Proj4 projection code: 9598# urm5 9599# 9600package PDL::Transform::Proj4::urm5; 9601use PDL::Transform::Proj4; 9602@ISA = ( 'PDL::Transform::Proj4' ); 9603 9604sub new 9605{ 9606 my $proto = shift; 9607 my $class = ref($proto) || $proto; 9608 my $sub = "PDL::Transform::Proj4::urm5::new()"; 9609 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9610 my $self = $class->SUPER::new( @_ ); 9611 bless ($self, $class); 9612 9613 my $o = $_[0]; 9614 unless( (ref $o) ) 9615 { $o = {@_}; } 9616 9617 #use Data::Dumper; 9618 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9619 #$dd2->Indent(1); 9620 #print STDERR $dd2->Dump(); 9621 9622 $self->{name} = "Urmaev V"; 9623 $self->{proj_code} = "urm5"; 9624 9625 # Make sure proj is set in the options: 9626 $self->{params}->{proj} = $self->{proj_code}; 9627 9628 # Grab our projection specific options: 9629 # 9630 $self->{projection_params} = [ qw( n q alpha ) ]; 9631 foreach my $param ( @{ $self->{projection_params} } ) 9632 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9633 9634 $self->update_proj_string(); 9635 9636 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9637 #$dd->Indent(1); 9638 #print STDERR $dd->Dump(); 9639 9640 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9641 9642 return $self; 9643} # End of PDL::Transform::urm5::new()... 9644 96451; 9646 9647 9648 9649 9650# Autogenerated code for the Proj4 projection code: 9651# urmfps 9652# 9653package PDL::Transform::Proj4::urmfps; 9654use PDL::Transform::Proj4; 9655@ISA = ( 'PDL::Transform::Proj4' ); 9656 9657sub new 9658{ 9659 my $proto = shift; 9660 my $class = ref($proto) || $proto; 9661 my $sub = "PDL::Transform::Proj4::urmfps::new()"; 9662 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9663 my $self = $class->SUPER::new( @_ ); 9664 bless ($self, $class); 9665 9666 my $o = $_[0]; 9667 unless( (ref $o) ) 9668 { $o = {@_}; } 9669 9670 #use Data::Dumper; 9671 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9672 #$dd2->Indent(1); 9673 #print STDERR $dd2->Dump(); 9674 9675 $self->{name} = "Urmaev Flat-Polar Sinusoidal"; 9676 $self->{proj_code} = "urmfps"; 9677 9678 # Make sure proj is set in the options: 9679 $self->{params}->{proj} = $self->{proj_code}; 9680 9681 # Grab our projection specific options: 9682 # 9683 $self->{projection_params} = [ qw( n ) ]; 9684 foreach my $param ( @{ $self->{projection_params} } ) 9685 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9686 9687 $self->update_proj_string(); 9688 9689 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9690 #$dd->Indent(1); 9691 #print STDERR $dd->Dump(); 9692 9693 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9694 9695 return $self; 9696} # End of PDL::Transform::urmfps::new()... 9697 96981; 9699 9700 9701 9702 9703# Autogenerated code for the Proj4 projection code: 9704# utm 9705# 9706package PDL::Transform::Proj4::utm; 9707use PDL::Transform::Proj4; 9708@ISA = ( 'PDL::Transform::Proj4' ); 9709 9710sub new 9711{ 9712 my $proto = shift; 9713 my $class = ref($proto) || $proto; 9714 my $sub = "PDL::Transform::Proj4::utm::new()"; 9715 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9716 my $self = $class->SUPER::new( @_ ); 9717 bless ($self, $class); 9718 9719 my $o = $_[0]; 9720 unless( (ref $o) ) 9721 { $o = {@_}; } 9722 9723 #use Data::Dumper; 9724 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9725 #$dd2->Indent(1); 9726 #print STDERR $dd2->Dump(); 9727 9728 $self->{name} = "Universal Transverse Mercator (UTM)"; 9729 $self->{proj_code} = "utm"; 9730 9731 # Make sure proj is set in the options: 9732 $self->{params}->{proj} = $self->{proj_code}; 9733 9734 # Grab our projection specific options: 9735 # 9736 $self->{projection_params} = [ qw( zone south ) ]; 9737 foreach my $param ( @{ $self->{projection_params} } ) 9738 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9739 9740 $self->update_proj_string(); 9741 9742 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9743 #$dd->Indent(1); 9744 #print STDERR $dd->Dump(); 9745 9746 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9747 9748 return $self; 9749} # End of PDL::Transform::utm::new()... 9750 97511; 9752 9753 9754 9755 9756# Autogenerated code for the Proj4 projection code: 9757# vandg 9758# 9759package PDL::Transform::Proj4::vandg; 9760use PDL::Transform::Proj4; 9761@ISA = ( 'PDL::Transform::Proj4' ); 9762 9763sub new 9764{ 9765 my $proto = shift; 9766 my $class = ref($proto) || $proto; 9767 my $sub = "PDL::Transform::Proj4::vandg::new()"; 9768 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9769 my $self = $class->SUPER::new( @_ ); 9770 bless ($self, $class); 9771 9772 my $o = $_[0]; 9773 unless( (ref $o) ) 9774 { $o = {@_}; } 9775 9776 #use Data::Dumper; 9777 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9778 #$dd2->Indent(1); 9779 #print STDERR $dd2->Dump(); 9780 9781 $self->{name} = "van der Grinten (I)"; 9782 $self->{proj_code} = "vandg"; 9783 9784 # Make sure proj is set in the options: 9785 $self->{params}->{proj} = $self->{proj_code}; 9786 9787 # Grab our projection specific options: 9788 # 9789 $self->{projection_params} = [ qw( ) ]; 9790 foreach my $param ( @{ $self->{projection_params} } ) 9791 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9792 9793 $self->update_proj_string(); 9794 9795 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9796 #$dd->Indent(1); 9797 #print STDERR $dd->Dump(); 9798 9799 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9800 9801 return $self; 9802} # End of PDL::Transform::vandg::new()... 9803 98041; 9805 9806 9807 9808 9809# Autogenerated code for the Proj4 projection code: 9810# vandg2 9811# 9812package PDL::Transform::Proj4::vandg2; 9813use PDL::Transform::Proj4; 9814@ISA = ( 'PDL::Transform::Proj4' ); 9815 9816sub new 9817{ 9818 my $proto = shift; 9819 my $class = ref($proto) || $proto; 9820 my $sub = "PDL::Transform::Proj4::vandg2::new()"; 9821 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9822 my $self = $class->SUPER::new( @_ ); 9823 bless ($self, $class); 9824 9825 my $o = $_[0]; 9826 unless( (ref $o) ) 9827 { $o = {@_}; } 9828 9829 #use Data::Dumper; 9830 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9831 #$dd2->Indent(1); 9832 #print STDERR $dd2->Dump(); 9833 9834 $self->{name} = "van der Grinten II"; 9835 $self->{proj_code} = "vandg2"; 9836 9837 # Make sure proj is set in the options: 9838 $self->{params}->{proj} = $self->{proj_code}; 9839 9840 # Grab our projection specific options: 9841 # 9842 $self->{projection_params} = [ qw( ) ]; 9843 foreach my $param ( @{ $self->{projection_params} } ) 9844 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9845 9846 $self->update_proj_string(); 9847 9848 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9849 #$dd->Indent(1); 9850 #print STDERR $dd->Dump(); 9851 9852 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9853 9854 return $self; 9855} # End of PDL::Transform::vandg2::new()... 9856 98571; 9858 9859 9860 9861 9862# Autogenerated code for the Proj4 projection code: 9863# vandg3 9864# 9865package PDL::Transform::Proj4::vandg3; 9866use PDL::Transform::Proj4; 9867@ISA = ( 'PDL::Transform::Proj4' ); 9868 9869sub new 9870{ 9871 my $proto = shift; 9872 my $class = ref($proto) || $proto; 9873 my $sub = "PDL::Transform::Proj4::vandg3::new()"; 9874 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9875 my $self = $class->SUPER::new( @_ ); 9876 bless ($self, $class); 9877 9878 my $o = $_[0]; 9879 unless( (ref $o) ) 9880 { $o = {@_}; } 9881 9882 #use Data::Dumper; 9883 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9884 #$dd2->Indent(1); 9885 #print STDERR $dd2->Dump(); 9886 9887 $self->{name} = "van der Grinten III"; 9888 $self->{proj_code} = "vandg3"; 9889 9890 # Make sure proj is set in the options: 9891 $self->{params}->{proj} = $self->{proj_code}; 9892 9893 # Grab our projection specific options: 9894 # 9895 $self->{projection_params} = [ qw( ) ]; 9896 foreach my $param ( @{ $self->{projection_params} } ) 9897 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9898 9899 $self->update_proj_string(); 9900 9901 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9902 #$dd->Indent(1); 9903 #print STDERR $dd->Dump(); 9904 9905 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9906 9907 return $self; 9908} # End of PDL::Transform::vandg3::new()... 9909 99101; 9911 9912 9913 9914 9915# Autogenerated code for the Proj4 projection code: 9916# vandg4 9917# 9918package PDL::Transform::Proj4::vandg4; 9919use PDL::Transform::Proj4; 9920@ISA = ( 'PDL::Transform::Proj4' ); 9921 9922sub new 9923{ 9924 my $proto = shift; 9925 my $class = ref($proto) || $proto; 9926 my $sub = "PDL::Transform::Proj4::vandg4::new()"; 9927 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9928 my $self = $class->SUPER::new( @_ ); 9929 bless ($self, $class); 9930 9931 my $o = $_[0]; 9932 unless( (ref $o) ) 9933 { $o = {@_}; } 9934 9935 #use Data::Dumper; 9936 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9937 #$dd2->Indent(1); 9938 #print STDERR $dd2->Dump(); 9939 9940 $self->{name} = "van der Grinten IV"; 9941 $self->{proj_code} = "vandg4"; 9942 9943 # Make sure proj is set in the options: 9944 $self->{params}->{proj} = $self->{proj_code}; 9945 9946 # Grab our projection specific options: 9947 # 9948 $self->{projection_params} = [ qw( ) ]; 9949 foreach my $param ( @{ $self->{projection_params} } ) 9950 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 9951 9952 $self->update_proj_string(); 9953 9954 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 9955 #$dd->Indent(1); 9956 #print STDERR $dd->Dump(); 9957 9958 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 9959 9960 return $self; 9961} # End of PDL::Transform::vandg4::new()... 9962 99631; 9964 9965 9966 9967 9968# Autogenerated code for the Proj4 projection code: 9969# vitk1 9970# 9971package PDL::Transform::Proj4::vitk1; 9972use PDL::Transform::Proj4; 9973@ISA = ( 'PDL::Transform::Proj4' ); 9974 9975sub new 9976{ 9977 my $proto = shift; 9978 my $class = ref($proto) || $proto; 9979 my $sub = "PDL::Transform::Proj4::vitk1::new()"; 9980 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 9981 my $self = $class->SUPER::new( @_ ); 9982 bless ($self, $class); 9983 9984 my $o = $_[0]; 9985 unless( (ref $o) ) 9986 { $o = {@_}; } 9987 9988 #use Data::Dumper; 9989 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 9990 #$dd2->Indent(1); 9991 #print STDERR $dd2->Dump(); 9992 9993 $self->{name} = "Vitkovsky I"; 9994 $self->{proj_code} = "vitk1"; 9995 9996 # Make sure proj is set in the options: 9997 $self->{params}->{proj} = $self->{proj_code}; 9998 9999 # Grab our projection specific options: 10000 # 10001 $self->{projection_params} = [ qw( lat_1 lat_2 ) ]; 10002 foreach my $param ( @{ $self->{projection_params} } ) 10003 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 10004 10005 $self->update_proj_string(); 10006 10007 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 10008 #$dd->Indent(1); 10009 #print STDERR $dd->Dump(); 10010 10011 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 10012 10013 return $self; 10014} # End of PDL::Transform::vitk1::new()... 10015 100161; 10017 10018 10019 10020 10021# Autogenerated code for the Proj4 projection code: 10022# wag1 10023# 10024package PDL::Transform::Proj4::wag1; 10025use PDL::Transform::Proj4; 10026@ISA = ( 'PDL::Transform::Proj4' ); 10027 10028sub new 10029{ 10030 my $proto = shift; 10031 my $class = ref($proto) || $proto; 10032 my $sub = "PDL::Transform::Proj4::wag1::new()"; 10033 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 10034 my $self = $class->SUPER::new( @_ ); 10035 bless ($self, $class); 10036 10037 my $o = $_[0]; 10038 unless( (ref $o) ) 10039 { $o = {@_}; } 10040 10041 #use Data::Dumper; 10042 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 10043 #$dd2->Indent(1); 10044 #print STDERR $dd2->Dump(); 10045 10046 $self->{name} = "Wagner I (Kavraisky VI)"; 10047 $self->{proj_code} = "wag1"; 10048 10049 # Make sure proj is set in the options: 10050 $self->{params}->{proj} = $self->{proj_code}; 10051 10052 # Grab our projection specific options: 10053 # 10054 $self->{projection_params} = [ qw( ) ]; 10055 foreach my $param ( @{ $self->{projection_params} } ) 10056 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 10057 10058 $self->update_proj_string(); 10059 10060 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 10061 #$dd->Indent(1); 10062 #print STDERR $dd->Dump(); 10063 10064 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 10065 10066 return $self; 10067} # End of PDL::Transform::wag1::new()... 10068 100691; 10070 10071 10072 10073 10074# Autogenerated code for the Proj4 projection code: 10075# wag2 10076# 10077package PDL::Transform::Proj4::wag2; 10078use PDL::Transform::Proj4; 10079@ISA = ( 'PDL::Transform::Proj4' ); 10080 10081sub new 10082{ 10083 my $proto = shift; 10084 my $class = ref($proto) || $proto; 10085 my $sub = "PDL::Transform::Proj4::wag2::new()"; 10086 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 10087 my $self = $class->SUPER::new( @_ ); 10088 bless ($self, $class); 10089 10090 my $o = $_[0]; 10091 unless( (ref $o) ) 10092 { $o = {@_}; } 10093 10094 #use Data::Dumper; 10095 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 10096 #$dd2->Indent(1); 10097 #print STDERR $dd2->Dump(); 10098 10099 $self->{name} = "Wagner II"; 10100 $self->{proj_code} = "wag2"; 10101 10102 # Make sure proj is set in the options: 10103 $self->{params}->{proj} = $self->{proj_code}; 10104 10105 # Grab our projection specific options: 10106 # 10107 $self->{projection_params} = [ qw( ) ]; 10108 foreach my $param ( @{ $self->{projection_params} } ) 10109 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 10110 10111 $self->update_proj_string(); 10112 10113 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 10114 #$dd->Indent(1); 10115 #print STDERR $dd->Dump(); 10116 10117 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 10118 10119 return $self; 10120} # End of PDL::Transform::wag2::new()... 10121 101221; 10123 10124 10125 10126 10127# Autogenerated code for the Proj4 projection code: 10128# wag3 10129# 10130package PDL::Transform::Proj4::wag3; 10131use PDL::Transform::Proj4; 10132@ISA = ( 'PDL::Transform::Proj4' ); 10133 10134sub new 10135{ 10136 my $proto = shift; 10137 my $class = ref($proto) || $proto; 10138 my $sub = "PDL::Transform::Proj4::wag3::new()"; 10139 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 10140 my $self = $class->SUPER::new( @_ ); 10141 bless ($self, $class); 10142 10143 my $o = $_[0]; 10144 unless( (ref $o) ) 10145 { $o = {@_}; } 10146 10147 #use Data::Dumper; 10148 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 10149 #$dd2->Indent(1); 10150 #print STDERR $dd2->Dump(); 10151 10152 $self->{name} = "Wagner III"; 10153 $self->{proj_code} = "wag3"; 10154 10155 # Make sure proj is set in the options: 10156 $self->{params}->{proj} = $self->{proj_code}; 10157 10158 # Grab our projection specific options: 10159 # 10160 $self->{projection_params} = [ qw( lat_ts ) ]; 10161 foreach my $param ( @{ $self->{projection_params} } ) 10162 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 10163 10164 $self->update_proj_string(); 10165 10166 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 10167 #$dd->Indent(1); 10168 #print STDERR $dd->Dump(); 10169 10170 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 10171 10172 return $self; 10173} # End of PDL::Transform::wag3::new()... 10174 101751; 10176 10177 10178 10179 10180# Autogenerated code for the Proj4 projection code: 10181# wag4 10182# 10183package PDL::Transform::Proj4::wag4; 10184use PDL::Transform::Proj4; 10185@ISA = ( 'PDL::Transform::Proj4' ); 10186 10187sub new 10188{ 10189 my $proto = shift; 10190 my $class = ref($proto) || $proto; 10191 my $sub = "PDL::Transform::Proj4::wag4::new()"; 10192 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 10193 my $self = $class->SUPER::new( @_ ); 10194 bless ($self, $class); 10195 10196 my $o = $_[0]; 10197 unless( (ref $o) ) 10198 { $o = {@_}; } 10199 10200 #use Data::Dumper; 10201 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 10202 #$dd2->Indent(1); 10203 #print STDERR $dd2->Dump(); 10204 10205 $self->{name} = "Wagner IV"; 10206 $self->{proj_code} = "wag4"; 10207 10208 # Make sure proj is set in the options: 10209 $self->{params}->{proj} = $self->{proj_code}; 10210 10211 # Grab our projection specific options: 10212 # 10213 $self->{projection_params} = [ qw( ) ]; 10214 foreach my $param ( @{ $self->{projection_params} } ) 10215 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 10216 10217 $self->update_proj_string(); 10218 10219 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 10220 #$dd->Indent(1); 10221 #print STDERR $dd->Dump(); 10222 10223 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 10224 10225 return $self; 10226} # End of PDL::Transform::wag4::new()... 10227 102281; 10229 10230 10231 10232 10233# Autogenerated code for the Proj4 projection code: 10234# wag5 10235# 10236package PDL::Transform::Proj4::wag5; 10237use PDL::Transform::Proj4; 10238@ISA = ( 'PDL::Transform::Proj4' ); 10239 10240sub new 10241{ 10242 my $proto = shift; 10243 my $class = ref($proto) || $proto; 10244 my $sub = "PDL::Transform::Proj4::wag5::new()"; 10245 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 10246 my $self = $class->SUPER::new( @_ ); 10247 bless ($self, $class); 10248 10249 my $o = $_[0]; 10250 unless( (ref $o) ) 10251 { $o = {@_}; } 10252 10253 #use Data::Dumper; 10254 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 10255 #$dd2->Indent(1); 10256 #print STDERR $dd2->Dump(); 10257 10258 $self->{name} = "Wagner V"; 10259 $self->{proj_code} = "wag5"; 10260 10261 # Make sure proj is set in the options: 10262 $self->{params}->{proj} = $self->{proj_code}; 10263 10264 # Grab our projection specific options: 10265 # 10266 $self->{projection_params} = [ qw( ) ]; 10267 foreach my $param ( @{ $self->{projection_params} } ) 10268 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 10269 10270 $self->update_proj_string(); 10271 10272 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 10273 #$dd->Indent(1); 10274 #print STDERR $dd->Dump(); 10275 10276 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 10277 10278 return $self; 10279} # End of PDL::Transform::wag5::new()... 10280 102811; 10282 10283 10284 10285 10286# Autogenerated code for the Proj4 projection code: 10287# wag6 10288# 10289package PDL::Transform::Proj4::wag6; 10290use PDL::Transform::Proj4; 10291@ISA = ( 'PDL::Transform::Proj4' ); 10292 10293sub new 10294{ 10295 my $proto = shift; 10296 my $class = ref($proto) || $proto; 10297 my $sub = "PDL::Transform::Proj4::wag6::new()"; 10298 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 10299 my $self = $class->SUPER::new( @_ ); 10300 bless ($self, $class); 10301 10302 my $o = $_[0]; 10303 unless( (ref $o) ) 10304 { $o = {@_}; } 10305 10306 #use Data::Dumper; 10307 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 10308 #$dd2->Indent(1); 10309 #print STDERR $dd2->Dump(); 10310 10311 $self->{name} = "Wagner VI"; 10312 $self->{proj_code} = "wag6"; 10313 10314 # Make sure proj is set in the options: 10315 $self->{params}->{proj} = $self->{proj_code}; 10316 10317 # Grab our projection specific options: 10318 # 10319 $self->{projection_params} = [ qw( ) ]; 10320 foreach my $param ( @{ $self->{projection_params} } ) 10321 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 10322 10323 $self->update_proj_string(); 10324 10325 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 10326 #$dd->Indent(1); 10327 #print STDERR $dd->Dump(); 10328 10329 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 10330 10331 return $self; 10332} # End of PDL::Transform::wag6::new()... 10333 103341; 10335 10336 10337 10338 10339# Autogenerated code for the Proj4 projection code: 10340# wag7 10341# 10342package PDL::Transform::Proj4::wag7; 10343use PDL::Transform::Proj4; 10344@ISA = ( 'PDL::Transform::Proj4' ); 10345 10346sub new 10347{ 10348 my $proto = shift; 10349 my $class = ref($proto) || $proto; 10350 my $sub = "PDL::Transform::Proj4::wag7::new()"; 10351 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 10352 my $self = $class->SUPER::new( @_ ); 10353 bless ($self, $class); 10354 10355 my $o = $_[0]; 10356 unless( (ref $o) ) 10357 { $o = {@_}; } 10358 10359 #use Data::Dumper; 10360 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 10361 #$dd2->Indent(1); 10362 #print STDERR $dd2->Dump(); 10363 10364 $self->{name} = "Wagner VII"; 10365 $self->{proj_code} = "wag7"; 10366 10367 # Make sure proj is set in the options: 10368 $self->{params}->{proj} = $self->{proj_code}; 10369 10370 # Grab our projection specific options: 10371 # 10372 $self->{projection_params} = [ qw( ) ]; 10373 foreach my $param ( @{ $self->{projection_params} } ) 10374 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 10375 10376 $self->update_proj_string(); 10377 10378 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 10379 #$dd->Indent(1); 10380 #print STDERR $dd->Dump(); 10381 10382 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 10383 10384 return $self; 10385} # End of PDL::Transform::wag7::new()... 10386 103871; 10388 10389 10390 10391 10392# Autogenerated code for the Proj4 projection code: 10393# weren 10394# 10395package PDL::Transform::Proj4::weren; 10396use PDL::Transform::Proj4; 10397@ISA = ( 'PDL::Transform::Proj4' ); 10398 10399sub new 10400{ 10401 my $proto = shift; 10402 my $class = ref($proto) || $proto; 10403 my $sub = "PDL::Transform::Proj4::weren::new()"; 10404 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 10405 my $self = $class->SUPER::new( @_ ); 10406 bless ($self, $class); 10407 10408 my $o = $_[0]; 10409 unless( (ref $o) ) 10410 { $o = {@_}; } 10411 10412 #use Data::Dumper; 10413 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 10414 #$dd2->Indent(1); 10415 #print STDERR $dd2->Dump(); 10416 10417 $self->{name} = "Werenskiold I"; 10418 $self->{proj_code} = "weren"; 10419 10420 # Make sure proj is set in the options: 10421 $self->{params}->{proj} = $self->{proj_code}; 10422 10423 # Grab our projection specific options: 10424 # 10425 $self->{projection_params} = [ qw( ) ]; 10426 foreach my $param ( @{ $self->{projection_params} } ) 10427 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 10428 10429 $self->update_proj_string(); 10430 10431 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 10432 #$dd->Indent(1); 10433 #print STDERR $dd->Dump(); 10434 10435 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 10436 10437 return $self; 10438} # End of PDL::Transform::weren::new()... 10439 104401; 10441 10442 10443 10444 10445# Autogenerated code for the Proj4 projection code: 10446# wink1 10447# 10448package PDL::Transform::Proj4::wink1; 10449use PDL::Transform::Proj4; 10450@ISA = ( 'PDL::Transform::Proj4' ); 10451 10452sub new 10453{ 10454 my $proto = shift; 10455 my $class = ref($proto) || $proto; 10456 my $sub = "PDL::Transform::Proj4::wink1::new()"; 10457 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 10458 my $self = $class->SUPER::new( @_ ); 10459 bless ($self, $class); 10460 10461 my $o = $_[0]; 10462 unless( (ref $o) ) 10463 { $o = {@_}; } 10464 10465 #use Data::Dumper; 10466 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 10467 #$dd2->Indent(1); 10468 #print STDERR $dd2->Dump(); 10469 10470 $self->{name} = "Winkel I"; 10471 $self->{proj_code} = "wink1"; 10472 10473 # Make sure proj is set in the options: 10474 $self->{params}->{proj} = $self->{proj_code}; 10475 10476 # Grab our projection specific options: 10477 # 10478 $self->{projection_params} = [ qw( lat_ts ) ]; 10479 foreach my $param ( @{ $self->{projection_params} } ) 10480 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 10481 10482 $self->update_proj_string(); 10483 10484 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 10485 #$dd->Indent(1); 10486 #print STDERR $dd->Dump(); 10487 10488 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 10489 10490 return $self; 10491} # End of PDL::Transform::wink1::new()... 10492 104931; 10494 10495 10496 10497 10498# Autogenerated code for the Proj4 projection code: 10499# wink2 10500# 10501package PDL::Transform::Proj4::wink2; 10502use PDL::Transform::Proj4; 10503@ISA = ( 'PDL::Transform::Proj4' ); 10504 10505sub new 10506{ 10507 my $proto = shift; 10508 my $class = ref($proto) || $proto; 10509 my $sub = "PDL::Transform::Proj4::wink2::new()"; 10510 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 10511 my $self = $class->SUPER::new( @_ ); 10512 bless ($self, $class); 10513 10514 my $o = $_[0]; 10515 unless( (ref $o) ) 10516 { $o = {@_}; } 10517 10518 #use Data::Dumper; 10519 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 10520 #$dd2->Indent(1); 10521 #print STDERR $dd2->Dump(); 10522 10523 $self->{name} = "Winkel II"; 10524 $self->{proj_code} = "wink2"; 10525 10526 # Make sure proj is set in the options: 10527 $self->{params}->{proj} = $self->{proj_code}; 10528 10529 # Grab our projection specific options: 10530 # 10531 $self->{projection_params} = [ qw( lat_1 ) ]; 10532 foreach my $param ( @{ $self->{projection_params} } ) 10533 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 10534 10535 $self->update_proj_string(); 10536 10537 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 10538 #$dd->Indent(1); 10539 #print STDERR $dd->Dump(); 10540 10541 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 10542 10543 return $self; 10544} # End of PDL::Transform::wink2::new()... 10545 105461; 10547 10548 10549 10550 10551# Autogenerated code for the Proj4 projection code: 10552# wintri 10553# 10554package PDL::Transform::Proj4::wintri; 10555use PDL::Transform::Proj4; 10556@ISA = ( 'PDL::Transform::Proj4' ); 10557 10558sub new 10559{ 10560 my $proto = shift; 10561 my $class = ref($proto) || $proto; 10562 my $sub = "PDL::Transform::Proj4::wintri::new()"; 10563 #print STDERR "$sub: ARGS: [" . join(", ", @_ ) . "]\n"; 10564 my $self = $class->SUPER::new( @_ ); 10565 bless ($self, $class); 10566 10567 my $o = $_[0]; 10568 unless( (ref $o) ) 10569 { $o = {@_}; } 10570 10571 #use Data::Dumper; 10572 #my $dd2 = Data::Dumper->new( [$o], ["$sub: o"] ); 10573 #$dd2->Indent(1); 10574 #print STDERR $dd2->Dump(); 10575 10576 $self->{name} = "Winkel Tripel"; 10577 $self->{proj_code} = "wintri"; 10578 10579 # Make sure proj is set in the options: 10580 $self->{params}->{proj} = $self->{proj_code}; 10581 10582 # Grab our projection specific options: 10583 # 10584 $self->{projection_params} = [ qw( lat_1 ) ]; 10585 foreach my $param ( @{ $self->{projection_params} } ) 10586 { $self->{params}->{$param} = PDL::Transform::_opt( $o, [ $param ] ); } 10587 10588 $self->update_proj_string(); 10589 10590 #my $dd = Data::Dumper->new( [$self->{params}], ["$sub: params"] ); 10591 #$dd->Indent(1); 10592 #print STDERR $dd->Dump(); 10593 10594 #print STDERR "$sub: Final proj_params: \'" . $self->{params}->{proj_params} . "\'\n"; 10595 10596 return $self; 10597} # End of PDL::Transform::wintri::new()... 10598 105991; 10600 10601 10602 10603 10604=head1 AUTHOR & MAINTAINER 10605 10606Judd Taylor, Orbital Systems, Ltd. 10607judd dot t at orbitalsystems dot com 10608 10609=cut 10610 10611 10612 10613 10614 10615 10616# Exit with OK status 10617 106181; 10619 10620