App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/sugprfb.su.main.windowing_sorting_muting \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suhelp.su.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/sukeyword.su.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suname.su.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suput.su.main.supromax \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/t.cwp.main \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/this_year.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/time_now.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/todays_date.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/unglitch.su.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatedoc.par.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatedocall.par.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatehead.par.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/upfort.cwp.main \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/usernames.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/varlist.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/wallsec.cwputils \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/walltime.cwputils \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/weekday.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/xrects.Xtcwp.main \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/zap.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/model/addrvl3d.par.main \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suhelp.su.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suhelp.su.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/sukeyword.su.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/sukeyword.su.shell'
$(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suname.su.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suname.su.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suput.su.main.supromax' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suput.su.main.supromax' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/t.cwp.main' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/t.cwp.main' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/this_year.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/this_year.cwp.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/time_now.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/time_now.cwp.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/todays_date.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/todays_date.cwp.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/unglitch.su.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/unglitch.su.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatedoc.par.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatedoc.par.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatedocall.par.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatedocall.par.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatehead.par.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatehead.par.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/upfort.cwp.main' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/upfort.cwp.main' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/usernames.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/usernames.cwp.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/varlist.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/varlist.cwp.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/wallsec.cwputils' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/wallsec.cwputils' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/walltime.cwputils' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/walltime.cwputils' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/weekday.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/weekday.cwp.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/xrects.Xtcwp.main' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/xrects.Xtcwp.main' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/zap.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/zap.cwp.shell'
$(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \
Makefile.old view on Meta::CPAN
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/sugprfb.su.main.windowing_sorting_muting \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suhelp.su.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/sukeyword.su.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suname.su.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suput.su.main.supromax \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/t.cwp.main \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/this_year.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/time_now.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/todays_date.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/unglitch.su.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatedoc.par.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatedocall.par.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatehead.par.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/upfort.cwp.main \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/usernames.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/varlist.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/wallsec.cwputils \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/walltime.cwputils \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/weekday.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/xrects.Xtcwp.main \
lib/App/SeismicUnixGui/developer/Stripped/misc/bck/zap.cwp.shell \
lib/App/SeismicUnixGui/developer/Stripped/model/addrvl3d.par.main \
Makefile.old view on Meta::CPAN
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/sugprfb.su.main.windowing_sorting_muting' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/sugprfb.su.main.windowing_sorting_muting' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suhelp.su.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suhelp.su.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/sukeyword.su.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/sukeyword.su.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suname.su.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suname.su.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suput.su.main.supromax' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/suput.su.main.supromax' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/t.cwp.main' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/t.cwp.main' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/this_year.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/this_year.cwp.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/time_now.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/time_now.cwp.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/todays_date.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/todays_date.cwp.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/unglitch.su.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/unglitch.su.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatedoc.par.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatedoc.par.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatedocall.par.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatedocall.par.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatehead.par.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/updatehead.par.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/upfort.cwp.main' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/upfort.cwp.main' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/usernames.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/usernames.cwp.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/varlist.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/varlist.cwp.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/wallsec.cwputils' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/wallsec.cwputils'
$(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/walltime.cwputils' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/walltime.cwputils' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/weekday.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/weekday.cwp.shell' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/xrects.Xtcwp.main' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/xrects.Xtcwp.main' \
'lib/App/SeismicUnixGui/developer/Stripped/misc/bck/zap.cwp.shell' 'blib/lib/App/SeismicUnixGui/developer/Stripped/misc/bck/zap.cwp.shell' \
lib/App/SeismicUnixGui/big_streams/iApply_bottom_mute.pm view on Meta::CPAN
$to, $suxwigb[1],
$go
);
$flow[2] = $run->modules( \@items );
=head2
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
#for suximage
$run->flow( \$flow[1] );
#for suxwigb
$run->flow( \$flow[2] );
=head2
lib/App/SeismicUnixGui/big_streams/iApply_mute.pm view on Meta::CPAN
$sumute[1], $in, $iApply_mute->{_inbound},
$out, $iApply_mute->{_outbound}, $go
);
$flow[2] = $run->modules( \@items );
=head2
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
$run->flow( \$flow[1] );
$run->flow( \$flow[2] );
=head2
LOG FLOW(S)TO SCREEN AND FILE
lib/App/SeismicUnixGui/big_streams/iApply_top_mute.pm view on Meta::CPAN
$to, $suxwigb[1],
$go
);
$flow[2] = $run->modules( \@items );
=head2
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
#for suximage
$run->flow( \$flow[1] );
#for suxwigb
$run->flow( \$flow[2] );
=head2
lib/App/SeismicUnixGui/big_streams/iBottomMute.pl view on Meta::CPAN
=head2 SYNOPSIS
PROGRAM NAME: iBottomMute (interactive Bottom Mute)
AUTHOR: Juan Lorenzo
=head2 CHANGES and their DATES
DATE: April 2 2009
September 2015 :
updated to oop
introduced Tk widgets
Made all event-driven
July 27 2016
June 12 2017 adapted iTopMute and its programs
to create this iBottom Mute
NEW: read iBottom_Mute3.config text file
OLD: import perl variables from
*.pm configuration file xi
within a local libAll
lib/App/SeismicUnixGui/big_streams/iBottomMutePicks2par.pm view on Meta::CPAN
$mkparfile[1], $in, $iBottomMutePicks2par->{TX_inbound},
$out, $iBottomMutePicks2par->{TX_outbound}
);
$flow[1] = $run->modules( \@items );
=pod
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
$run->flow( \$flow[1] );
=pod
LOG FLOW(S)TO SCREEN AND FILE
=cut
lib/App/SeismicUnixGui/big_streams/iPicks2par.pm view on Meta::CPAN
$to, $mkparfile[1], $out, $iPicks2par->{_TX_outbound}
);
$flow[1] = $run->modules( \@items );
=head2
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
$run->flow( \$flow[1] );
=pod
LOG FLOW(S)TO SCREEN AND FILE
=cut
lib/App/SeismicUnixGui/big_streams/iPicks2sort.pm view on Meta::CPAN
$out, $iPicks2sort->{_TX_outbound}
);
$flow[1] = $run->modules( \@items );
=head2
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
$run->flow( \$flow[1] );
=pod
LOG FLOW(S)TO SCREEN AND FILE
=cut
lib/App/SeismicUnixGui/big_streams/iSave_bottom_mute_picks.pm view on Meta::CPAN
Examples
=head2 SEISMIC UNIX NOTES
=head4 CHANGES and their DATES
V1 May 5 2009
V2. change mute parameters to top mute parameters
Aug 12, 2011
V3.0 September 2015 :
updated to oop
introduced Tk widgets
Made all event-driven
June 12 2017 adapted from iSave_top_mute_picks.pm
=head2 STEPS
use the local library of the user
bring is user variables from a local file
create instances of the needed subroutines
lib/App/SeismicUnixGui/big_streams/iSave_top_mute_picks.pm view on Meta::CPAN
Examples
=head2 SEISMIC UNIX NOTES
=head4 CHANGES and their DATES
V1 May 5 2009
V2. change top mute parameters to toptom mute parameters
Aug 12, 2011
V3.0 September 2015 :
updated to oop
introduced Tk widgets
Made all event-driven
=head2 STEPS
use the local library of the user
bring is user variables from a local file
create instances of the needed subroutines
=cut
lib/App/SeismicUnixGui/big_streams/iSelect_tr_Sumute.pm view on Meta::CPAN
=cut
@items = ( $suxwigb[1], $in, $iSelect_tr_Sumute->{_inbound}, $go );
$flow[1] = $run->modules( \@items );
=head2 RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
$run->flow( \$flow[1] );
=head2 LOG FLOW(S)
TO SCREEN AND FILE
=cut
lib/App/SeismicUnixGui/big_streams/iSelect_tr_Sumute_bottom.pm view on Meta::CPAN
$suwind[1], $in, $iSelect_tr_Sumute_bottom->{_inbound},
$to, $suwind[2], $to, $sufilter[1], $to, $sugain[2], $to, $suxwigb[1],
$go
);
$flow[2] = $run->modules( \@items );
=head2 RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
#for suximage
$run->flow( \$flow[1] );
#for suxwigb
$run->flow( \$flow[2] );
=head2 LOG FLOW(S)
lib/App/SeismicUnixGui/big_streams/iSelect_tr_Sumute_top.pm view on Meta::CPAN
$suwind[1], $in, $iSelect_tr_Sumute_top->{_inbound},
$to, $suwind[2], $to, $sufilter[1], $to, $sugain[2], $to,
$suxwigb[1], $go
);
$flow[2] = $run->modules( \@items );
=head2 RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
#for suximage
$run->flow( \$flow[1] );
#for suxwigb
$run->flow( \$flow[2] );
=head2 LOG FLOW(S)
lib/App/SeismicUnixGui/big_streams/iSelect_xt.pm view on Meta::CPAN
else {
# print("2. iSelect_xt, purpose:---$iSelect_xt->{_purpose}---\n");
# print("2. iSelect_xt, error_freq:---$iSelect_xt->{_error_freq}---\n");
# print("2. iSelect_xt, missing purpose and/or error in filter frequencies");
}
=head2 RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
# for suxwigb
$run->flow( \$flow[1] );
# for suximage
$run->flow( \$flow[2] );
=head2 LOG FLOW(S)
lib/App/SeismicUnixGui/big_streams/iShowNselect_picks.pm view on Meta::CPAN
print("2. iShowNselect_picks, error_freq:---$iShowNselect_picks->{_error_freq}---\n");
# print("2. iShowNselect_picks, unexpected purpose\n");
}
=head2
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
# for suxwigb
$run->flow( \$flow[1] );
# for suximage
$run->flow( \$flow[2] );
=head2
lib/App/SeismicUnixGui/big_streams/iShow_picks.pm view on Meta::CPAN
$sugain[1], $to, $suximage[1], $go
);
$flow[2] = $run->modules( \@items );
=head2
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
# for suxwigb
$run->flow( \$flow[1] );
# for suximage
$run->flow( \$flow[2] );
=head2
lib/App/SeismicUnixGui/big_streams/iSunmo.pm view on Meta::CPAN
$sugain[1], $to, $sugain[2], $to,
$suximage[1], $go
);
$flow[1] = $run->modules( \@items );
=head2
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
$run->flow( \$flow[1] );
=head2
LOG FLOW(S)TO SCREEN AND FILE
=cut
lib/App/SeismicUnixGui/big_streams/iSuvelan.pm view on Meta::CPAN
$sufilter[1], $to, $suvelan[1], $to,
$suximage[1], $go
);
$flow[2] = $run->modules( \@items );
}
=head2
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
$run->flow( \$flow[1] );
$run->flow( \$flow[2] );
=head2 LOG FLOW(S)
TO SCREEN AND FILE
lib/App/SeismicUnixGui/big_streams/iTopMute.pl view on Meta::CPAN
=head2 SYNOPSIS
PROGRAM NAME: iTopMute (interactive Top Mute)
AUTHOR: Juan Lorenzo
=head2 CHANGES and their DATES
DATE: April 2 2009
September 2015 :
updated to oop
introduced Tk widgets
Made all event-driven
July 27 2016
NEW: read iTop_Mute3.config text file
OLD: import perl variables from
*.pm configuration file xi
within ta local libAll
subdirectory
binheader is used for everything serious
lib/App/SeismicUnixGui/big_streams/iTopMutePicks2par.pm view on Meta::CPAN
$mkparfile[1], $in, $iTopMutePicks2par->{TX_inbound},
$out, $iTopMutePicks2par->{TX_outbound}
);
$flow[1] = $run->modules( \@items );
=pod
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
=cut
$run->flow( \$flow[1] );
=pod
LOG FLOW(S)TO SCREEN AND FILE
=cut
lib/App/SeismicUnixGui/big_streams/iVA.pl view on Meta::CPAN
=head1 DOCUMENTATION
=head2 SYNOPSIS
PROGRAM NAME: iVA
AUTHOR: Juan Lorenzo
DATE: April 2 2009
October 2014
July 2015 updated to oop
August 2015 introduced Tk widgets
August 16 made all event-driven
Aug 18 2016 made configuration files simple
DESCRIPTION: Interactively test NMO in data
Verstion 2.0 MainWIndow in subroutine
leads to multiple segementation faults
when MainWindow is destroyed > 1
Version: 2.1 is fully event driven
lib/App/SeismicUnixGui/big_streams/iVelocityAnalysis.pl view on Meta::CPAN
=head1 DOCUMENTATION
=head2 SYNOPSIS
PROGRAM NAME: iVA
AUTHOR: Juan Lorenzo
DATE: April 2 2009
October 2014
July 2015 updated to oop
August 2015 introduced Tk widgets
August 16 made all event-driven
Aug 18 2016 made configuration files simple
DESCRIPTION: Interactively test NMO in data
Verstion 2.0 MainWIndow in subroutine
leads to multiple segementation faults
when MainWindow is destroyed > 1
Version: 2.1 is fully event driven
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
my $lower_layerLabel = $mw->Label(
-font => $arial_18,
-justify => 'center',
-width => $var_L_SU->{_4_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$lower_layer,
);
=head2 lower_layerLabel widget will be updated
in immodpg
=cut
$immodpg_Tk->{_lower_layerLabel} = $lower_layerLabel;
=head2 Entry _thickness_increment_mEntryEntry
=cut
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
&& $immodpg->{_layer_current} > 0
&& $immodpg->{_Vbot_upper_layer_current} !=
$immodpg->{_Vbot_upper_layer_prior} )
{
# CASE Vbot_upper_layer changed
$immodpg->{_isVbot_upper_layer_changed_in_gui} = $yes;
$immodpg->{_Vbot_upper_layer_prior} =
$immodpg->{_Vbot_upper_layer_current};
# print("immodpg, _updateVbot_upper_layer, updated to $immodpg->{_Vbot_upper_layer_current}\n");
# print("immodpg,_updateVbot_upper_layer,Vbot_upper_layer_current=$immodpg->{_Vbot_upper_layer_current}\n");
# print("immodpg,_updateVbot_upper_layer,Vbot_upper_layer_prior=$immodpg->{_Vbot_upper_layer_prior}\n");
_set_control( 'Vbot_upper_layer',
$immodpg->{_Vbot_upper_layer_current} );
$immodpg->{_Vbot_upper_layer_current} =
_get_control('Vbot_upper_layer');
_setVp_dz( 'Vbot_upper_layer', $immodpg->{_Vbot_upper_layer_current} );
return ();
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my ($self) = @_;
if ( looks_like_number( $immodpg->{_Vincrement_current} )
&& $immodpg->{_Vincrement_current} != $immodpg->{_Vincrement_prior} )
{
# CASE Vincrement changed
$immodpg->{_Vincrement_current} = $immodpg->{_Vincrement_current};
$immodpg->{_isVincrement_changed_in_gui} = $yes;
# print("immodpg, _updateVincrement, updated to $immodpg->{_Vincrement_current}\n");
# print("immodpg,_updateVincrement,Vincrement_current=$immodpg->{_Vincrement_current}\n");
# print("immodpg,_updateVincrement,Vincrement_prior=$immodpg->{_Vincrement_prior}\n");
return ();
}
elsif ( $immodpg->{_Vincrement_current} == $immodpg->{_Vincrement_prior} ) {
# CASE Vincrement is unchanged
# print("immodpg, _updateVincrement, unchanged\n");
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my ($self) = @_;
if ( looks_like_number( $immodpg->{_Vtop_current} )
&& $immodpg->{_Vtop_current} != $immodpg->{_Vtop_prior} )
{
# CASE Vtop changed
$immodpg->{_isVtop_changed_in_gui} = $yes;
$immodpg->{_Vtop_prior} = $immodpg->{_Vtop_current};
# print("immodpg, _updateVtop, updated to $immodpg->{_Vtop_current}\n");
# print("immodpg,_updateVtop,Vtop_current=$immodpg->{_Vtop_current}\n");
# print("immodpg,_updateVtop,Vtop_prior=$immodpg->{_Vtop_prior}\n");
_set_control( 'Vtop', $immodpg->{_Vtop_current} );
$immodpg->{_Vtop_current} = _get_control('Vtop');
_setVp_dz( 'Vtop', $immodpg->{_Vtop_current} );
return ();
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
&& $immodpg->{_VbotNtop_factor_current} !=
$immodpg->{_VbotNtop_factor_prior} )
{
# CASE VbotNtop_factor changed
# $immodpg->{_VbotNtop_factor_current} = $immodpg->{_VbotNtop_factor_current};
_set_control( 'VbotNtop_factor', $immodpg->{_VbotNtop_factor_current} );
$immodpg->{_VbotNtop_factor_current} = _get_control('VbotNtop_factor');
$immodpg->{_isVbotNtop_factor_changed_in_gui} = $yes;
# print("immodpg, _updateVbotNtop_factor, updated to $immodpg->{_VbotNtop_factor_current}\n");
# print("immodpg,_updateVbotNtop_factor,VbotNtop_factor_current=$immodpg->{_VbotNtop_factor_current}\n");
# print("immodpg,_updateVbotNtop_factor,VbotNtop_factor_prior=$immodpg->{_VbotNtop_factor_prior}\n");
return ();
}
elsif ( $immodpg->{_VbotNtop_factor_current} ==
$immodpg->{_VbotNtop_factor_prior} )
{
# CASE VbotNtop_factor is unchanged
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
# conveniently short variable names
my $Vtop_current = $immodpg->{_Vtop_current};
my $Vbot_current = $immodpg->{_Vbot_current};
$immodpg->{_VtopEntry}->delete( 0, 'end' );
$immodpg->{_VtopEntry}->insert( 0, $Vtop_current );
$immodpg->{_VbotEntry}->delete( 0, 'end' );
$immodpg->{_VbotEntry}->insert( 0, $Vbot_current );
# print("immodpg, _updateVbotNtop_multiply, updated to $immodpg->{_VbotNtop_multiply_current}\n");
# print("immodpg,_updateVbotNtop_multiply,VbotNtop_multiply_current=$immodpg->{_VbotNtop_multiply_current}\n");
# print("immodpg,_updateVbotNtop_multiply,VbotNtop_multiply_prior=$immodpg->{_VbotNtop_multiply_prior}\n");
# _checkVbot(); #todo
_updateVbot();
# _checkVtop(); #todo
_updateVtop();
}
else {
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my ($self) = @_;
if ( looks_like_number( $immodpg->{_clip4plot_current} )
&& $immodpg->{_clip4plot_current} != $immodpg->{_clip4plot_prior} )
{
# CASE clip changed
$immodpg->{_clip4plot_current} = $immodpg->{_clip4plot_current};
$immodpg->{_is_clip_changed_in_gui} = $yes;
# print("immodpg, _update_clip, updated to $immodpg->{_clip4plot_current}\n");
# print("immodpg,_update_clip,clip4plot_current=$immodpg->{_clip4plot_current}\n");
# print("immodpg,_update_clip,clip4plot_prior=$immodpg->{_clip4plot_prior}\n");
return ();
}
elsif ( $immodpg->{_clip4plot_current} == $immodpg->{_clip4plot_prior} ) {
# CASE clip4plot is unchanged
# print("immodpg, _update_clip, unchanged\n");
$immodpg->{_is_clip_changed_in_gui} = $no;
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my ($self) = @_;
if ( looks_like_number( $immodpg->{_thickness_m_current} )
&& $immodpg->{_thickness_m_current} != $immodpg->{_thickness_m_prior} )
{
# CASE _thickness_m changed
$immodpg->{_is_thickness_m_changed_in_gui} = $yes;
# print("immodpg, _update_thickness_m, updated to $immodpg->{_thickness_m_current}\n");
# print("immodpg,_update_thickness_m,_thickness_m_current=$immodpg->{_thickness_m_current}\n");
# print("immodpg,_update_thickness_m,_thickness_m_prior=$immodpg->{_thickness_m_prior}\n");
_set_control( 'thickness_m', $immodpg->{_thickness_m_current} );
$immodpg->{_thickness_m_current} = _get_control('thickness_m');
_setVp_dz( 'thickness_m', $immodpg->{_thickness_m_current} );
return ();
}
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
if ( looks_like_number( $immodpg->{_thickness_increment_m_current} )
&& $immodpg->{_thickness_increment_m_current} !=
$immodpg->{_thickness_increment_m_prior} )
{
# CASE thickness changed
$immodpg->{_thickness_increment_m_prior} =
$immodpg->{_thickness_increment_m_current};
$immodpg->{_is_layer_changed_in_gui} = $yes;
# print("immodpg, _update_thickness_increment_m_in_gui, updated to $immodpg->{_thickness_increment_m_current}\n");
# print("immodpg,_update_thickness_increment_m_in_gui,thickness_increment_m_current=$immodpg->{_thickness_increment_m_current}\n");
# print("immodpg,_update_thickness_increment_m_in_gui,thickness_increment_m_prior=$immodpg->{_thickness_increment_m_prior}\n");
return ();
}
elsif ( $immodpg->{_thickness_increment_m_current} ==
$immodpg->{_thickness_increment_m_prior} )
{
# CASE thickness_increment_m is unchanged
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
else {
print("immodpg, get_control_layer, unexpected layer number\n");
$result = $empty_string;
}
}
elsif ( length( $immodpg->{_control_layer_external} ) == 0 ) {
$result = 1;
# print("CASE 2immodpg, get_control_layer, empty string layer updated to $result\n");
}
else {
print("immodpg, get_control_layer, unexpected value\n");
}
return ($result);
}
=head2 sub get_max_index
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
return ();
}
=head2 sub setVbot
When you enter or leave
check what the current Vbot value is
compared to former Vbot values.
Vtop value is updated for immodpg.for
through a message in file= "Vbot"
=cut
sub setVbot {
my ($self) = @_;
if ( length( $immodpg->{_VbotEntry} ) ) {
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
else {
}
}
=head2 sub setVbot_upper_layer
When you enter or leave
check what the current Vbot_upper_layer value is
compared to former Vbot_upper_layer values
Vtop value is updated in immodpg.for
through a message in file= "Vbot_lower"
(&_setVbot_upper_layer)
=cut
sub setVbot_upper_layer {
my ($self) = @_;
# for convenience
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
}
}
=head2 sub setVtop
When you enter or leave,
check what the current Vtop value is
compared to former Vtop values
Vtop value is updated in immodpg.for
through a message in file= "Vtop"
(&_setVtop)
=cut
sub setVtop {
my ($self) = @_;
if ( length( $immodpg->{_VtopEntry} ) ) {
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
print("immodpg, setVtop, _Vtop value missing\n");
print("immodpg, setVtop, Vtop=$immodpg->{_Vtop}\n");
}
}
=head2 sub setVtop_lower_layer
When you enter or leave
check what the current Vtop_lower_layer value is
compared to former Vtop_lower_layer values
Vtop value is updated in immodpg.for
through a message in file= "Vtop_lower_layer"
(&_setVtop_lower_layer)
=cut
sub setVtop_lower_layer {
my ($self) = @_;
my $newVtop_lower_layer;
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
print("immodpg, sscale, missing sscale,\n");
}
}
=head2 sub set_thickness_m
When you enter or leave,
check what the current thickness_m value is
compared to former thickness_m values
thickness_m value is updated in immodpg.for
through a message in file="thickness_m"
($_set_thickness_m)
=cut
sub set_thickness_m {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_thickness_m_current} ) ) {
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
print(
"immodpg, set_thickness_m, thickness_m=$immodpg->{_thickness_m}\n");
}
}
=head2 sub set_thickness_increment_m
When you enter or leave
check what the current thickness_increment_m value is
compared to former thickness_increment_m values
thickness_increment_m value is updated in immodpg.for
through a message in file= "thickness_increment_m"
(&_set_thickness_increment_m)
=cut
sub set_thickness_increment_m {
my ($self) = @_;
# print("immodpg, set_thickness_increment_m, self, $self\n");
lib/App/SeismicUnixGui/developer/Stripped/data/dt1tosu.su.main.data_conversion view on Meta::CPAN
This program has not been tested on DEC, some modification of the
byte swapping routines may be required.
Credits:
CWP: John Stockwell, Jan 1994 Based on a code "sugpr" by
UTULSA: Chris Liner & Bill Underwood (Dec93)
modifications permit S & S dt1 header information to be transferred
directly to SU header
March 2012: CWP John Stockwell updated for the revised
S&S DT1, which they still call "DT1" though it is different.
Trace header fields set: ns, tracl, tracr, dt, delrt, trid,
hour, minute, second
Reference: Sensors & Software pulseEKKO and Noggin^plus Data File
Formats
Publication of:
Sensors & Software: suburface imaging solutions
1091 Brevik Place
lib/App/SeismicUnixGui/developer/Stripped/filter/succfilt.su.main.filters view on Meta::CPAN
padd=25 FFT padding in percentage
Notes:
This program uses "get_gather" and "put_gather" so requires that
the data be sorted into ensembles designated by "key", with the ntr
field set to the number of traces in each respective ensemble.
Example:
susort ep offset < data.su > datasorted.su
suputgthr dir=Data verbose=1 < datasorted.su
sugetgthr dir=Data verbose=1 > dataupdated.su
succfilt < dataupdated.su > ccfiltdata.su
(Work in progress, editing required)
Credits:
Potash Corporation: Balazs Nemeth, Saskatoon Canada. c. 2008
lib/App/SeismicUnixGui/developer/Stripped/filter/sulfaf.su.main.filters view on Meta::CPAN
where a trace mix is performed in the specifed frequency range
as Mix = ve l/(freq*dx)
This program uses "get_gather" and "put_gather" so requires that
the data be sorted into ensembles designated by "key", with the ntr
field set to the number of traces in each respective ensemble.
Example:
susort ep offset < data.su > datasorted.su
suputgthr dir=Data verbose=1 < datasorted.su
sugetgthr dir=Data verbose=1 > dataupdated.su
sulfaf < dataupdated.su > ccfiltdata.su
(Work in progress, editing required)
define LOOKFAC 1 /* Look ahead factor for npfaro
define PFA_MAX 720720 /* Largest allowed nfft */
define PIP2 PI/2.0 /* IP/2 */
int
main( int argc, char *argv[] )
{
lib/App/SeismicUnixGui/developer/Stripped/par/velpert.par.main view on Meta::CPAN
Notes:
1. This program is part of Zhenyue Liu's velocity analysis technique.
The input dzdv values are computed using the program dzdv.
2. For given depths, using moff smaller than noff may avoid poor
values of dz/dv at far offsets. However, a too small moff used
will the sensitivity of velocity error to the imaged depth.
3. Outfile contains three parts:
dlambda correction of the velocity paramter. dlambda plus
the initial parameter (used in migration) will be
the updated one.
deviation to measure how close imaged depths are to each other
in CIGs. Old deviation corresponds to the initial
parameter; new deviation corresponds to the updated one.
sensitivity to predict how sensitive the error in the estimated
parameter is to an error in the measurement of imaged
depths.
error of parameter <= sensitivity * error of depth.
Author: Zhenyue Liu, 12/29/93, Colorado School of Mines
lib/App/SeismicUnixGui/developer/Stripped/statsMath/suinterp.su.main.interp_extrap view on Meta::CPAN
steep dips. Only one dip is assumed at each time sample between each pair
of input traces.
The key assumption used here is that the low frequency data are unaliased
and can be used for event tracking. Those dip picks are used to interpolate
the original full-bandwidth data, giving some measure of interpolation
at higher frequencies which otherwise would be aliased. Using iopt equal
to 1 allows you to visually check whether the low-pass picking model is
aliased.
Trace headers for interpolated traces are not updated correctly.
The output header for an interpolated traces equals that for the preceding
trace in the original input data. The original input traces are passed
through this module without modification.
The place this code is most likely to fail is on the first breaks.
Example run: suplane | suinterp | suxwigb &
( run in 0.512 second using v1.01-cache-2.11-cpan-05444aca049 )