view release on metacpan or  search on metacpan

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

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

=head2 DISPLAY 

 DATA

=cut

=head2 Set wiggle plot 
	
	for tau-p data
        if num_tries > 0 then you can save the mute picks
        to a picking file
=cut

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

    # $suxwigb-> pmin($CFG->{sutaup}{1}{pmin});
    # $suxwigb-> dp($dp);
    # $suxwigb-> picks($sutaup_outbound_pickfile[1]);
    #$suxwigb-> percent(99.9);
    $suxwigb->clip(1);

    if ( $iSelect_tr_Sumute->{_number_of_tries} > 0 ) {
        $iSelect_tr_Sumute->{_TX_outbound} =
            'itemp_'
          . $iSelect_tr_Sumute->{_purpose}
          . '_picks_'
          . $iSelect_tr_Sumute->{_file_in} . '_'
          . $iSelect_tr_Sumute->{_gather_type}
          . $iSelect_tr_Sumute->{_gather_num};

        $suxwigb->picks( $iSelect_tr_Sumute->{_TX_outbound} );
        print("num tries > 0 $iSelect_tr_Sumute->{_TX_outbound}\n\n");
    }

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

=head2 DEFINE FLOW(S)
 
  in interactive mode:
  first time you see the image, number_of_tries =0
  second, third, etc. times number_of_tries >0
  The pick file can be saved

=cut

    @items = ( $suxwigb[1], $in, $iSelect_tr_Sumute->{_inbound}, $go );
    $flow[1] = $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] );

=head2 LOG FLOW(S)

 TO SCREEN AND FILE

=cut

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

}    # end calcNdisplay subroutine

1;