DOCUMENTATION
SYNOPSIS
PROGRAM NAME: iSA (interactive Spectral Analysis)
AUTHOR: Juan Lorenzo
CHANGES and their DATES
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
DESCRIPTION
Interactively pick muting parameters
USE
Examples
SEISMIC UNIX NOTES
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
NOTES
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
Instantiate classes:
Create a new version of the package
with a unique name
Declare variables
in local memory space
Create Main Window
Start 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
Decide whether to
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");
Display
data first time
Print
configuration
my @config = $mw->configure();
print Pretty @config;
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 $iSA
delete output of previous semblance
plus more callbacks following...
sub set_calc
-PRESS the CALC button
Delete
the previous display
sub set_exit
saying goodbye
clear old images
kill window
stop script