view release on metacpan or  search on metacpan

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

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

=head2

  set filtering parameters 

=cut

	$sufilter->clear();
	$sufilter->freq( $iApply_top_mute->{_freq} );
	$sufilter[1] = $sufilter->Step();

=head2

 GAIN DATA

=cut

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

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

	# $sugain     -> setdt(1000);
	$sugain[2] = $sugain->Step();

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

=head2

 DISPLAY DATA (SUXIMAGE)

=cut

	$base_caption =
		$iApply_top_mute->{_file_in}
	  . quotemeta(' f=')
	  . $iApply_top_mute->{_freq};
	$windowtitle =
		$iApply_top_mute->{_gather_header}
	  . quotemeta(' = ')
	  . $iApply_top_mute->{_gather_num};

	$suximage->clear();
	$suximage->box_width(500);
	$suximage->box_height(700);
	$suximage->box_X0(100);
	$suximage->box_Y0(200);
	$suximage->title($base_caption);
	$suximage->windowtitle($windowtitle);
	$suximage->ylabel( quotemeta('TWTTs') );
	$suximage->xlabel( $iApply_top_mute->{_offset_type} );
	$suximage->legend($on);
	$suximage->cmap('rgb0');
	$suximage->loclip( $iApply_top_mute->{_min_amplitude} );
	$suximage->hiclip( $iApply_top_mute->{_max_amplitude} );
	$suximage->verbose($off);
	$suximage[1] = $suximage->Step();

=head2

 DISPLAY DATA (SUXWIGB) 

=cut

	$base_caption =
		$iApply_top_mute->{_file_in}
	  . quotemeta(' f=')
	  . $iApply_top_mute->{_freq};
	$windowtitle =
		$iApply_top_mute->{_gather_header}
	  . quotemeta(' = ')
	  . $iApply_top_mute->{_gather_num};

	$suxwigb->clear();
	$suxwigb->box_width(500);
	$suxwigb->box_height(700);
	$suxwigb->box_X0(700);
	$suxwigb->box_Y0(200);
	$suxwigb->title($base_caption);
	$suxwigb->windowtitle($windowtitle);
	$suxwigb->ylabel( quotemeta('TWTTs') );
	$suxwigb->xlabel( $iApply_top_mute->{_offset_type} );
	$suxwigb->clip('1.5');    #clip/perc set manually
	$suxwigb->verbose($off);
	$suxwigb[1] = $suxwigb->Step();

=head2
 
  DEFINE FLOW(S) - for both suximage AND suxwigb 

=cut

#save copy for below
#@items   = ($suwind[1],$in,$iApply_top_mute->{_inbound},$to,$suwind[2],$to,$sumute[1],$to,$sufilter[1],$to,$suximage[1],$go);

	#for suximage
	@items = (
		$suwind[1],
		$in, $iApply_top_mute->{_inbound},
		$to, $suwind[2],
		$to, $sumute[1],
		$to, $sugain[2],
		$to, $suximage[1],
		$go
	);

	$flow[1] = $run->modules( \@items );

	#for suxwigb
	@items = (
		$suwind[1], 
		$in, $iApply_top_mute->{_inbound},