view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/big_streams/iVelocityAnalysis.pl  view on Meta::CPAN

=head1 DOCUMENTATION

=head2 SYNOPSIS 

 PROGRAM NAME: iVA 
 AUTHOR: Juan Lorenzo
 DATE:  April 2 2009 
        October 2014
        July 	2015 updated to oop
        August 	2015 introduced Tk widgets
        August 	16 made all event-driven
		Aug 18 	2016 made configuration files simple

 DESCRIPTION: Interactively test NMO in data
 Verstion 2.0 MainWIndow in subroutine 
              leads to multiple segementation faults
              when MainWindow is destroyed > 1
 Version: 2.1 is fully event driven

=head2 USE

=head3 NOTES 

=head4 
 Examples

=head3 SEISMIC UNIX NOTES
=head4 CHANGES and their DATES


=cut


=head2 STEPS 

 1.  use the local library of the user
 1.1 bring is user variables from a local file
 2.  create instances of the needed subroutines

=cut

=head2 Import
 
 packages

=cut 

use Moose;
our $VERSION = '0.0.1';
use Tk;
use aliased 'App::SeismicUnixGui::big_streams::iVA';
use App::SeismicUnixGui::misc::SeismicUnix qw($true $false );

=head2 instantiate methods

=cut

my $iVA = iVA->new();

=head2 Declare variables 

   in local memory space

=cut

my $iVA_Tk = {_prompt => ''};

my ( $calc_rb, $exit_rb, $pick_rb, $next_rb, $saveNcont_rb );
my $rb_value = "red";