DOCUMENTATION

SYNOPSIS

PROGRAM NAME: iPick (interactive Picking) 
AUTHOR:  Juan Lorenzo

CHANGES and their DATES

DATE:  June 15 2019 

DESCRIPTION

Interactively pick points

USE

Examples

SEISMIC UNIX NOTES

STEPS

NOTES

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

Instantiate classes:

Create a new version of the package 
with a unique name

Get configuration information

Declare variables

in local memory space

Check for old data

Display

data first time

Create Main Window

Start event-driven loop
Interaction with user
initialize values
If picks are new, show
message on how to pick data

Decide whether to

	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");

Set the prompt

value according
to which button is pressed
then exit the MainLoop
destroy the main window after the prompt
is properly set

sub set_pick

callbacks

send gather number to $iPick
delete output of previous displays

Delete output

of previous muting

number_of_tries -replot 1st data -PICK X-T pairs -Increment number of tries to make data display interact with user (number_of_tries = 1)

sub set_calc

-PRESS the CALC button
-Increment number of tries to make
 display and show old picks
 (if number_of_tries >1)

Delete

the previous display

Message

to halt flow
when number_of_tries >0

sub set_saveNcont

same as next

sub set_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

Delete output

of previous top mute

Display

update gather number in memory
first x,t again
Show user message
Select the xt values

sub set_exit

say goodbye 
clear old images
kill window
stop script

cpanm App::SeismicUnixGui

perl -MCPAN -e shell
install App::SeismicUnixGui