view release on metacpan or  search on metacpan

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

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

=head2

  set filtering parameters 

=cut

	$sufilter->clear();
	$sufilter->freq( $iApply_bottom_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(3);
	#    $sugain[3] = $sugain->Step();

=head2

 DISPLAY DATA

=cut

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

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

=head2

 DISPLAY DATA (SUXWIGB) 

=cut

	$base_caption =
		$iApply_bottom_mute->{_file_in}
	  . quotemeta(' f=')
	  . $iApply_bottom_mute->{_freq};
	$windowtitle =
		$iApply_bottom_mute->{_gather_header}
	  . quotemeta(' = ')
	  . $iApply_bottom_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_bottom_mute->{_offset_type} );
	$suxwigb->clip('1.5');    #clip/perc set manually
	$suxwigb->verbose($off);
	$suxwigb[1] = $suxwigb->Step();

=head2
 
  DEFINE FLOW(S)

=cut

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

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

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