view release on metacpan or  search on metacpan

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

	$suxwigb->box_height( quotemeta(600) );
	$suxwigb->box_X0( quotemeta(750) );
	$suxwigb->box_Y0( quotemeta(150) );

	#$suxwigb->f2(quotemeta(60));
	$suxwigb->title( quotemeta( $base_caption[2] ) );
	$suxwigb->windowtitle( $windowtitle[2] );
	$suxwigb->ylabel( quotemeta('TWTT s') );
	$suxwigb->xlabel( $iSelect_tr_Sumute_bottom->{_offset_type} );
	$suxwigb->clip('1.5');    # clip/perc set manually
	$suxwigb->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};
		$suxwigb->picks(
			$DATA_SEISMIC_TXT . '/' . $iSelect_tr_Sumute_bottom->{_TX_outbound} );

# print("iSelect_tr_Sumute_bottom, suxwigb, writing picks to $itemp_bot_mute_picks_$iSelect_tr_Sumute_bottom->{_file_in} \n\n");
# print("number of tries is $iSelect_tr_Sumute_bottom->{_number_of_tries} \n\n");

	}

	$suxwigb[1] = $suxwigb->Step();

=head2 DEFINE FLOW(S)
 
  in interactive mode:
  first time you see the image, number_of_tries =0
  second, third, etc. times number_of_tries >0
  The pick file can be saved

=cut

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

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

	#for suxwigb
	@items = (
		$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)

 TO SCREEN AND FILE

=cut

	#$log->file($flow[1]);

	# print( "iSelect_tr_Sumute_bottom $flow[2]\n");

	#$log->file($flow[2);

}    # end calcNdisplay subroutine

1;