PROGRAM NAME: iSA (interactive Spectral Analysis) AUTHOR: Juan Lorenzo
DATE: August 1 2016 Version 1.0 read iSpectralAnalysis.config text file Version 1.1 Nov 8 2020use Moose; accepts NaN as undeclared gather number
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 linewlike the following: use warnings; USES the following classes: sucat and packages of subroutines System_Variables SeismicUnix
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 set Message type to iSpectralAnalysis Show instructions for first SpectralAnalysis
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");
data first time
configuration my @config = $mw->configure(); print Pretty @config;
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 $iSA delete output of previous semblance plus more callbacks following...
-PRESS the CALC button
the previous display
saying goodbye clear old images kill window stop script
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.