view release on metacpan or  search on metacpan

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

  analysis for a particular cdp

=cut

sub start {

	print("NEW PICKS\n");
	set_message( $iVA->{_message_type} );
	$SuMessages->cdp_num( $iVA->{_cdp_first} );

	cdp_num( $iVA->{_cdp_first} );
	cdp_num_suffix( $iVA->{_cdp_first} );

	# print("cdp_num_suffix is $iVA->{_cdp_num_suffix}\n\n");
	_message('first_velan');
	$iVA->{_number_of_tries} = 0;
	semblance();

}

=head2 subroutine pick
 
  Picking data
  send cdp number to subroutine 
  update cdp_num_suffix
  and update the Tvel_outbound.
  delete output of previous semblance
  
    -replot 1st semblance
    -PICK V-T pairs
    -Increment number of tries.
     Semblance display becomes interactive
     when number_of_tries >= 1
     Because display blocks flow,
     place message before semblance
     
=cut

sub pick {

	print("Picking...cdp $iVA->{_cdp_num}\n");
	print("NOW, PICK\n\n");
	cdp_num_suffix( $iVA->{_cdp_num} );
	refresh_Tvel_inbound();
	refresh_Tvel_outbound();

	#$xk->kill_this('suximage');
	#$xk->kill_this('suxwigb');
	_message('pre_pick_velan');
	$iVA->{_number_of_tries}++;
	semblance();

}

=head2 sub next

  1. increment cdp
     update variable variables
        (cdp_num_suffix, Tvel_inbound and Tvel_outbound)
     Exit if beyond last cdp 
  2. reset prompt
     reset the number of tries to zero again
  3. Otherwise display the first semblance
    -Based on semblance,
      decide whether to PICK or move on to NEXT CDP
     -radio_buttons stop flow

   delete output of previous semblance
   delete the output of semblance and iSunmo
   delete the output of Vrms2Vint 

=cut

sub next {

	$iVA->{_cdp_num} = $iVA->{_cdp_num} + $iVA->{_cdp_inc};
	cdp_num_suffix( $iVA->{_cdp_num} );
	refresh_Tvel_inbound();
	refresh_Tvel_outbound();
	$iVA->{_number_of_tries} = 0;

	#print("Next CDP_NUM IS $iVA->{_cdp_num}");

	#$xk->kill_this('suximage');
	#$xk->kill_this('suxwigb');
	#$xk->kill_this('xgraph');
	if ( $iVA->{_cdp_num} > $iVA->{_cdp_last} ) {
		exit();
	}

	semblance();
	$SuMessages->cdp_num( $iVA->{_cdp_num} );
	_message('first_velan');

}

=head2 subroutine exit

=cut

sub exit {

	print("Good bye.\n");
	print("Not continuing to next cdp\n");
	$xk->kill_this('suximage');
	$xk->kill_this('suxwigb');
	$xk->kill_this('xgraph');
	exit(1);

}

=head2 Calculate NMO 

    0. Message to user
    1. delete the output of previous semblance 
    2. calculations
    3. message is needed because semblance halts flow
       when number_of_tries >0

=cut