view release on metacpan or  search on metacpan

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

 MUTE  DATA by  

=cut

    $sumute->clear();
    $sumute->par_file( $iApply_mute->{_parfile_in} );
    $sumute->offset_word( $iApply_mute->{_offset_type} );
    $sumute->type( $iApply_mute->{_purpose} );
    $sumute[1] = $sumute->Step();

=head2

  set filtering parameters 

=cut

    $sufilter->clear();
    $sufilter->freq( $iApply_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_mute->{_file_in}.quotemeta(' f=').$iApply_mute->{_freq};
# $windowtitle	  = '';

    # $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_mute->{_offset_type});
    # $suximage -> legend($on);
    # $suximage -> cmap('rgb0');
    # #$suximage -> loclip($iApply_mute->{_min_amplitude});
    # #$suximage -> hiclip($iApply_mute->{_max_amplitude});
    # $suximage -> verbose($off);
    # $suximage[1]  = $suximage -> Step();
    #

=head2 Set wiggle plot 
	
	for tau-p data

=cut

    $suxwigb->clear();
    $suxwigb->defaults( 'iSurf4', 'top_middle' );
    $suxwigb->key('tracl');
    $suxwigb->title( $iApply_mute->{_file_in} );

    #$suxwigb-> pmin($CFG->{sutaup}{1}{pmin});
    #$suxwigb-> dp($dp);
    $suxwigb->box_width(400);
    $suxwigb->box_height(500);

    #$suxwigb-> percent(99.9);
    $suxwigb->clip(1);
    $suxwigb->windowtitle( quotemeta('Muted Taup Data') );
    $suxwigb[1] = $suxwigb->Step();

=head2
 
  DEFINE FLOW(S)

=cut

    @items =
      ( $sumute[1], $in, $iApply_mute->{_inbound}, $to, $suxwigb[1], $go );
    $flow[1] = $run->modules( \@items );

    @items = (
        $sumute[1], $in, $iApply_mute->{_inbound},
        $out, $iApply_mute->{_outbound}, $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

    $run->flow( \$flow[1] );
    $run->flow( \$flow[2] );

=head2

  LOG FLOW(S)TO SCREEN AND FILE