view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/big_streams/iApply_bottom_mute.pm  view on Meta::CPAN

 DISPLAY DATA (SUXWIGB) 

=cut

	$base_caption =
		$iApply_bottom_mute->{_file_in}
	  . quotemeta(' f=')
	  . $iApply_bottom_mute->{_freq};
	$windowtitle =
		$iApply_bottom_mute->{_gather_header}
	  . quotemeta(' = ')
	  . $iApply_bottom_mute->{_gather_num};

	$suxwigb->clear();
	$suxwigb->box_width(500);
	$suxwigb->box_height(700);
	$suxwigb->box_X0(700);
	$suxwigb->box_Y0(200);
	$suxwigb->title($base_caption);
	$suxwigb->windowtitle($windowtitle);
	$suxwigb->ylabel( quotemeta('TWTTs') );
	$suxwigb->xlabel( $iApply_bottom_mute->{_offset_type} );
	$suxwigb->clip('1.5');    #clip/perc set manually
	$suxwigb->verbose($off);
	$suxwigb[1] = $suxwigb->Step();

=head2
 
  DEFINE FLOW(S)

=cut

	@items = (
		$suwind[1],   $in,        $iApply_bottom_mute->{_inbound},
		$to,          $suwind[2], $to,
		$sumute[1],   $to,        $sufilter[1],
		$to,          $sugain[2], $to,
		$suximage[1], $go
	);

	$flow[1] = $run->modules( \@items );

	#for suxwigb
	@items = (
		$suwind[1],
		$in, $iApply_bottom_mute->{_inbound},
		$to, $suwind[2],
		$to, $sumute[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)TO SCREEN AND FILE

=cut

	#    print "iApply_bottom_mute,$flow[1]\n";

	#for suximage
	#print("iApply_bottom_mute:$flow[1]\n");
	$log->file( $flow[1] );

	#for suxwigb
	#	print "iApply_bottom_mute: $flow[2]\n";

}    # end calcNdisplay subroutine

1;