view release on metacpan or  search on metacpan

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

  First time you see the image number_of_tries =0
  the suximage is not interactive ( uses '&') 
  Second, third, etc. times (number_of_tries >= 1)
  The image will halt the flow  ('wait'), to allow user to 
  make new picks

  On the other hand suxwigb does not change between the first
  and last attempt
		$sufilter[1], $to, $sugain[2],            $to,
	suwind has currently no gain
=cut

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

=head2  do not halt flow

  print(" suximage NO HALT with num tries $iSuvelan->{_number_of_tries}\n\n");

=cut

		if ( $iSuvelan->{_number_of_tries} == 0 ) {
			@items = (
				$susort[1],   $in, $iSuvelan->{_inbound}, $to,
				$suwind[1],   $to, $suwind[2],            $to,
				$sufilter[1], $to, $suvelan[1],           $to,
				$suximage[1], $go
			);
			$flow[2] = $run->modules( \@items );
		}

=head2  do not halt flow either 

DB

  print("2.suximage WITH HALT \n");
  print("2. number of tries is  $iSuvelan->{_number_of_tries}\n\n");

#,';',' wait'); 
             #$to,$sufilter[1],$to,$suvelan[1],$to,$suximage[1],$go); 
=cut

		if ( $iSuvelan->{_number_of_tries} >= 1 ) {
			@items = (
				$susort[1],   $in, $iSuvelan->{_inbound}, $to,
				$suwind[1],   $to, $suwind[2],            $to,
				$sufilter[1], $to, $suvelan[1],           $to,
				$suximage[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

		$run->flow( \$flow[1] );
		$run->flow( \$flow[2] );

=head2  LOG FLOW(S)

 TO SCREEN AND FILE

=cut

		#	print  "iSuvelan, $flow[1]\n";
		#	print  "iSuvelan, $flow[2]\n";
		#  $log->file($flow[1]);
		#  $log->file($flow[2]);
		#

	}
	else {
		print("iSuvelan, calcNdisplay, missing variables\n");
	}

}

# end of calc_display subroutine

=head2  subroutine maximum semblance to plot 


=cut

sub max_semblance {
	my ( $variable, $max_semblance ) = @_;
	$iSuvelan->{_max_semblance} = $max_semblance if defined $max_semblance;
}

=head2  subroutine minimum semblance to plot 


=cut

sub min_semblance {
	my ( $variable, $min_semblance ) = @_;
	$iSuvelan->{_min_semblance} = $min_semblance if defined $min_semblance;
}

=head2  subroutine  TV pick file in


=cut

sub Tvel_inbound {
	my ( $variable, $Tvel_inbound ) = @_;
	$iSuvelan->{_Tvel_inbound} = $Tvel_inbound if defined $Tvel_inbound;
}

=head2 

 subroutine TV pick file out