view release on metacpan or  search on metacpan

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

		$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},
		$to, $suwind[2], 
		$to, $sumute[1], 
		$to, $sugain[2], 
		$to, $suxwigb[1],
		$go
	);
	$flow[2] = $run->modules( \@items );

=head2

  RUN FLOW(S)
  output copy of picked data points
  only occurs after the number of tries
  is updated

=cut

	#for suximage
	$run->flow( \$flow[1] );

	#for suxwigb
	$run->flow( \$flow[2] );

=head2

  LOG FLOW(S)TO SCREEN AND FILE

=cut

	#for suximage
	#print("iApply_top_mute:$flow[1]\n");
	$log->file( $flow[1] );

	#for suxwigb
#	print "iApply_top_mute: $flow[2]\n";

}    # end calcNdisplay subroutine

1;