view release on metacpan or  search on metacpan

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

		$suximage->picks(
			$DATA_DIR_OUT . '/' . $iShowNselect_picks->{_TX_outbound} );

# print("iShowNselect_picks, suximage, writing picks to $itemp_picks_$iShowNselect_picks->{_file_in} \n");
# print("iShowNselect_picks, suximage, PATH: $DATA_DIR_OUT \n\n");
# print("number of tries is $iShowNselect_picks->{_number_of_tries} \n\n");
	}

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

=head2

 DISPLAY DATA (SUXWIGB) 

=cut

	$base_caption[2] =
		$iShowNselect_picks->{_file_in}
	  . quotemeta(' f=')
	  . $iShowNselect_picks->{_freq};
	$windowtitle[2] =
		$iShowNselect_picks->{_gather_header}
	  . quotemeta(' = ')
	  . $iShowNselect_picks->{_gather_num};

	$suxwigb->clear();
	$suxwigb->box_width(400);
	$suxwigb->box_height(600);
	$suxwigb->box_X0(750);
	$suxwigb->box_Y0(150);
	$suxwigb->title( $base_caption[2] );
	$suxwigb->windowtitle( $windowtitle[2] );
	$suxwigb->ylabel( quotemeta('TWTTs') );
	$suxwigb->xlabel( $iShowNselect_picks->{_offset_type} );
	$suxwigb->loclip( $iShowNselect_picks->{_min_amplitude} );
	$suxwigb->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} )
	{

		$suxwigb->x1beg( $iShowNselect_picks->{_max_x1} );
		$suxwigb->x1end( $iShowNselect_picks->{_min_x1} );

		#		print("iShowNselect_picks, suxwigb with \'geopsy\' purpose\n");

	}
	else {
		$suxwigb->x1beg( $iShowNselect_picks->{_min_x1} );
		$suxwigb->x1end( $iShowNselect_picks->{_max_x1} );
	}

	$suxwigb->verbose($off);

=head2 conditions
 
 when number_of_tries is >=2 
 there should be a pre-exisiting digitized
 overlay curve to plot as well

=cut

	_inbound_curve_file();

	# print("iShowNselect_picks,calc, using a curve file:\n");
	# print("\t$iShowNselect_picks->{_inbound_curve_file}\n\n");

	$suxwigb->curve( quotemeta( $iShowNselect_picks->{_inbound_curve_file} ) );
	( $ref_T, $ref_X, $num_tx_pairs ) = $manage_files_by->read_2cols(
		\$iShowNselect_picks->{_inbound_curve_file} );
	$suxwigb->npair( quotemeta($num_tx_pairs) );
	$suxwigb->curvecolor( quotemeta(2) );

=item choose to save picks
 
=cut

	if ( $iShowNselect_picks->{_number_of_tries} > 0 ) {

		$iShowNselect_picks->{_TX_outbound} =
		  $itemp_picks_ . $iShowNselect_picks->{_file_in};
		$suxwigb->picks(
			$DATA_DIR_OUT . '/' . $iShowNselect_picks->{_TX_outbound} );

# print("iShowNselect_picks, suxwigb, writing picks to $itemp_picks_$iShowNselect_picks->{_file_in} \n");
# print("iShowNselect_picks, suxwigb, PATH: $DATA_DIR_OUT \n\n");
# print("number of tries is $iShowNselect_picks->{_number_of_tries} \n\n");
	}

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

=head2
 
  DEFINE FLOW(S) - for both suximage AND suxwigb 
  remove gain		$to,        $sugain[1],
=cut

	# CASES 1 and 2 With GEOPSY as the purpose
	if ( defined $iShowNselect_picks->{_purpose}
		and $iShowNselect_picks->{_purpose} ne $empty_string )
	{

		if (   $iShowNselect_picks->{_purpose} eq $purpose->{_geopsy})
		{
			# CASE 1: frequencies may or may not be input by the user
			@items = (
				$suwind[1], $in, $iShowNselect_picks->{_inbound},
				$to,        $suwind[2],
				$to,        $suxwigb[1],
				$go
			);
			$flow[1] = $run->modules( \@items );

			print  ("iShowNselect_picks,  CASE1: $flow[1]\n");
			@items = (
				$suwind[1], $in, $iShowNselect_picks->{_inbound},
				$to, $suwind[2], $to, $suximage[1], $go
			);
			$flow[2] = $run->modules( \@items );