view release on metacpan or  search on metacpan

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

		$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(

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

		$suxwigb->x1beg( $iShow_picks->{_min_x1} );
		$suxwigb->x1end( $iShow_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("iShow_picks,calc, using a curve file:\n");
    # print("\t$iShow_picks->{_inbound_curve_file}\n\n");

    $suxwigb->curve( quotemeta( $iShow_picks->{_inbound_curve_file} ) );
    ( $ref_T, $ref_X, $num_tx_pairs ) =

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

		$suximage->first_tick_number_x(
			quotemeta( $iSuvelan->{_first_velocity} ) );
		$suximage->picks( $iSuvelan->{_Tvel_outbound} );

print("iSuvelan, calcNdisplay: Writing picks to $iSuvelan->{_Tvel_outbound}\n\n");

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

=cut

		if ( $iSuvelan->{_number_of_tries} >= 2 ) {

			print("using a curve file:\n");
			print("\t$iSuvelan->{_Tvel_inbound}\n\n");
			$suximage->curvefile( quotemeta( $iSuvelan->{_Tvel_inbound} ) )
			  ;
			my ( $ref_T_nmo, $ref_Vnmo, $num_tvel_pairs ) =