view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/sunix/header/suutm.pm  view on Meta::CPAN

 The Universal Transverse Mercator (UTM) system is a world wide

 coordinate system defined between 80S and 84N. It divides the

 Earth into 60 six-degree zones. Zone number 1 has its central

 meridian at 177W (-177 degrees), and numbers increase eastward.



 Within each zone, an Easting of 500,000 m is assigned to its 

 central meridian to avoid negative coordinates. On the northern

 hemisphere, Northings start at 0 m at the equator and increase 

 northward. On the southern hemisphere a false Northing of 

 10,000,000 m is applied, i.e. Northings start at 10,000,000 m at 

 the equator and decrease southward.



 Coordinate encoding (sx,sy,gx,gy):

    counit=1  units of length (coordinates are not converted)

    counit=2  seconds of arc

    counit=3  decimal degrees 

    counit=4  degrees, minutes and seconds encoded as integer DDDMMSS 

              with scalco=1 or DDDMMSS.ss with scalco=-100 (see segy.h)

 Units of length are also assumed, if counit <= 0 or counit >= 5.





 Author: 

    Nils Maercklin, RISSC, University of Naples, Italy, March 2007



 References:

 NIMA (2000). Department of Defense World Geodetic System 1984 - 

    its definition and relationships with local geodetic systems.

    Technical Report TR8350.2. National Imagery and Mapping Agency, 

    Geodesy and Geophysics Department, St. Louis, MO. 3rd edition.

 J. P. Snyder (1987). Map Projections - A Working Manual. 

    U.S. Geological Survey Professional Paper 1395, 383 pages.

    U.S. Government Printing Office.





 Trace header fields accessed: sx, sy, gx, gy, scalco, counit

 Trace header fields modified: sx, sy, gx, gy, scalco, counit



=head2 User's notes (Juan Lorenzo)
untested

=cut


=head2 CHANGES and their DATES

=cut

use Moose;
our $VERSION = '0.0.1';


=head2 Import packages

=cut

use aliased 'App::SeismicUnixGui::misc::L_SU_global_constants';

use App::SeismicUnixGui::misc::SeismicUnix qw($go $in $off $on $out $ps $to $suffix_ascii $suffix_bin $suffix_ps $suffix_segy $suffix_su);
use aliased 'App::SeismicUnixGui::configs::big_streams::Project_config';


=head2 instantiation of packages

=cut

my $get					= L_SU_global_constants->new();
my $Project				= Project_config->new();
my $DATA_SEISMIC_SU		= $Project->DATA_SEISMIC_SU();
my $DATA_SEISMIC_BIN	= $Project->DATA_SEISMIC_BIN();
my $DATA_SEISMIC_TXT	= $Project->DATA_SEISMIC_TXT();

my $PS_SEISMIC      	= $Project->PS_SEISMIC();

my $var				= $get->var();
my $on				= $var->{_on};
my $off				= $var->{_off};
my $true			= $var->{_true};
my $false			= $var->{_false};
my $empty_string	= $var->{_empty_string};

=head2 Encapsulated
hash of private variables

=cut