view release on metacpan or  search on metacpan

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

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

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

	$suwind->clear();

	#$suwind   		-> setheaderword('time');
	#    $suwind->tmin(0);
	#    $suwind->tmax(1);
	$suwind[2] = $suwind->Step();

=head2  Set 

 filtering parameters 

  use lib "./libAll";
  use iTop_Mute_config qw( $href_sufilter);
  

=cut

	#use iTop_Mute_config qw($href_sufilter);

=head2
  print has reference value
=cut

	#print("sufilter is $href_sufilter->{freq}\n\n");
	$sufilter->clear();
	$sufilter->freq( $iSelect_tr_Sumute_bottom->{_freq} );
	$sufilter[1] = $sufilter->Step();

=head2 DISPLAY 

 DATA

=cut

	$base_caption[1] =
		$iSelect_tr_Sumute_bottom->{_file_in}
	  . quotemeta('  ')
	  . quotemeta('f=')
	  . $iSelect_tr_Sumute_bottom->{_freq};

	$windowtitle[1] =
	  quotemeta('GATHER = ') . $iSelect_tr_Sumute_bottom->{_gather_num};

	$suximage->clear();
	$suximage->box_width(300);
	$suximage->box_height(700);
	$suximage->box_X0(70);
	$suximage->box_Y0(120);
	$suximage->title( $base_caption[1] );
	$suximage->windowtitle( $windowtitle[1] );
	$suximage->ylabel( quotemeta('TWTT s') );
	$suximage->xlabel( $iSelect_tr_Sumute_bottom->{_offset_type} );
	$suximage->legend($on);
	$suximage->cmap('rgb0');
	$suximage->loclip( $iSelect_tr_Sumute_bottom->{_min_amplitude} );
	$suximage->hiclip( $iSelect_tr_Sumute_bottom->{_max_amplitude} );
	$suximage->verbose($off);

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

		$iSelect_tr_Sumute_bottom->{_TX_outbound} =
		  $itemp_bot_mute_picks_ . $iSelect_tr_Sumute_bottom->{_file_in};
		$suximage->picks(
			$DATA_SEISMIC_TXT . '/' . $iSelect_tr_Sumute_bottom->{_TX_outbound} );

# print("iSelect_tr_Sumute_bottom, suximage, Writing picks to $itemp_bot_mute_picks_ $iSelect_tr_Sumute_bottom->{_file_in}  \n\n");
# print("number of tries is $iSelect_tr_Sumute_bottom -> {_number_of_tries}\n\n");

	}
	$suximage[1] = $suximage->Step();

=head2 Set suxwigb

=cut

	#plotting with suxwigb
	$base_caption[2] =
		$iSelect_tr_Sumute_bottom->{_file_in}
	  . quotemeta('  ')
	  . quotemeta('f=')
	  . $iSelect_tr_Sumute_bottom->{_freq};

	$windowtitle[2] =
	  quotemeta('GATHER = ') . $iSelect_tr_Sumute_bottom->{_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->f2(quotemeta(60));
	$suxwigb->title( quotemeta( $base_caption[2] ) );
	$suxwigb->windowtitle( $windowtitle[2] );
	$suxwigb->ylabel( quotemeta('TWTT s') );
	$suxwigb->xlabel( $iSelect_tr_Sumute_bottom->{_offset_type} );
	$suxwigb->clip('1.5');    # clip/perc set manually
	$suxwigb->verbose($off);

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

		$iSelect_tr_Sumute_bottom->{_TX_outbound} =
		  $itemp_bot_mute_picks_ . $iSelect_tr_Sumute_bottom->{_file_in};
		$suxwigb->picks(
			$DATA_SEISMIC_TXT . '/' . $iSelect_tr_Sumute_bottom->{_TX_outbound} );

# print("iSelect_tr_Sumute_bottom, suxwigb, writing picks to $itemp_bot_mute_picks_$iSelect_tr_Sumute_bottom->{_file_in} \n\n");
# print("number of tries is $iSelect_tr_Sumute_bottom->{_number_of_tries} \n\n");

	}

	$suxwigb[1] = $suxwigb->Step();