view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/misc/su_select_waveform.pm  view on Meta::CPAN

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

=head2 Set

  filtering parameters 

=cut

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

=head2 Set

  5. set suxwigb parameters 
  In the perl module for suxwigb we should
  have (but we do not yet) an explanation of each  of  these parameters

=cut

    $suxwigb->clear();

    #$suxwigb-> d1(1);
    #$suxwigb-> d2(1);
    #$suxwigb-> f1(1);
    #$suxwigb-> f2(1);
    $suxwigb->xcur(3);

    #$suxwigb-> va(2.5);
    $suxwigb->n2tic(1);
    $suxwigb->d2num(20);
    $suxwigb->windowtitle( quotemeta('PICK 2 corners') );
    $suxwigb->picks( $select->{_picks_file} );
    $suxwigb->title( $select->{_title} );
    $suxwigb->xlabel('No.traces');
    $suxwigb->ylabel('TWTT\ s');
    $suxwigb->box_width(600);
    $suxwigb->box_height(500);
    $suxwigb->box_X0(350);
    $suxwigb->box_Y0(0);
    $suxwigb->absclip( $select->{_absclip} );
    $suxwigb[1] = $suxwigb->Step();

=pod

  5. set suximage parameters 
  In the perl module for suxmage we should
  have (but we do not yet) an explanation of each of
  these parameters

=cut

    $suximage->clear();
    $suximage->title( $select->{_title} );
    $suximage->xlabel('No.traces');
    $suximage->ylabel('TWTT\ s');
    $suximage->box_width(600);
    $suximage->box_height(500);
    $suximage->box_X0(975);
    $suximage->box_Y0(0);
    $suximage->legend($on);
    $suximage->absclip( $select->{_absclip} );
    $suximage->windowtitle( $select->{_window_title} );
    $suximage[1] = $suximage->Step();

=pod
 
  Standard:
  1. DEFINE FLOW(S)

=cut

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

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

    @items = (
        $sufilter[1], $in, $select->{_inbound}, $to, $sugain[2], $to,
        $suxwigb[1], $go
    );

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

=pod

  3. LOG FLOW(S)TO SCREEN AND FILE

=cut

    # print "su_select_waveform,$flow[1]\n";

    # print  "su_select_waveform,$flow[2]\n";

    return ( \@flow );

}    # end of sub Step


1;