PROGRAM NAME: iTopMute (interactive Top Mute) AUTHOR: Juan Lorenzo
DATE: April 2 2009 September 2015 : updated to oop introduced Tk widgets Made all event-driven July 27 2016 NEW: read iTop_Mute3.config text file OLD: import perl variables from *.pm configuration file xi within ta local libAll subdirectory binheader is used for everything serious gather is to be used to texting correct offset is essential for applying the mute
Interactively pick muting parameters
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
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; Parameters base_file_name su file without "su" suffix gather_type used only to determine user messages, e.g., SP, CDP binheader_type type of gathers used for muting, e.g., ep,cdp offset_type horizontal component, e.g., tracr, offset
Create a new version of the package with a unique name
in local memory space
Sstart event-driven loop Interaction with user initialize values If picks are new, show message on how to pick data
data first time
PICK or move on to NEXT CDP Place window near the upper left corner 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 $iTM delete output of previous semblance plus more callbacks following...
of previous muting
-replot 1st data -PICK X-T pairs -Increment number of tries to make data display interact with user (number_of_tries = 1)
-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 top mute Show user message Select the mute values
saying goodbye clear old images kill window stop script
To install rayinvr, copy and paste the appropriate command in to your terminal.
cpanm
cpanm rayinvr
CPAN shell
perl -MCPAN -e shell install rayinvr
For more information on module installation, please visit the detailed CPAN module installation guide.