view release on metacpan or  search on metacpan

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

			$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 );

		}
#		else {
#
#print("1. iShowNselect_picks, purpose:$iShowNselect_picks->{_purpose}\n");
#print("1. iShowNselect_picks, error_freq: $iShowNselect_picks->{_error_freq}\n");
#print("1. iShowNselect_picks, unconstrained purpose\n");
#		print ( "L490 $flow[1]\n");
#		}

		# CASE 2 No purpose  
		# BUT frequencies ARE present
		# TODO No purpose BUT frequencies are absent
	}
	elsif (
		(
			not( defined $iShowNselect_picks->{_purpose} )
			|| $iShowNselect_picks->{_purpose} eq $empty_string
		)
		&& $iShowNselect_picks->{_error_freq} eq $false
	  )
	{

		@items = (
			$suwind[1], $in, $iShowNselect_picks->{_inbound},
			$to, $suwind[2], $to, $sufilter[1], $to, $suxwigb[1], $go
		);
		$flow[1] = $run->modules( \@items );

		print  ("iShowNselect_picks,  CASE2: $flow[1]\n");

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

	}
	else {
		

# print("2. iShowNselect_picks, purpose:---$iShowNselect_picks->{_purpose}---\n");
 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

  LOG FLOW(S)TO SCREEN AND FILE

=cut

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

	#for suximage
	#	print  "$flow[2]\n";

}    # end calcNdisplay subroutine

=head2  sub file_in

 Required sunix file name
 on which to pick  mute values
 print("$iShowNselect_picks->{_inbound}\n\n");
 
=cut

sub file_in {

	my ( $self, $file_in ) = @_;

	if ( defined $file_in ) {

		# e.g. 'sp1' becomes sp1
		$control->set_infection($file_in);
		$file_in = control->get_ticksBgone();
		$iShowNselect_picks->{_file_in} = $file_in;
		$iShowNselect_picks->{_inbound} =
		  $DATA_DIR_IN . '/' . $file_in . $data_suffix_in;

   # print("iShowNselect_picks, file_in: $iShowNselect_picks->{_file_in} \n\n");
	}
	else {
		print("iShowNselect_picks, file_in: unexpected file_in \n\n");
	}
}

=head2

 subroutine freq
  creates the bandpass frequencies to filter data
   e.g., "3,6,40,50"
 
=cut

sub freq {