view release on metacpan or  search on metacpan

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

    $windowtitle[2] =
      quotemeta('GATHER = ') . $iSelect_tr_Sumute_top->{_gather_num};

    $suxwigb->clear();
    $suxwigb->box_width( quotemeta(400) );
    $suxwigb->box_height( quotemeta(600) );
    $suxwigb->box_X0( quotemeta(750) );
    $suxwigb->box_Y0( quotemeta(150) );
    #$suxwigb->f2(quotemeta(60));
    $suxwigb->title( quotemeta( $base_caption[2] ) );
    $suxwigb->windowtitle( $windowtitle[2] );
    $suxwigb->ylabel( quotemeta('TWTT s') );
    $suxwigb->xlabel( $iSelect_tr_Sumute_top->{_offset_type} );
    $suxwigb->clip('1.5');    # clip/perc set manually
    $suxwigb->verbose($off);

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

        $iSelect_tr_Sumute_top->{_TX_outbound} =
          $itemp_top_mute_picks_ . $iSelect_tr_Sumute_top->{_file_in};
        $suxwigb->picks(
            $DATA_SEISMIC_TXT . '/' . $iSelect_tr_Sumute_top->{_TX_outbound} );

# print("iSelect_tr_Sumute_top, suxwigb, writing picks to $itemp_top_mute_picks_$iSelect_tr_Sumute_top->{_file_in} \n\n");
# print("number of tries is $iSelect_tr_Sumute_top->{_number_of_tries} \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

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

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

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

=head2 LOG FLOW(S)

 TO SCREEN AND FILE

=cut

    # print "iSelect_tr-Sumute_top $flow[1]\n";

    #$log->file($flow[1]);

    # print( "iSelect_tr-Sumute_top $flow[2]\n");

    #$log->file($flow[2);

}    # end calcNdisplay subroutine

1;