view release on metacpan or  search on metacpan

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

 
 when number_of_tries is >=2 
 there should be a pre-exisiting digitized
 overlay curve to plot as well

=cut

    _inbound_curve_file();

    # print("iShow_picks,calc, using a curve file:\n");
    # print("\t$iShow_picks->{_inbound_curve_file}\n\n");

    $suxwigb->curve( quotemeta( $iShow_picks->{_inbound_curve_file} ) );
    ( $ref_T, $ref_X, $num_tx_pairs ) =
    $manage_files_by->read_2cols( \$iShow_picks->{_inbound_curve_file} );
    $suxwigb->npair( quotemeta($num_tx_pairs) );
    $suxwigb->curvecolor( quotemeta(2) );

=item choose to save picks
 
=cut

    if ( $iShow_picks->{_number_of_tries} > 0 ) {

        $iShow_picks->{_TX_outbound} = $itemp_picks_ . $iShow_picks->{_file_in};
        $suxwigb->picks( $DATA_DIR_OUT . '/' . $iShow_picks->{_TX_outbound} );

# print("iShow_picks, suxwigb, writing picks to $itemp_picks_$iShow_picks->{_file_in} \n");
# print("iShow_picks, suxwigb, PATH: $DATA_DIR_OUT \n\n");
# print("number of tries is $iShow_picks->{_number_of_tries} \n\n");
    }

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

=head2
 
  DEFINE FLOW(S) - for both suximage AND suxwigb 

=cut

    @items = (
        $suwind[1], $in, $iShow_picks->{_inbound}, $to,
        $suwind[2], $to, $sufilter[1],             $to,
        $sugain[1], $to, $suxwigb[1],              $go
    );
    $flow[1] = $run->modules( \@items );

    @items = (
        $suwind[1], $in, $iShow_picks->{_inbound}, $to,
        $suwind[2], $to, $sufilter[1],             $to,
        $sugain[1], $to, $suximage[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 suxwigb
    $run->flow( \$flow[1] );

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

=head2

  LOG FLOW(S)TO SCREEN AND FILE

=cut

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

    #for suximage
    # print  "$flow[2]\n";

}    # end calcNdisplay subroutine

=head2  sub file_in

 Required sunix file name
 on which to pick  mute values
 print("$iShow_picks->{_inbound}\n\n");
 
=cut

sub file_in {

    my ( $self, $file_in ) = @_;

    if ( defined $file_in ) {

        # e.g. 'sp1' becomes sp1
        $control->set_infection($file_in);
        $file_in = control->get_ticksBgone();
        $iShow_picks->{_file_in} = $file_in if defined($file_in);
        $iShow_picks->{_inbound} =
          $DATA_DIR_IN . '/' . $file_in . $data_suffix_in;

        # print("iShow_picks, file_in: $iShow_picks->{_file_in} \n\n");
    }
    else {
        print("iShow_picks, file_in: unexpected file_in \n\n");
    }
}

=head2

 subroutine freq
  creates the bandpass frequencies to filter data
   e.g., "3,6,40,50"
 
=cut