PROGRAM NAME: iPick (interactive Picking) AUTHOR: Juan Lorenzo
DATE: June 15 2019
Interactively pick points
We are using Moose Moose already declares that you need debuggers turned on so you don't need a line like the following: use warnings; For the iPick tool and in order to prevent redefining subroutines we implement new modulesB,C,D ... Both of the following instantiate iPick_spec.pm --iPick_config calls config_superflows calls big_streams_param which requires and instantiates iPick_spec --iPick.pm uses and instantiates iPick_specB.pm uses iShowNselect_picks which instantiates iPick_specC uses iSelect_xt which instantiates iPick_specD
Create a new version of the package with a unique name
in local memory space
Check for old data
data first time
Start event-driven loop Interaction with user initialize values If picks are new, show message on how to pick data
PICK or move on to NEXT GATHER Place windows (2) near the left side of the screen Changing geometry of the toplevel window my $h = $mw->screenheight(); my $w = $mw->screenwidth(); print("width and height of screen are $w,$h\n\n"); print("geometry of screen is $geom\n\n");
value according to which button is pressed then exit the MainLoop destroy the main window after the prompt is properly set
callbacks send gather number to $iPick delete output of previous displays
of previous muting
-PRESS the CALC button -Increment number of tries to make display and show old picks (if number_of_tries >1)
the previous display
to halt flow when number_of_tries >0
same as next
In this case $self is empty 1. increment gather Exit if beyond last gather 2. reset prompt 3. Otherwise display the first semblance 4 ... see following callbacks
of previous top mute
update gather number in memory first x,t again Show user message Select the xt values
say goodbye clear old images kill window stop script
2 POD Errors
The following errors were encountered while parsing the POD:
'=item' outside of any '=over'
You forgot a '=back' before '=head2'
To install App::SeismicUnixGui, copy and paste the appropriate command in to your terminal.
cpanm
cpanm App::SeismicUnixGui
CPAN shell
perl -MCPAN -e shell install App::SeismicUnixGui
For more information on module installation, please visit the detailed CPAN module installation guide.