view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/big_streams/Sudipfilt.pl  view on Meta::CPAN

$suxwigb->absclip( quotemeta(25) );
$suxwigb->xcur( quotemeta(3) );
$suxwigb->va( quotemeta(1) );
$suxwigb->num_minor_ticks_betw_distance_ticks( quotemeta(2) );
$suxwigb->num_minor_ticks_betw_time_ticks( quotemeta(3) );
$suxwigb[1] = $suxwigb->Step();

#$suxwigb-> wigclip(quotemeta(1));

=head2 DISPLAY DATA as wiggles

  Set parameters
  

=cut

$suxwigb->clear();
$suxwigb->title( quotemeta($sufile_in) );
$suxwigb->windowtitle( quotemeta('dip-filtered') );
$suxwigb->xlabel( quotemeta('trace No.') );
$suxwigb->ylabel( quotemeta('# samples') );
$suxwigb->box_width( quotemeta(300) );
$suxwigb->box_height( quotemeta(370) );
$suxwigb->box_X0( quotemeta(370) );
$suxwigb->box_Y0( quotemeta(440) );
$suxwigb->dt( quotemeta(1) );
$suxwigb->dx( quotemeta(1) );
$suxwigb->first_time_sample_value( quotemeta(1) );
$suxwigb->first_distance_sample_value( quotemeta(1) );
$suxwigb->absclip( quotemeta(30) );
$suxwigb->xcur( quotemeta(3) );
$suxwigb->va( quotemeta(1) );
$suxwigb->num_minor_ticks_betw_distance_ticks( quotemeta(1) );
$suxwigb->x_tick_increment( quotemeta(20) );
$suxwigb[5] = $suxwigb->Step();

=head2 DISPLAY DATA as IMAGE

  Set parameters
  Top-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(0) );
$suximage->tstart_s( quotemeta(.5) );
$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

  Set parameters
  Top-right image

=cut

$suximage->clear();
$suximage->title( quotemeta($sufile_in) );
$suximage->xlabel( quotemeta('trace No.') );
$suximage->ylabel( quotemeta('time s') );
$suximage->box_width( quotemeta(300) );
$suximage->box_height( quotemeta(370) );
$suximage->box_X0( quotemeta(670) );
$suximage->box_Y0( quotemeta(0) );
$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') );
$suximage->xlabel( quotemeta('k (1/m) dx=1 Nk=0.5') );
$suximage->hiclip( quotemeta(1000) );
$suximage->loclip( quotemeta(0) );
$suximage->cmap( quotemeta('hsv2') );
$suximage->windowtitle( quotemeta('dip-filtered') );
$suximage[4] = $suximage->Step();

=head2 DISPLAY DATA as IMAGE

  Set parameters
  Bottom-right image

=cut

$suximage->clear();
$suximage->title( quotemeta($sufile_in) );
$suximage->xlabel( quotemeta('trace No.') );
$suximage->ylabel( quotemeta('time (s)') );
$suximage->box_width( quotemeta(300) );
$suximage->box_height( quotemeta(370) );
$suximage->box_X0( quotemeta(670) );
$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
  bottom-left image
  bottom-middle plot
  bottom-right image
  output filtered data set

=cut

if ( length $skip_suinterp and $skip_suinterp eq $yes ) {

	# top left
	@items = (
		$suwind[1], $in,          $inbound[1], $to,          $suwind[2], $to,          $sugain[1],
		$to,        $sufilter[1], $to,         $suspecfk[1], $to,        $suximage[1], $go
	);
	$flow[1] = $run->modules( \@items );

	# top middle
	@items = (
		$suwind[1], $in, $inbound[1],  $to, $suwind[2],  $to,
		$sugain[1], $to, $sufilter[1], $to, $suxwigb[1], $go
	);
	$flow[2] = $run->modules( \@items );

	# top right plot
	@items = (
		$suwind[1], $in, $inbound[1],  $to, $suwind[2],   $to,
		$sugain[1], $to, $sufilter[1], $to, $suximage[2], $go
	);
	$flow[3] = $run->modules( \@items );

	# bottom-left
	@items = (
		$suwind[1],      $in, $inbound[1],  $to, $suwind[2],      $to,
		$sugain[1],      $to, $sufilter[1], $to, $sudipfilter[1], $to,
		$sudipfilter[2], $to, $suspecfk[1], $to, $suximage[4],    $go
	);
	$flow[4] = $run->modules( \@items );

	# bottom-middle
	@items = (
		$suwind[1],      $in, $inbound[1],  $to, $suwind[2],      $to,
		$sugain[1],      $to, $sufilter[1], $to, $sudipfilter[1], $to,
		$sudipfilter[2], $to, $sugain[1],   $to, $suxwigb[5],     $go
	);
	$flow[5] = $run->modules( \@items );

	# bottom-right image fk filter
	@items = (
		$suwind[1],      $in,
		$inbound[1],     $to,