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

 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

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

cpanm App::SeismicUnixGui

perl -MCPAN -e shell
install App::SeismicUnixGui