view release on metacpan or  search on metacpan

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

		# print("iSelect_xt, sufilter frequencies:  $iSelect_xt->{_freq}\n");
		$sufilter->clear();
		$sufilter->freq( $iSelect_xt->{_freq} );
		$sufilter[1] = $sufilter->Step();

	}
	elsif ( not defined $iSelect_xt->{_freq}
		or $iSelect_xt->{_freq} eq $empty_string )
	{

		$iSelect_xt->{_error_freq} = $true;
#		print("iSelect_xt, missing frequencies -- warning\n");

	}
	else {
		print("iSelect_xt, missing frequencies -- warning \n");
	}

=head2 WINDOW  DATA 

 by  

=cut

	$suwind->clear();
	$suwind->setheaderword( $iSelect_xt->{_gather_header} );
	$suwind->min( $iSelect_xt->{_gather_num} );
	$suwind->max( $iSelect_xt->{_gather_num} );

	# print("gather num is $iSelect_xt->{_gather_num}\n\n");
	$suwind[1] = $suwind->Step();

	$suwind->clear();
	$suwind->tmin( $iSelect_xt->{_min_x1} );
	$suwind->tmax( $iSelect_xt->{_max_x1} );
	$suwind[2] = $suwind->Step();

=head2 DISPLAY Suximage

 DATA

=cut

	$base_caption[1] =
		$iSelect_xt->{_file_in}
	  . quotemeta(' ')
	  . quotemeta('f=')
	  . $iSelect_xt->{_freq};
	$windowtitle[1] = quotemeta('GATHER = ') . $iSelect_xt->{_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('TWTT s') );
	$suximage->xlabel( $iSelect_xt->{_offset_type} );
	$suximage->legend($on);
	$suximage->cmap('hsv2');
	$suximage->loclip( $iSelect_xt->{_min_amplitude} );
	$suximage->hiclip( $iSelect_xt->{_max_amplitude} );

	# purposes can refine the style of plots
	# geopsy plot preference for JML
	if (    length $iSelect_xt->{_purpose}
		and $iSelect_xt->{_purpose} eq 'geopsy'
		and $iSelect_xt->{_max_x1} > $iSelect_xt->{_min_x1} )
	{

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

		#		print("iSelect_xt, \n");

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

	$suximage->verbose($off);

=item
 
	choose to save picks
 
=cut

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

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

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

=head2 DISPLAY suxwigb

 DATA

=cut

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

	$suxwigb->clear();
	$suxwigb->box_width( quotemeta(400) );
	$suxwigb->box_height( quotemeta(600) );
	$suxwigb->box_X0( quotemeta(750) );
	$suxwigb->box_Y0( quotemeta(150) );
	$suxwigb->title( $base_caption[2] );