App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/Sudipfilt.pl view on Meta::CPAN
$suximage->tend_s( quotemeta(-.5) );
$suximage->xstart_m( quotemeta(-.5) );
$suximage->xend_m( quotemeta(.5) );
$suximage->num_minor_ticks_betw_distance_ticks( quotemeta(2) );
$suximage->x_tick_increment( quotemeta(0.2) );
$suximage->first_distance_tick_num( quotemeta(-0.5) );
$suximage->num_minor_ticks_betw_time_ticks( quotemeta(2) );
$suximage->y_tick_increment( quotemeta(0.1) );
$suximage->xlabel( quotemeta('frequency (Hz) dt=1 Nf=0.5') );
$suximage->ylabel( quotemeta('k 1/m dx=1 Nk=0.5') );
$suximage->legend( quotemeta(1) );
$suximage->hiclip( quotemeta(1000) );
$suximage->loclip( quotemeta(0.001) );
$suximage->style( quotemeta('seismic') );
$suximage->cmap( quotemeta('hsv2') );
#$suximage-> wigclip(quotemeta(1));
$suximage->windowtitle( quotemeta('f-k analysis') );
$suximage[1] = $suximage->Step();
=head2 DISPLAY DATA as IMAGE
lib/App/SeismicUnixGui/big_streams/Sudipfilt.pl view on Meta::CPAN
$suximage->hiclip( quotemeta(1) );
$suximage->loclip( quotemeta(-1) );
$suximage->tstart_s( quotemeta($suwind_1_tmin) );
#$suximage->first_distance_tick_num( quotemeta(1) );
$suximage->tend_s( quotemeta($suwind_1_tmax) );
#$suximage->num_minor_ticks_betw_distance_ticks( quotemeta(1) );
$suximage->x_tick_increment( quotemeta(10) );
#$suximage->num_minor_ticks_betw_time_ticks( quotemeta(2) );
$suximage->y_tick_increment( quotemeta(.1) );
$suximage->windowtitle(quotemeta('unfiltered data'));
$suximage->legend( quotemeta(1) );
$suximage->style( quotemeta('seismic') );
$suximage[2] = $suximage->Step(); #
=head2 DISPLAY DATA as IMAGE
Set parameters
Bottom-left image
=cut
$suximage->clear();
$suximage->title( quotemeta($sufile_in) );
$suximage->box_width( quotemeta(300) );
$suximage->box_height( quotemeta(370) );
$suximage->box_X0( quotemeta(0) );
$suximage->box_Y0( quotemeta(440) );
$suximage->legend( quotemeta(1) );
$suximage->tstart_s( quotemeta(0.5) );
$suximage->tend_s( quotemeta(-.5) );
$suximage->xstart_m( quotemeta(-0.5) );
$suximage->xend_m( quotemeta(.5) );
$suximage->num_minor_ticks_betw_time_ticks( quotemeta(2) );
$suximage->num_minor_ticks_betw_distance_ticks( quotemeta(1) );
$suximage->x_tick_increment( quotemeta(0.2) );
$suximage->first_distance_tick_num( quotemeta(-0.5) );
$suximage->y_tick_increment( quotemeta(0.1) );
$suximage->ylabel( quotemeta('frequency (Hz) dt=1 Nf=0.5') );
lib/App/SeismicUnixGui/big_streams/Sudipfilt.pl view on Meta::CPAN
$suximage->box_Y0( quotemeta(440) );
$suximage->tstart_s( quotemeta($suwind_1_tmin) );
$suximage->tend_s( quotemeta($suwind_1_tmax) );
$suximage->num_minor_ticks_betw_distance_ticks( quotemeta(1) );
$suximage->x_tick_increment( quotemeta(5) ); #0.2
$suximage->num_minor_ticks_betw_time_ticks( quotemeta(2) );
$suximage->y_tick_increment( quotemeta(.1) );
$suximage->first_time_sample_value( quotemeta(0) );
$suximage->absclip( quotemeta($BOTTOM_RIGHT_suximage_absclip) );
$suximage->windowtitle( quotemeta('dip-filtered') );
$suximage->legend( quotemeta(1) );
$suximage[6] = $suximage->Step();
=head2
Standard:
1. DEFINE FLOW(S)
top left image
top middle plot
top right plot
lib/App/SeismicUnixGui/big_streams/iApply_bottom_mute.pm view on Meta::CPAN
$suximage->clear();
$suximage->box_width(300);
$suximage->box_height(700);
$suximage->box_X0(70);
$suximage->box_Y0(120);
$suximage->title($base_caption);
$suximage->windowtitle($windowtitle);
$suximage->ylabel( quotemeta('TWTTs') );
$suximage->xlabel( $iApply_bottom_mute->{_offset_type} );
$suximage->legend($on);
$suximage->cmap('rgb0');
$suximage->loclip( $iApply_bottom_mute->{_min_amplitude} );
$suximage->hiclip( $iApply_bottom_mute->{_max_amplitude} );
$suximage->verbose($off);
$suximage[1] = $suximage->Step();
=head2
DISPLAY DATA (SUXWIGB)
lib/App/SeismicUnixGui/big_streams/iApply_mute.pm view on Meta::CPAN
# $suximage -> clear();
# $suximage -> box_width(300);
# $suximage -> box_height(700);
# $suximage -> box_X0(70);
# $suximage -> box_Y0(120);
# $suximage -> title($base_caption);
# $suximage -> windowtitle($windowtitle);
# $suximage -> ylabel(quotemeta('TWTTs'));
# $suximage -> xlabel($iApply_mute->{_offset_type});
# $suximage -> legend($on);
# $suximage -> cmap('rgb0');
# #$suximage -> loclip($iApply_mute->{_min_amplitude});
# #$suximage -> hiclip($iApply_mute->{_max_amplitude});
# $suximage -> verbose($off);
# $suximage[1] = $suximage -> Step();
#
=head2 Set wiggle plot
for tau-p data
lib/App/SeismicUnixGui/big_streams/iApply_top_mute.pm view on Meta::CPAN
$suximage->clear();
$suximage->box_width(500);
$suximage->box_height(700);
$suximage->box_X0(100);
$suximage->box_Y0(200);
$suximage->title($base_caption);
$suximage->windowtitle($windowtitle);
$suximage->ylabel( quotemeta('TWTTs') );
$suximage->xlabel( $iApply_top_mute->{_offset_type} );
$suximage->legend($on);
$suximage->cmap('rgb0');
$suximage->loclip( $iApply_top_mute->{_min_amplitude} );
$suximage->hiclip( $iApply_top_mute->{_max_amplitude} );
$suximage->verbose($off);
$suximage[1] = $suximage->Step();
=head2
DISPLAY DATA (SUXWIGB)
lib/App/SeismicUnixGui/big_streams/iSelect_tr_Sumute_bottom.pm view on Meta::CPAN
$suximage->clear();
$suximage->box_width(300);
$suximage->box_height(700);
$suximage->box_X0(70);
$suximage->box_Y0(120);
$suximage->title( $base_caption[1] );
$suximage->windowtitle( $windowtitle[1] );
$suximage->ylabel( quotemeta('TWTT s') );
$suximage->xlabel( $iSelect_tr_Sumute_bottom->{_offset_type} );
$suximage->legend($on);
$suximage->cmap('rgb0');
$suximage->loclip( $iSelect_tr_Sumute_bottom->{_min_amplitude} );
$suximage->hiclip( $iSelect_tr_Sumute_bottom->{_max_amplitude} );
$suximage->verbose($off);
if ( $iSelect_tr_Sumute_bottom->{_number_of_tries} > 0 ) {
$iSelect_tr_Sumute_bottom->{_TX_outbound} =
$itemp_bot_mute_picks_ . $iSelect_tr_Sumute_bottom->{_file_in};
$suximage->picks(
lib/App/SeismicUnixGui/big_streams/iSelect_tr_Sumute_top.pm view on Meta::CPAN
$suximage->clear();
$suximage->box_width(400);
$suximage->box_height(600);
$suximage->box_X0(200);
$suximage->box_Y0(150);
$suximage->title( $base_caption[1] );
$suximage->windowtitle( $windowtitle[1] );
$suximage->ylabel( quotemeta('TWTT s') );
$suximage->xlabel( $iSelect_tr_Sumute_top->{_offset_type} );
$suximage->legend($on);
$suximage->cmap('rgb0');
$suximage->loclip( $iSelect_tr_Sumute_top->{_min_amplitude} );
$suximage->hiclip( $iSelect_tr_Sumute_top->{_max_amplitude} );
$suximage->verbose($off);
if ( $iSelect_tr_Sumute_top->{_number_of_tries} > 0 ) {
$iSelect_tr_Sumute_top->{_TX_outbound} =
$itemp_top_mute_picks_ . $iSelect_tr_Sumute_top->{_file_in};
$suximage->picks(
lib/App/SeismicUnixGui/big_streams/iSelect_xt.pm view on Meta::CPAN
$suximage->clear();
$suximage->box_width(400);
$suximage->box_height(600);
$suximage->box_X0(200);
$suximage->box_Y0(150);
$suximage->title( $base_caption[1] );
$suximage->windowtitle( $windowtitle[1] );
$suximage->ylabel( quotemeta('TWTT s') );
$suximage->xlabel( $iSelect_xt->{_offset_type} );
$suximage->legend($on);
$suximage->cmap('hsv2');
$suximage->loclip( $iSelect_xt->{_min_amplitude} );
$suximage->hiclip( $iSelect_xt->{_max_amplitude} );
# purposes can refine the style of plots
# geopsy plot preference for JML
if ( length $iSelect_xt->{_purpose}
and $iSelect_xt->{_purpose} eq 'geopsy'
and $iSelect_xt->{_max_x1} > $iSelect_xt->{_min_x1} )
{
lib/App/SeismicUnixGui/big_streams/iShowNselect_picks.pm view on Meta::CPAN
$suximage->clear();
$suximage->box_width(400);
$suximage->box_height(600);
$suximage->box_X0(200);
$suximage->box_Y0(150);
$suximage->title( $base_caption[1] );
$suximage->windowtitle( $windowtitle[1] );
$suximage->ylabel( quotemeta('TWTTs') );
$suximage->xlabel( $iShowNselect_picks->{_offset_type} );
$suximage->legend($on);
$suximage->cmap('rgb0');
$suximage->loclip( $iShowNselect_picks->{_min_amplitude} );
$suximage->hiclip( $iShowNselect_picks->{_max_amplitude} );
# geopsy plot preference for JML
if ( length $iShowNselect_picks->{_purpose}
and $iShowNselect_picks->{_purpose} eq 'geopsy'
and $iShowNselect_picks->{_max_x1} > $iShowNselect_picks->{_min_x1} )
{
lib/App/SeismicUnixGui/big_streams/iShow_picks.pm view on Meta::CPAN
$suximage->clear();
$suximage->box_width(400);
$suximage->box_height(600);
$suximage->box_X0(200);
$suximage->box_Y0(150);
$suximage->title( $base_caption[1] );
$suximage->windowtitle( $windowtitle[1] );
$suximage->ylabel( quotemeta('TWTTs') );
$suximage->xlabel( $iShow_picks->{_offset_type} );
$suximage->legend($on);
$suximage->cmap('rgb0');
$suximage->loclip( $iShow_picks->{_min_amplitude} );
$suximage->hiclip( $iShow_picks->{_max_amplitude} );
# geopsy plot preference for JML
if ( length $iShow_picks->{_purpose}
and $iShow_picks->{_purpose} eq 'geopsy'
and $iShow_picks->{_max_x1} > $iShow_picks->{_min_x1} ) {
$suxwigb->x1beg( $iShow_picks->{_max_x1} );
lib/App/SeismicUnixGui/big_streams/iSunmo.pm view on Meta::CPAN
$suximage->clear();
$suximage->box_width( quotemeta(300) );
$suximage->box_height( quotemeta(450) );
$suximage->box_X0( quotemeta(1200) );
$suximage->box_Y0( quotemeta(0) );
$suximage->title( quotemeta( $base_caption[1] ) );
$suximage->windowtitle( quotemeta( $windowtitle[1] ) );
$suximage->ylabel( quotemeta('TWTT (s)') );
$suximage->xlabel( quotemeta('tracl') );
$suximage->legend( quotemeta($on) );
$suximage->cmap( quotemeta('hsv2') );
$suximage->first_x( quotemeta(1) ); #d2=1,f2=1
$suximage->dx( quotemeta(1) );
$suximage->loclip( quotemeta( $suximage_col_bar_min[1] ) );
$suximage->hiclip( quotemeta( $suximage_col_bar_max[1] ) );
$suximage->verbose( quotemeta($off) );
#$suximage -> dx_major_divisions(quotemeta($iSunmo->{_velocity_increment}*10));
#$suximage -> dy_minor_divisions(quotemeta($number_minor_time_divisions);
#$suximage -> dy_major_divisions(quotemeta($time_inc_major);
lib/App/SeismicUnixGui/big_streams/iSuvelan.pm view on Meta::CPAN
#units=Semblance \\
$suximage->clear();
$suximage->box_width( quotemeta(300) );
$suximage->box_height( quotemeta(450) );
$suximage->box_X0( quotemeta(600) );
$suximage->box_Y0( quotemeta(0) );
$suximage->title( quotemeta( $iSuvelan->{_cdp_num_suffix} ) );
$suximage->windowtitle( quotemeta('Semblance') );
$suximage->ylabel( quotemeta('TWTT (s)') );
$suximage->xlabel( quotemeta('Velocity (m/s)') );
$suximage->legend( quotemeta($on) );
$suximage->cmap( quotemeta('hsv1') );
$suximage->first_x( quotemeta( $iSuvelan->{_first_velocity} ) );
$suximage->dx( quotemeta( $iSuvelan->{_velocity_increment} ) );
$suximage->dt_s(quotemeta($new_dt_s));
$suximage->loclip( quotemeta( $iSuvelan->{_min_semblance} ) );
$suximage->hiclip( quotemeta( $iSuvelan->{_max_semblance} ) );
$suximage->verbose( quotemeta($off) );
#print ("d2num is ($iSuvelan->{_velocity_increment})\n\n");
$suximage->dx_major_divisions( quotemeta($dx_major_divisions) );
lib/App/SeismicUnixGui/configs/plot/pscube.config view on Meta::CPAN
grid2 = none
grid3 = none
gridcolor = black
label1 = label
label2 = label
label3 = label
labelfont = Helvetica
labelsize = 18
lbeg =
ldnum = 0.0
legend = 0
legendfont = times_roman10
lend =
lfnum =
lgrid = none
lheight =
lntic = 1
lstyle = 0.
lwidth = 1.2
lx = 1.0
ly =
n1 =
lib/App/SeismicUnixGui/configs/plot/psimage.config view on Meta::CPAN
gridcolor = black
gridwidth =
height = 8.0
infile = none
label1 = label
label2 = label
labelfont = Helvetica
labelsize = 18
lbeg =
ldnum = 0.0
legend = 0
legendfont = times_roman10
lend =
lfnum =
lgrid = none
lheight =
lnice = 0
lntic = 1
lstyle = 0.
lwidth = 1.2
lx = 1.0
ly =
lib/App/SeismicUnixGui/configs/plot/suximage.config view on Meta::CPAN
first_distance_tick_num|f2num =
grid1 =
grid2 =
gridcolor = 'blue'
headerword|key =
infile =
ylabel|label1 = 'nu'
xlabel|label2 = 'nu'
labelcolor = 'blue'
labelfont = 'Erg14'
legend = 1
legendfont = 'times_roman10'
lheight =
lwidth = 16
lx = 3
ly =
picks|mpicks = '/dev/tty'
n1 =
num_minor_ticks_betw_time_ticks|n1tic = 1
n2 =
num_minor_ticks_betw_distance_ticks|n2tic = 1
npair =
lib/App/SeismicUnixGui/configs/plot/ximage.config view on Meta::CPAN
f2num =
grid1 =
grid2 =
gridcolor =
hbox = 700
hiclip =
label1|ylabel =
label2|xlabel = 'X''
labelcolor = 'blue'
labelfont = 'Erg14'
legend = 0
legendfont = 'times_roman10'
lheight =
loclip =
lwidth =
lx =
ly =
mpicks = '/dev/tty'
n1 =
n1tic = 1
n2 =
n2tic = 1
lib/App/SeismicUnixGui/developer/Stripped/plot/pscube.psplot.main view on Meta::CPAN
grid3=none grid lines on axis 3 - none, dot, dash, or solid
label3= label on axis 3
labelfont=Helvetica font name for axes labels
labelsize=18 font size for axes labels
title= title of plot
titlefont=Helvetica-Bold font name for title
titlesize=24 font size for title
titlecolor=black color of title
axescolor=black color of axes
gridcolor=black color of grid
legend=0 =1 display the color scale
if equals 1, resize xbox,ybox,width,height
lstyle=vertleft Vertical, axis label on left side
=vertright (Vertical, axis label on right side)
=horibottom (Horizontal, axis label on bottom)
units= unit label for legend
legendfont=times_roman10 font name for title
following are defaults for lstyle=0. They are changed for other lstyles
lwidth=1.2 colorscale (legend) width in inches
lheight=height/3 colorscale (legend) height in inches
lx=1.0 colorscale (legend) x-position in inches
ly=(height-lheight)/2+xybox colorscale (legend) y-position in pixels
lbeg= lmin or wclip-5*perc value at which legend axis begins
lend= lmax or bclip+5*perc value at which legend axis ends
ldnum=0.0 numbered tic interval on legend axis (0.0 for automatic)
lfnum=lmin first numbered tic on legend axis (used if d1num not 0.0)
lntic=1 number of tics per numbered tic on legend axis
lgrid=none grid lines on legend axis - none, dot, dash, or solid
All color specifications may also be made in X Window style Hex format
example: axescolor=#255
Legal font names are:
AvantGarde-Book AvantGarde-BookOblique AvantGarde-Demi AvantGarde-DemiOblique"
Bookman-Demi Bookman-DemiItalic Bookman-Light Bookman-LightItalic
Courier Courier-Bold Courier-BoldOblique Courier-Oblique
Helvetica Helvetica-Bold Helvetica-BoldOblique Helvetica-Oblique
Helvetica-Narrow Helvetica-Narrow-Bold Helvetica-Narrow-BoldOblique
lib/App/SeismicUnixGui/developer/Stripped/plot/psimage.psplot.main view on Meta::CPAN
titlefont=Helvetica-Bold font name for title
titlesize=24 font size for title
titlecolor=black color of title
axescolor=black color of axes
gridcolor=black color of grid
axeswidth=1 width (in points) of axes
ticwidth=axeswidth width (in points) of tic marks
gridwidth=axeswidth width (in points) of grid lines
style=seismic normal (axis 1 horizontal, axis 2 vertical) or
seismic (axis 1 vertical, axis 2 horizontal)
legend=0 =1 display the color scale
lnice=0 =1 nice legend arrangement
(overrides ybox,lx,width,height parameters)
lstyle=vertleft Vertical, axis label on left side
=vertright (Vertical, axis label on right side)
=horibottom (Horizontal, axis label on bottom)
units= unit label for legend
legendfont=times_roman10 font name for title
following are defaults for lstyle=0. They are changed for other lstyles
lwidth=1.2 colorscale (legend) width in inches
lheight=height/3 colorscale (legend) height in inches
lx=1.0 colorscale (legend) x-position in inches
ly=(height-lheight)/2+xybox colorscale (legend) y-position in pixels
lbeg= lmin or wclip-5*perc value at which legend axis begins
lend= lmax or bclip+5*perc value at which legend axis ends
ldnum=0.0 numbered tic interval on legend axis (0.0 for automatic)
lfnum=lmin first numbered tic on legend axis (used if d1num not 0.0)
lntic=1 number of tics per numbered tic on legend axis
lgrid=none grid lines on legend axis - none, dot, dash, or solid
curve=curve1,curve2,... file(s) containing points to draw curve(s)
npair=n1,n2,n2,... number(s) of pairs in each file
curvecolor=black,.. color of curve(s)
curvewidth=axeswidth width (in points) of curve(s)
curvedash=0 solid curve(s), dash indices 1,...,11 produce
curve(s) with various dash styles
infile=none filename of second attribute n1xn2 array
values must be from range 0.0 - 1.0
lib/App/SeismicUnixGui/developer/Stripped/plot/psimage.psplot.main view on Meta::CPAN
Author: Dave Hale, Colorado School of Mines, 05/29/90
MODIFIED: Craig Artley, Colorado School of Mines, 08/30/91
BoundingBox moved to top of PostScript output
MODIFIED: Craig Artley, Colorado School of Mines, 12/16/93
Added color options (Courtesy of Dave Hale, Advance Geophysical).
Modified: Morten Wendell Pedersen, Aarhus University, 23/3-97
Added ticwidth,axeswidth, gridwidth parameters
MODIFIED: Torsten Schoenfelder, Koeln, Germany 006/07/97
colorbar (legend) (as in ximage (by Berend Scheffers, Delft))
MODIFIED: Brian K. Macy, Phillips Petroleum, 01/14/99
Added curve plotting option
MODIFIED: Torsten Schoenfelder, Koeln, Germany 02/10/99
color scale with interpolation of three colors
MODIFIED: Ekkehart Tessmer, University of Hamburg, Germany, 08/22/2007
Added dashing option to curve plotting
lib/App/SeismicUnixGui/developer/Stripped/shapeNcut/susorty.su.main.windowing_sorting_muting view on Meta::CPAN
Creates a common shot su data file for sort visualization
time samples quantity
---------------- ----------
first 25% shot coord
second 25% rec coord
third 25% offset
fourth 25% cmp coord
1. default is shot ordered (hsv2 cmap looks best to me)
susorty | suximage legend=1 units=meters cmap=hsv2
2. sort on cmp (note random order within a cmp)
susorty | susort cdp > junk.su
suximage < junk.su legend=1 units=meters cmap=hsv2
3. sort to cmp and subsort on offset
susorty | susort cdp offset > junk.su
suximage < junk.su legend=1 units=meters cmap=hsv2
Credits:
CWP: Chris Liner 10.09.01
Trace header fields set: ns, dt, sx, gx, offset, cdp, tracl
lib/App/SeismicUnixGui/messages/notes.pl view on Meta::CPAN
=cut
=head2 suphasevel1
=over 12
=item
suwind tmin=0 tmax=99 <
/home/gom/mars/seismics/data/HRKE122//031219/Z/phi_1/su/gom/sp1to3_geom_sort.su |
suphasevel dv=1 fmax=40 fv=1 norm=1 nv=1000 verbose=1 |
suamp mode=real | suximage wclip=1 bclip=15 cmap=hsv2 d2=1 f1=0 gridcolor=blue labelcolor=blue labelfont=Erg14 legend=1 legendfont=times_roman10 lwidth=16 lx=3 mpicks=\/dev\/tty n1tic=1 n2tic=1 perc=100 plotfile=plotfile\.ps style=seismic title=suxi...
suphasevel: dt=0.012800
suwind tmin=0 tmax=99 <
/home/gom/mars/seismics/data/HRKE122//031219/Z/phi_1/su/gom/sp1to3_geom_sort_iTM.su |
suphasevel dv=1 fmax=40 fv=1 norm=1 nv=1000 verbose=1 |
suamp mode=real | suximage wclip=1 bclip=15 cmap=hsv2 d2=1 f1=0 gridcolor=blue labelcolor=blue labelfont=Erg14 legend=1 legendfont=times_roman10 lwidth=16 lx=3 mpicks=\/dev\/tty n1tic=1 n2tic=1 perc=100 plotfile=plotfile\.ps style=seismic title=suxi...
suphasevel: dt=0.012800
=item
a little difference supahsvel on top muted versus non-top muted
at about
0.45 Hz (450 Hz) and >100 m/s
=back
lib/App/SeismicUnixGui/misc/su_select_waveform.pm view on Meta::CPAN
=cut
$suximage->clear();
$suximage->title( $select->{_title} );
$suximage->xlabel('No.traces');
$suximage->ylabel('TWTT\ s');
$suximage->box_width(600);
$suximage->box_height(500);
$suximage->box_X0(975);
$suximage->box_Y0(0);
$suximage->legend($on);
$suximage->absclip( $select->{_absclip} );
$suximage->windowtitle( $select->{_window_title} );
$suximage[1] = $suximage->Step();
=pod
Standard:
1. DEFINE FLOW(S)
=cut
lib/App/SeismicUnixGui/sunix/plot/pscube.pm view on Meta::CPAN
titlefont=Helvetica-Bold font name for title
titlesize=24 font size for title
titlecolor=black color of title
axescolor=black color of axes
gridcolor=black color of grid
legend=0 =1 display the color scale
if equals 1, resize xbox,ybox,width,height
lstyle=vertleft Vertical, axis label on left side
=vertright (Vertical, axis label on right side)
=horibottom (Horizontal, axis label on bottom)
units= unit label for legend
legendfont=times_roman10 font name for title
following are defaults for lstyle=0. They are changed for other lstyles
lwidth=1.2 colorscale (legend) width in inches
lheight=height/3 colorscale (legend) height in inches
lx=1.0 colorscale (legend) x-position in inches
ly=(height-lheight)/2+xybox colorscale (legend) y-position in pixels
lbeg= lmin or wclip-5*perc value at which legend axis begins
lend= lmax or bclip+5*perc value at which legend axis ends
ldnum=0.0 numbered tic interval on legend axis (0.0 for automatic)
lfnum=lmin first numbered tic on legend axis (used if d1num not 0.0)
lntic=1 number of tics per numbered tic on legend axis
lgrid=none grid lines on legend axis - none, dot, dash, or solid
All color specifications may also be made in X Window style Hex format
example: axescolor=#255
Legal font names are:
lib/App/SeismicUnixGui/sunix/plot/pscube.pm view on Meta::CPAN
_grid2 => '',
_grid3 => '',
_gridcolor => '',
_label1 => '',
_label2 => '',
_label3 => '',
_labelfont => '',
_labelsize => '',
_lbeg => '',
_ldnum => '',
_legend => '',
_legendfont => '',
_lend => '',
_lfnum => '',
_lgrid => '',
_lheight => '',
_lntic => '',
_lstyle => '',
_lwidth => '',
_lx => '',
_ly => '',
_n1 => '',
lib/App/SeismicUnixGui/sunix/plot/pscube.pm view on Meta::CPAN
$pscube->{_grid2} = '';
$pscube->{_grid3} = '';
$pscube->{_gridcolor} = '';
$pscube->{_label1} = '';
$pscube->{_label2} = '';
$pscube->{_label3} = '';
$pscube->{_labelfont} = '';
$pscube->{_labelsize} = '';
$pscube->{_lbeg} = '';
$pscube->{_ldnum} = '';
$pscube->{_legend} = '';
$pscube->{_legendfont} = '';
$pscube->{_lend} = '';
$pscube->{_lfnum} = '';
$pscube->{_lgrid} = '';
$pscube->{_lheight} = '';
$pscube->{_lntic} = '';
$pscube->{_lstyle} = '';
$pscube->{_lwidth} = '';
$pscube->{_lx} = '';
$pscube->{_ly} = '';
$pscube->{_n1} = '';
lib/App/SeismicUnixGui/sunix/plot/pscube.pm view on Meta::CPAN
$pscube->{_ldnum} = $ldnum;
$pscube->{_note} = $pscube->{_note}.' ldnum='.$pscube->{_ldnum};
$pscube->{_Step} = $pscube->{_Step}.' ldnum='.$pscube->{_ldnum};
} else {
print("pscube, ldnum, missing ldnum,\n");
}
}
=head2 sub legend
=cut
sub legend {
my ( $self,$legend ) = @_;
if ( $legend ne $empty_string ) {
$pscube->{_legend} = $legend;
$pscube->{_note} = $pscube->{_note}.' legend='.$pscube->{_legend};
$pscube->{_Step} = $pscube->{_Step}.' legend='.$pscube->{_legend};
} else {
print("pscube, legend, missing legend,\n");
}
}
=head2 sub legendfont
=cut
sub legendfont {
my ( $self,$legendfont ) = @_;
if ( $legendfont ne $empty_string ) {
$pscube->{_legendfont} = $legendfont;
$pscube->{_note} = $pscube->{_note}.' legendfont='.$pscube->{_legendfont};
$pscube->{_Step} = $pscube->{_Step}.' legendfont='.$pscube->{_legendfont};
} else {
print("pscube, legendfont, missing legendfont,\n");
}
}
=head2 sub lend
=cut
sub lend {
lib/App/SeismicUnixGui/sunix/plot/psimage.pm view on Meta::CPAN
axeswidth=1 width (in points) of axes
ticwidth=axeswidth width (in points) of tic marks
gridwidth=axeswidth width (in points) of grid lines
style=seismic normal (axis 1 horizontal, axis 2 vertical) or
seismic (axis 1 vertical, axis 2 horizontal)
legend=0 =1 display the color scale
lnice=0 =1 nice legend arrangement
(overrides ybox,lx,width,height parameters)
lstyle=vertleft Vertical, axis label on left side
=vertright (Vertical, axis label on right side)
=horibottom (Horizontal, axis label on bottom)
units= unit label for legend
legendfont=times_roman10 font name for title
following are defaults for lstyle=0. They are changed for other lstyles
lwidth=1.2 colorscale (legend) width in inches
lheight=height/3 colorscale (legend) height in inches
lx=1.0 colorscale (legend) x-position in inches
ly=(height-lheight)/2+xybox colorscale (legend) y-position in pixels
lbeg= lmin or wclip-5*perc value at which legend axis begins
lend= lmax or bclip+5*perc value at which legend axis ends
ldnum=0.0 numbered tic interval on legend axis (0.0 for automatic)
lfnum=lmin first numbered tic on legend axis (used if d1num not 0.0)
lntic=1 number of tics per numbered tic on legend axis
lgrid=none grid lines on legend axis - none, dot, dash, or solid
curve=curve1,curve2,... file(s) containing points to draw curve(s)
npair=n1,n2,n2,... number(s) of pairs in each file
curvecolor=black,.. color of curve(s)
curvewidth=axeswidth width (in points) of curve(s)
lib/App/SeismicUnixGui/sunix/plot/psimage.pm view on Meta::CPAN
MODIFIED: Craig Artley, Colorado School of Mines, 12/16/93
Added color options (Courtesy of Dave Hale, Advance Geophysical).
Modified: Morten Wendell Pedersen, Aarhus University, 23/3-97
Added ticwidth,axeswidth, gridwidth parameters
MODIFIED: Torsten Schoenfelder, Koeln, Germany 006/07/97
colorbar (legend) (as in ximage (by Berend Scheffers, Delft))
MODIFIED: Brian K. Macy, Phillips Petroleum, 01/14/99
Added curve plotting option
MODIFIED: Torsten Schoenfelder, Koeln, Germany 02/10/99
color scale with interpolation of three colors
MODIFIED: Ekkehart Tessmer, University of Hamburg, Germany, 08/22/2007
lib/App/SeismicUnixGui/sunix/plot/psimage.pm view on Meta::CPAN
_gridcolor => '',
_gridwidth => '',
_height => '',
_infile => '',
_label1 => '',
_label2 => '',
_labelfont => '',
_labelsize => '',
_lbeg => '',
_ldnum => '',
_legend => '',
_legendfont => '',
_lend => '',
_lfnum => '',
_lgrid => '',
_lheight => '',
_lnice => '',
_lntic => '',
_lstyle => '',
_lwidth => '',
_lx => '',
_ly => '',
lib/App/SeismicUnixGui/sunix/plot/psimage.pm view on Meta::CPAN
$psimage->{_gridcolor} = '';
$psimage->{_gridwidth} = '';
$psimage->{_height} = '';
$psimage->{_infile} = '';
$psimage->{_label1} = '';
$psimage->{_label2} = '';
$psimage->{_labelfont} = '';
$psimage->{_labelsize} = '';
$psimage->{_lbeg} = '';
$psimage->{_ldnum} = '';
$psimage->{_legend} = '';
$psimage->{_legendfont} = '';
$psimage->{_lend} = '';
$psimage->{_lfnum} = '';
$psimage->{_lgrid} = '';
$psimage->{_lheight} = '';
$psimage->{_lnice} = '';
$psimage->{_lntic} = '';
$psimage->{_lstyle} = '';
$psimage->{_lwidth} = '';
$psimage->{_lx} = '';
$psimage->{_ly} = '';
lib/App/SeismicUnixGui/sunix/plot/psimage.pm view on Meta::CPAN
$psimage->{_ldnum} = $ldnum;
$psimage->{_note} = $psimage->{_note}.' ldnum='.$psimage->{_ldnum};
$psimage->{_Step} = $psimage->{_Step}.' ldnum='.$psimage->{_ldnum};
} else {
print("psimage, ldnum, missing ldnum,\n");
}
}
=head2 sub legend
=cut
sub legend {
my ( $self,$legend ) = @_;
if ( $legend ne $empty_string ) {
$psimage->{_legend} = $legend;
$psimage->{_note} = $psimage->{_note}.' legend='.$psimage->{_legend};
$psimage->{_Step} = $psimage->{_Step}.' legend='.$psimage->{_legend};
} else {
print("psimage, legend, missing legend,\n");
}
}
=head2 sub legendfont
=cut
sub legendfont {
my ( $self,$legendfont ) = @_;
if ( $legendfont ne $empty_string ) {
$psimage->{_legendfont} = $legendfont;
$psimage->{_note} = $psimage->{_note}.' legendfont='.$psimage->{_legendfont};
$psimage->{_Step} = $psimage->{_Step}.' legendfont='.$psimage->{_legendfont};
} else {
print("psimage, legendfont, missing legendfont,\n");
}
}
=head2 sub lend
=cut
sub lend {
lib/App/SeismicUnixGui/sunix/plot/suximage.pm view on Meta::CPAN
bclip=clip data values outside of [bclip,wclip] are clipped
wclip=-clip data values outside of [bclip,wclip] are clipped
balance=0 bclip & wclip individually
=1 set them to the same abs value
if specified via perc (avoids colorbar skew)
cmap=hsv'n' or rgb'm' 'n' is a number from 0 to 13
'm' is a number from 0 to 11
cmap=rgb0 is equal to cmap=gray
cmap=hsv1 is equal to cmap=hue
(compatibility to older versions)
legend=0 =1 display the color scale
units= unit label for legend
legendfont=times_roman10 font name for title
verbose=1 =1 for info printed on stderr (0 for no info)
xbox=50 x in pixels of upper left corner of window
ybox=50 y in pixels of upper left corner of window
wbox=550 width in pixels of window
hbox=700 height in pixels of window
lwidth=16 colorscale (legend) width in pixels
lheight=hbox/3 colorscale (legend) height in pixels
lx=3 colorscale (legend) x-position in pixels
ly=(hbox-lheight)/3 colorscale (legend) y-position in pixels
x1beg=x1min value at which axis 1 begins
x1end=x1max value at which axis 1 ends
d1num=0.0 numbered tic interval on axis 1 (0.0 for automatic)
f1num=x1min first numbered tic on axis 1 (used if d1num not 0.0)
n1tic=1 number of tics per numbered tic on axis 1
grid1=none grid lines on axis 1 - none, dot, dash, or solid
label1= label on axis 1
x2beg=x2min value at which axis 2 begins
x2end=x2max value at which axis 2 ends
d2num=0.0 numbered tic interval on axis 2 (0.0 for automatic)
lib/App/SeismicUnixGui/sunix/plot/suximage.pm view on Meta::CPAN
_grid1 => '',
_grid2 => '',
_gridcolor => '',
_hbox => '',
_infile => '',
_key => '',
_label1 => '',
_label2 => '',
_labelcolor => '',
_labelfont => '',
_legend => '',
_legendfont => '',
_lheight => '',
_lwidth => '',
_lx => '',
_ly => '',
_mpicks => '',
_n1 => '',
_n1tic => '',
_n2 => '',
_n2tic => '',
_npair => '',
lib/App/SeismicUnixGui/sunix/plot/suximage.pm view on Meta::CPAN
$suximage->{_grid1} = '';
$suximage->{_grid2} = '';
$suximage->{_gridcolor} = '';
$suximage->{_hbox} = '';
$suximage->{_infile} = '';
$suximage->{_key} = '';
$suximage->{_label1} = '';
$suximage->{_label2} = '';
$suximage->{_labelcolor} = '';
$suximage->{_labelfont} = '';
$suximage->{_legend} = '';
$suximage->{_legendfont} = '';
$suximage->{_lheight} = '';
$suximage->{_lwidth} = '';
$suximage->{_lx} = '';
$suximage->{_ly} = '';
$suximage->{_mpicks} = '';
$suximage->{_n1} = '';
$suximage->{_n1tic} = '';
$suximage->{_n2} = '';
$suximage->{_n2tic} = '';
$suximage->{_npair} = '';
lib/App/SeismicUnixGui/sunix/plot/suximage.pm view on Meta::CPAN
$suximage->{_note} . ' labelfont=' . $suximage->{_labelfont};
$suximage->{_Step} =
$suximage->{_Step} . ' labelfont=' . $suximage->{_labelfont};
}
else {
print("suximage, labelfont, missing labelfont,\n");
}
}
=head2 sub legend
=cut
sub legend {
my ( $self, $legend ) = @_;
if ( $legend ne $empty_string ) {
$suximage->{_legend} = $legend;
$suximage->{_note} =
$suximage->{_note} . ' legend=' . $suximage->{_legend};
$suximage->{_Step} =
$suximage->{_Step} . ' legend=' . $suximage->{_legend};
}
else {
print("suximage, legend, missing legend,\n");
}
}
=head2 sub legendfont
=cut
sub legendfont {
my ( $self, $legendfont ) = @_;
if ( $legendfont ne $empty_string ) {
$suximage->{_legendfont} = $legendfont;
$suximage->{_note} =
$suximage->{_note} . ' legendfont=' . $suximage->{_legendfont};
$suximage->{_Step} =
$suximage->{_Step} . ' legendfont=' . $suximage->{_legendfont};
}
else {
print("suximage, legendfont, missing legendfont,\n");
}
}
=head2 sub lheight
=cut
sub lheight {
lib/App/SeismicUnixGui/sunix/plot/ximage.pm view on Meta::CPAN
bclip=clip data values outside of [bclip,wclip] are clipped
wclip=-clip data values outside of [bclip,wclip] are clipped
balance=0 bclip & wclip individually
=1 set them to the same abs value
if specified via perc (avoids colorbar skew)
cmap=hsv\'n\' or rgb\'m\' \'n\' is a number from 0 to 13
\'m\' is a number from 0 to 11
cmap=rgb0 is equal to cmap=gray
cmap=hsv1 is equal to cmap=hue
(compatibility to older versions)
legend=0 =1 display the color scale
units= unit label for legend
legendfont=times_roman10 font name for title
verbose=1 =1 for info printed on stderr (0 for no info)
xbox=50 x in pixels of upper left corner of window
ybox=50 y in pixels of upper left corner of window
wbox=550 width in pixels of window
hbox=700 height in pixels of window
lwidth=16 colorscale (legend) width in pixels
lheight=hbox/3 colorscale (legend) height in pixels
lx=3 colorscale (legend) x-position in pixels
ly=(hbox-lheight)/3 colorscale (legend) y-position in pixels
x1beg=x1min value at which axis 1 begins
x1end=x1max value at which axis 1 ends
d1num=0.0 numbered tic interval on axis 1 (0.0 for automatic)
f1num=x1min first numbered tic on axis 1 (used if d1num not 0.0)
n1tic=1 number of tics per numbered tic on axis 1
grid1=none grid lines on axis 1 - none, dot, dash, or solid
label1= label on axis 1
x2beg=x2min value at which axis 2 begins
x2end=x2max value at which axis 2 ends
d2num=0.0 numbered tic interval on axis 2 (0.0 for automatic)
lib/App/SeismicUnixGui/sunix/plot/ximage.pm view on Meta::CPAN
Author: Dave Hale, Colorado School of Mines, 08/09/90
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.
lib/App/SeismicUnixGui/sunix/plot/ximage.pm view on Meta::CPAN
_f2 => '',
_f2num => '',
_grid1 => '',
_grid2 => '',
_gridcolor => '',
_hbox => '',
_label1 => '',
_label2 => '',
_labelcolor => '',
_labelfont => '',
_legend => '',
_legendfont => '',
_lheight => '',
_lwidth => '',
_lx => '',
_ly => '',
_mpicks => '',
_n1 => '',
_n1tic => '',
_n2 => '',
_n2tic => '',
_npair => '',
lib/App/SeismicUnixGui/sunix/plot/ximage.pm view on Meta::CPAN
$ximage->{_f2} = '';
$ximage->{_f2num} = '';
$ximage->{_grid1} = '';
$ximage->{_grid2} = '';
$ximage->{_gridcolor} = '';
$ximage->{_hbox} = '';
$ximage->{_label1} = '';
$ximage->{_label2} = '';
$ximage->{_labelcolor} = '';
$ximage->{_labelfont} = '';
$ximage->{_legend} = '';
$ximage->{_legendfont} = '';
$ximage->{_lheight} = '';
$ximage->{_lwidth} = '';
$ximage->{_lx} = '';
$ximage->{_ly} = '';
$ximage->{_mpicks} = '';
$ximage->{_n1} = '';
$ximage->{_n1tic} = '';
$ximage->{_n2} = '';
$ximage->{_n2tic} = '';
$ximage->{_npair} = '';
lib/App/SeismicUnixGui/sunix/plot/ximage.pm view on Meta::CPAN
$ximage->{_note} . ' labelfont=' . $ximage->{_labelfont};
$ximage->{_Step} =
$ximage->{_Step} . ' labelfont=' . $ximage->{_labelfont};
}
else {
print("ximage, labelfont, missing labelfont,\n");
}
}
=head2 sub legend
=cut
sub legend {
my ( $self, $legend ) = @_;
if ( $legend ne $empty_string ) {
$ximage->{_legend} = $legend;
$ximage->{_note} = $ximage->{_note} . ' legend=' . $ximage->{_legend};
$ximage->{_Step} = $ximage->{_Step} . ' legend=' . $ximage->{_legend};
}
else {
print("ximage, legend, missing legend,\n");
}
}
=head2 sub legendfont
=cut
sub legendfont {
my ( $self, $legendfont ) = @_;
if ( $legendfont ne $empty_string ) {
$ximage->{_legendfont} = $legendfont;
$ximage->{_note} =
$ximage->{_note} . ' legendfont=' . $ximage->{_legendfont};
$ximage->{_Step} =
$ximage->{_Step} . ' legendfont=' . $ximage->{_legendfont};
}
else {
print("ximage, legendfont, missing legendfont,\n");
}
}
=head2 sub lheight
=cut
sub lheight {
( run in 1.443 second using v1.01-cache-2.11-cpan-49f99fa48dc )