App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/developer/Stripped/plot/viewer3.Mesa.main view on Meta::CPAN
Optional Parameters: ",
hue=1 =1 for hue =0 for black/white
q=-0.6,0.06,-0.06,0.8 define the quaternion
tbs=0.8 the lager the trackball size is, the slower it rotates
verbose=0 =1 print some useful information
rayfile=NULL ray path file to read in
wffile=NULL wavefront file to read in
sttfile=NULL surface traveltime file to read in
Menu: The rightmost mouse button, with cursor placed on the graphics
window activates the following menu:
Quit: quits the application
Full Screen: expands graphics window to full screen
White/Color Rays: selects colored (default) or white rays ",
Plot Rays: show the rays (default: off)
Surface Traveltimes: show surface traveltimes (default: off)
Wired or Solid WFs: style of wavefront display wireframe (default)
or solid ",
Plot Wavefronts: turn on wavefronts default: off
TRI or TETRA or LAYER or HORZ: toggles display from wireframe
lib/App/SeismicUnixGui/developer/Stripped/plot/viewer3.Mesa.main view on Meta::CPAN
(tetrahedra modle builder) which outputs a file called hzfile, so
that viewer3 can read input from stdin.
If, in addition, you have 3D raypath information (rayfile), wavefronts
(wffile) and surface traveltimes (sttfile), typically generated by
sutetraray (tetrahedral wavefront construction ray tracing),
then rays, wavefronts and surface traveltimes can be displayed as well
as the model.
The plot may be rotated by depressing the leftmost mouse button
and dragging the cursor in the desired direction of rotation. The speed
of rotation is controlled by the speed of the cursor.
The plot may be rescaled by depressing the shift key, while also
depressing and dragging the cursor up or down on the display window.
Credits:
CWP: Zhaobo Meng, 1996
lib/App/SeismicUnixGui/developer/Stripped/plot/xpicker.xplot.main view on Meta::CPAN
Author: Dave Hale, Colorado School of Mines, 08/09/90
with picking by Wenying Cai of University of Utah.
Endian stuff by Morten Pedersen and John Stockwell of CWP.
Interp stuff by Tony Kocurko of Memorial University of Newfoundland
Modified to include acceptable values by Bill Lutter of the
Department of Geology, University of Wisconsin 10/96
MODIFIED: P. Michaels, Boise State Univeristy 29 December 2000
Added solid/grey color scheme for peaks/troughs
G.Klein, IFG Kiel University, 2003-09-29, added cursor scrolling and
interactive change of zoom and clipping.
NOTES:
Interactive picker improved to allow x-axis of picks to be
coordinated with "key=header" parameter set in driver routine
suxpicker. Multiple picks per trace are now allowed.
Input:
The command line of suxpicker is unchanged. The parameter"key=header"
set in suxpicker controls a) trace x-axis displayed via xpicker and
lib/App/SeismicUnixGui/developer/Stripped/transform/suphasevel.su.main.transforms view on Meta::CPAN
give you an idea about the possible value for fmax.
Second: Plot your data or some subset of your data via:
suxwigb < shotrecord.su key=offset
You can then estimate the range of phase velocities by looking
at the maximum and minimum slopes of arrivals in your data.
This will allow you do set first velocity fv and the increment
in velocity dv, that make sense for your data.
You can pick values of offset and time by placing the cursor
on the desired location on the plot and pressing the \'s\' key
The picks will appear in your terminal window.
When displaying, don't forget to use suamp to compute the
modulus of the complex values that this program puts out.
suphasevel < shotrecord.su [parameters] | suamp | suximage
lib/App/SeismicUnixGui/fortran/src/moveNzoom.for view on Meta::CPAN
! definitions
move_image_up = 81
move_image_down = 83
move_image_right = 82
move_image_left = 84
zoom_plus = 85
zoom_minus = 86
c
! write(*,*)
! write(*,*) '** move_image cursor into the graphic screen **'
! write(*,*)
! write(*,*) 'i - zoom in, o - zoom out'
! write(*,*) 'k - move image up, j - move image down'
! write(*,*) 'l - move image right, h - move image left'
! write(*,*)
! write(*,*) '** Press any other key to leave **'
! write(*,*)
c
! read(*,'(a)') val
c
lib/App/SeismicUnixGui/fortran/src/pgzoom.for view on Meta::CPAN
c Zoom in and out, and move picture around
c
subroutine pgzoom(xmin,xmax,ymin,ymax)
c
character val
c
write(*,*)
write(*,*) '** Move cursor into the graphic screen **'
write(*,*)
write(*,*) 'i - zoom in, o - zoom out'
write(*,*) 'k - move image up, j - move image down'
write(*,*) 'l - move image right, h - move image left'
write(*,*)
write(*,*) '** Press any other key to leave **'
write(*,*)
c
read(*,'(a)') val
c
lib/App/SeismicUnixGui/sunix/plot/suximage.pm view on Meta::CPAN
up,down,left,right keys move zoom window by half width/height
i or +(keypad) zoom in by factor 2
o or -(keypad) zoom out by factor 2
... change colormap interactively
r install next RGB - colormap
R install previous RGB - colormap
h install next HSV - colormap
H install previous HSV - colormap
H install previous HSV - colormap
(Move mouse cursor out and back into window for r,R,h,H to take effect)
Required Parameters: #
n1 number of samples in 1st (fast) dimension
Optional Parameters:
d1=1.0 sampling interval in 1st dimension
f1=0.0 first sample in 1st dimension
n2=all number of samples in 2nd (slow) dimension
d2=1.0 sampling interval in 2nd dimension
f2=0.0 first sample in 2nd dimension
lib/App/SeismicUnixGui/sunix/plot/suxwigb.pm view on Meta::CPAN
John Stockwell - Added optional sinc interpolation
Stewart A. Levin, Mobil - protect title, labels in pswigb call
Brian J. Zook, SwRI - Added style=normal and wigclip flag
Brian K. Macy, Phillips Petroleum, 11/27/98, added curve plotting option
Curve plotting notes:
MODIFIED: P. Michaels, Boise State Univeristy 29 December 2000
Added solid/grey color scheme for peaks/troughs
G.Klein, IFG Kiel University, 2002-09-29, added cursor scrolling and
interactive change of zoom and clipping.
IFM-GEOMAR Kiel, 2004-03-12, added zoom locking
IFM-GEOMAR Kiel, 2004-03-25, interactive plotting fixed
=head2 CHANGES and their DATES
=cut
use Moose;
our $VERSION = '0.0.2';
lib/App/SeismicUnixGui/sunix/plot/todo/viewer3.pm view on Meta::CPAN
Optional Parameters: ",
hue=1 =1 for hue =0 for black/white
q=-0.6,0.06,-0.06,0.8 define the quaternion
tbs=0.8 the lager the trackball size is, the slower it rotates
verbose=0 =1 print some useful information
rayfile=NULL ray path file to read in
wffile=NULL wavefront file to read in
sttfile=NULL surface traveltime file to read in
Menu: The rightmost mouse button, with cursor placed on the graphics
window activates the following menu:
Quit: quits the application
Full Screen: expands graphics window to full screen
White/Color Rays: selects colored (default) or white rays ",
Plot Rays: show the rays (default: off)
Surface Traveltimes: show surface traveltimes (default: off)
Wired or Solid WFs: style of wavefront display wireframe (default)
or solid ",
Plot Wavefronts: turn on wavefronts default: off
TRI or TETRA or LAYER or HORZ: toggles display from wireframe
lib/App/SeismicUnixGui/sunix/plot/todo/viewer3.pm view on Meta::CPAN
(tetrahedra modle builder) which outputs a file called hzfile, so
that viewer3 can read input from stdin.
If, in addition, you have 3D raypath information (rayfile), wavefronts
(wffile) and surface traveltimes (sttfile), typically generated by
sutetraray (tetrahedral wavefront construction ray tracing),
then rays, wavefronts and surface traveltimes can be displayed as well
as the model.
The plot may be rotated by depressing the leftmost mouse button
and dragging the cursor in the desired direction of rotation. The speed
of rotation is controlled by the speed of the cursor.
The plot may be rescaled by depressing the shift key, while also
depressing and dragging the cursor up or down on the display window.
Credits:
CWP: Zhaobo Meng, 1996
=head2 CHANGES and their DATES
=cut
use Moose;
lib/App/SeismicUnixGui/sunix/plot/ximage.pm view on Meta::CPAN
up,down,left,right keys move zoom window by half width/height
i or +(keypad) zoom in by factor 2
o or -(keypad) zoom out by factor 2
... change colormap interactively
r install next RGB - colormap
R install previous RGB - colormap
h install next HSV - colormap
H install previous HSV - colormap
H install previous HSV - colormap
(Move mouse cursor out and back into window for r,R,h,H to take effect)
Required Parameters:
n1 number of samples in 1st (fast) dimension
Optional Parameters:
d1=1.0 sampling interval in 1st dimension
f1=0.0 first sample in 1st dimension
n2=all number of samples in 2nd (slow) dimension
d2=1.0 sampling interval in 2nd dimension
f2=0.0 first sample in 2nd dimension
lib/App/SeismicUnixGui/sunix/plot/ximage.pm view on Meta::CPAN
Stewart A. Levin, Mobil - Added ps print option
Brian Zook, Southwest Research Institute, 6/27/96, added blank option
Toralf Foerster, Baltic Sea Research Institute, 9/15/96, new colormaps
Berend Scheffers, Delft, colorbar (legend)
Brian K. Macy, Phillips Petroleum, 11/27/98, added curve plotting option
G.Klein, GEOMAR Kiel, 2004-03-12, added cursor scrolling and
interactive change of zoom and clipping.
Zhaobo Meng, ConocoPhillips, 12/02/04, added amplitude display
Garry Perratt, Geocon, 08/04/05, modified perc handling to center colorbar if balance==1.
INTL2B_block - blocky interpolation of a 2-D array of bytes
intl2b_block blocky interpolation of a 2-D array of bytes
lib/App/SeismicUnixGui/sunix/plot/xpicker.pm view on Meta::CPAN
Modified to include acceptable values by Bill Lutter of the
Department of Geology, University of Wisconsin 10/96
MODIFIED: P. Michaels, Boise State Univeristy 29 December 2000
Added solid/grey color scheme for peaks/troughs
G.Klein, IFG Kiel University, 2003-09-29, added cursor scrolling and
interactive change of zoom and clipping.
NOTES:
Interactive picker improved to allow x-axis of picks to be
coordinated with "key=header" parameter set in driver routine
lib/App/SeismicUnixGui/sunix/plot/xwigb.pm view on Meta::CPAN
John Stockwell - Added optional sinc interpolation
Stewart A. Levin, Mobil - protect title, labels in pswigb call
Brian J. Zook, SwRI - Added style=normal and wigclip flag
Brian K. Macy, Phillips Petroleum, 11/27/98, added curve plotting option
Curve plotting notes:
MODIFIED: P. Michaels, Boise State Univeristy 29 December 2000
Added solid/grey color scheme for peaks/troughs
G.Klein, IFG Kiel University, 2002-09-29, added cursor scrolling and
interactive change of zoom and clipping.
IFM-GEOMAR Kiel, 2004-03-12, added zoom locking
IFM-GEOMAR Kiel, 2004-03-25, interactive plotting fixed
=head2 CHANGES and their DATES
=cut
use Moose;
our $VERSION = '0.0.1';
lib/App/SeismicUnixGui/sunix/transform/suphasevel.pm view on Meta::CPAN
give you an idea about the possible value for fmax.
Second: Plot your data or some subset of your data via:
suxwigb < shotrecord.su key=offset
You can then estimate the range of phase velocities by looking
at the maximum and minimum slopes of arrivals in your data.
This will allow you do set first velocity fv and the increment
in velocity dv, that make sense for your data.
You can pick values of offset and time by placing the cursor
on the desired location on the plot and pressing the \'s\' key
The picks will appear in your terminal window.
When displaying, don't forget to use suamp to compute the
modulus of the complex values that this program puts out.
suphasevel < shotrecord.su [parameters] | suamp | suximage
( run in 0.278 second using v1.01-cache-2.11-cpan-4d50c553e7e )