view release on metacpan or  search on metacpan

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

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

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

        print(
"iShow_picks, suximage, writing picks to $itemp_picks_$iShow_picks->{_file_in} \n"
        );

        # print("iShow_picks, suximage, PATH: $DATA_DIR_OUT \n\n");
        # print("number of tries is $iShow_picks->{_number_of_tries} \n\n");
    }

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

=head2

 DISPLAY DATA (SUXWIGB) 

=cut

    $base_caption[2] =
      $iShow_picks->{_file_in} . quotemeta(' f=') . $iShow_picks->{_freq};
    $windowtitle[2] =
        $iShow_picks->{_gather_header}
      . quotemeta(' = ')
      . $iShow_picks->{_gather_num};

    $suxwigb->clear();
    $suxwigb->box_width(400);
    $suxwigb->box_height(600);
    $suxwigb->box_X0(750);
    $suxwigb->box_Y0(150);
    $suxwigb->title( $base_caption[2] );
    $suxwigb->windowtitle( $windowtitle[2] );
    $suxwigb->ylabel( quotemeta('TWTTs') );
    $suxwigb->xlabel( $iShow_picks->{_offset_type} );
    $suxwigb->loclip( $iShow_picks->{_min_amplitude} );
    $suxwigb->hiclip( $iShow_picks->{_max_amplitude} );
    
    # geopsy plot preference for JML
	if (    length $iShow_picks->{_purpose}
		and $iShow_picks->{_purpose} eq 'geopsy'
		and $iShow_picks->{_max_x1} > $iShow_picks->{_min_x1} ) {

		$suxwigb->x1beg( $iShow_picks->{_max_x1} );
		$suxwigb->x1end( $iShow_picks->{_min_x1} );
		print("iShow_picks, suxwigb with \'geopsy\' purpose\n");
		
	} else {
		$suxwigb->x1beg( $iShow_picks->{_min_x1} );
		$suxwigb->x1end( $iShow_picks->{_max_x1} );
	}
    
    $suxwigb->verbose($off);

=head2 conditions
 
 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