view release on metacpan or  search on metacpan

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

}

=head2 sub calc

 rewrite sorted picks into a permanent file

=cut

sub calc {

    my ($self) = @_;

    #  my $suffix = '_'.$iSave_picks->{_gather_header}.
    #		$iSave_picks->{_gather_num};

    # CASE 1 - geopsy
    if ( defined $iSave_picks->{_purpose}
        && $iSave_picks->{_purpose} eq $purpose->{_geopsy} )
    {

        my ($GEOPSY_PICKS_RAW) = $Project->GEOPSY_PICKS_RAW();

        if ( -d $GEOPSY_PICKS_RAW ) {

            $iSave_picks->{_inbound} =
                $DATA_SEISMIC_TXT . '/'
              . '.itemp'
              . '_picks_sorted_'
              . $iSave_picks->{_file_in};

            $iSave_picks->{_outbound} =
                $GEOPSY_PICKS_RAW . '/' . 'xt_'
              . $iSave_picks->{_file_in} . '_'
              . $iSave_picks->{_gather_type}
              . $iSave_picks->{_gather_num};

            $cp->from( $iSave_picks->{_inbound} );
            $cp->to( $iSave_picks->{_outbound} );
            $cp[1] = $cp->Step();

        }
        else {

            use Tk;
            use strict;
            use App::SeismicUnixGui::misc::L_SU_global_constants;

            my $get = L_SU_global_constants->new();
            my $var = $get->var();

            # Main Window
            my $mw = MainWindow->new();

            my $arial_14 = $mw->fontCreate(
                'arial_14',
                -family => 'arial',
                -weight => 'bold',
                -size   => -14
            );

            $mw->configure( -background => $var->{_my_purple} );

            use App::SeismicUnixGui::messages::message_director;
            my $iPick_message = message_director->new();
            my $message       = $iPick_message->iPick(0);

            $mw->messageBox(
                -title      => "iPick geopsy",
                -font       => $arial_14,
                -message    => $message,
                -background => $var->{_my_yellow},
                -default    => 'oK',
            );
            print("iSave_picks,calc, $message\n");
        }

    }
    # CASE 2 - normal case
    elsif ( not defined $iSave_picks->{_purpose}
        || $iSave_picks->{_purpose} eq $empty_string )
    {

        $iSave_picks->{_inbound} =
            $DATA_SEISMIC_TXT . '/'
          . '.itemp'
          . '_picks_sorted_par_'
          . $iSave_picks->{_file_in};

        $iSave_picks->{_outbound} =
            $DATA_SEISMIC_TXT . '/'
          . 'xt_par_'
          . $iSave_picks->{_file_in} . '_'
          . $iSave_picks->{_gather_type}
          . $iSave_picks->{_gather_num};

        $cp->from( $iSave_picks->{_inbound} );
        $cp->to( $iSave_picks->{_outbound} );
        $cp[1] = $cp->Step();

    }
    else {
        print("1. iSave_picks, purpose:---$iSave_picks->{_purpose}---\n");
    }

=head2

  DEFINE FLOW(S)

=cut 

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

=head2

  RUN FLOW(S)

=cut 

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

=head2

  LOG FLOW(S)TO SCREEN AND FILE

=cut

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

}    # end calc subroutine