view release on metacpan or  search on metacpan

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

		$iShowNselect_picks->{_error_freq} = $true;

		# print("iShowNselect_picks, missing frequencies-- error NADA\n");

	}
	else {

		print("iShowNselect_picks, missing frequencies NADA \n");
	}

=head2

 GAIN DATA

=cut

	$sugain->clear();
	$sugain->pbal($on);
	$sugain[1] = $sugain->Step();

	$sugain->clear();
	$sugain->agc($on);

	# nominal agc width
	my $wagc =
	  ( $iShowNselect_picks->{_max_x1} - $iShowNselect_picks->{_min_x1} ) / 10;

	# print("iShowNselect_picks,calcNdisplay,wagc=$wagc\n");
	$sugain->width($wagc);
	$sugain[2] = $sugain->Step();

	$sugain->clear();
	$sugain->tpower(1.8);
	$sugain[3] = $sugain->Step();

=head2

 DISPLAY DATA (SUXIMAGE)

=cut

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

	$suximage->clear();
	$suximage->box_width(400);
	$suximage->box_height(600);
	$suximage->box_X0(200);
	$suximage->box_Y0(150);
	$suximage->title( $base_caption[1] );
	$suximage->windowtitle( $windowtitle[1] );
	$suximage->ylabel( quotemeta('TWTTs') );
	$suximage->xlabel( $iShowNselect_picks->{_offset_type} );
	$suximage->legend($on);
	$suximage->cmap('rgb0');
	$suximage->loclip( $iShowNselect_picks->{_min_amplitude} );
	$suximage->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} )
	{

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

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

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

	$suximage->verbose($off);

	&_inbound_curve_file();

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

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

=item choose to save picks
 
=cut

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

		$iShowNselect_picks->{_TX_outbound} =
		  $itemp_picks_ . $iShowNselect_picks->{_file_in};
		$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}