App-SeismicUnixGui

 view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/big_streams/iBottomMute.pl  view on Meta::CPAN

 value according
 to which button is pressed
 then exit the MainLoop
 destroy the main window after the prompt
 is properly set

=cut  

=head2 sub set_pick

 callbacks

  send gather number to $iBM
  delete output of previous semblance
  plus more callbacks following...


=cut

sub set_pick {
    my $pick = 'pick';
    $pick_rb->configure( -state => 'normal' );
    $iBM_Tk->{_prompt} = $pick;

    print("Picking...\n");

lib/App/SeismicUnixGui/big_streams/iBottomMute.pl  view on Meta::CPAN

}


=head2 sub set_next

  In this case the $variable is empty
  1. increment gather
     Exit if beyond last gather 
  2. reset prompt
  3. Otherwise display the first semblance
  4 ... see following callbacks

=cut

sub set_next {
    print("Next...\n");
    $next_rb->configure( -state => 'normal' );
    my $next = '';
    $iBM_Tk->{_prompt} = $next;
    $gather = $gather + $gather_inc;

lib/App/SeismicUnixGui/big_streams/iPick.pl  view on Meta::CPAN

	value according
	to which button is pressed
	then exit the MainLoop
	destroy the main window after the prompt
	is properly set

=cut  

=head2 sub  set_pick

	callbacks
	
	send gather number to $iPick
	delete output of previous displays

=cut

sub set_pick {

    my ($self) = @_;
    my $pick = 'pick';

lib/App/SeismicUnixGui/big_streams/iPick.pl  view on Meta::CPAN

}


=head2 sub  set_next

  In this case $self is empty
  1. increment gather
     Exit if beyond last gather 
  2. reset prompt
  3. Otherwise display the first semblance
  4 ... see following callbacks

=cut

sub set_next {

    my ($self) = @_;
    print("Next...\n");
    $next_rb->configure( -state => 'normal' );
    my $next = '';
    $iPick_Tk->{_prompt} = $next;

lib/App/SeismicUnixGui/big_streams/iSpectralAnalysis.pl  view on Meta::CPAN

 value according
 to which button is pressed
 then exit the MainLoop
 destroy the main window after the prompt
 is properly set

=cut  

=head2 sub set_pick

 callbacks

  send gather number to $iSA
  delete output of previous semblance
  plus more callbacks following...


=cut

sub set_pick {
    my $pick = 'pick';
    $pick_rb->configure( -state => 'normal' );
    $iSA_Tk->{_prompt} = $pick;
    print("Picking...\n");
    $iSA->select();

lib/App/SeismicUnixGui/big_streams/iTopMute.pl  view on Meta::CPAN

 value according
 to which button is pressed
 then exit the MainLoop
 destroy the main window after the prompt
 is properly set

=cut  

=head2 sub set_pick

 callbacks

  send gather number to $iTM
  delete output of previous semblance
  plus more callbacks following...


=cut

sub set_pick {
    my $pick = 'pick';
    $pick_rb->configure( -state => 'normal' );
    $iTM_Tk->{_prompt} = $pick;

    print("Picking...\n");

lib/App/SeismicUnixGui/big_streams/iTopMute.pl  view on Meta::CPAN

}


=head2 sub set_next

  In this case $self is empty
  1. increment gather
     Exit if beyond last gather 
  2. reset prompt
  3. Otherwise display the first semblance
  4 ... see following callbacks

=cut

sub set_next {
    print("Next...\n");
    $next_rb->configure( -state => 'normal' );
    my $next = '';
    $iTM_Tk->{_prompt} = $next;
    $gather = $gather + $gather_inc;

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

    MainLoop;     # for Tk widgets

}   # for new data


=pod sub set_pick

 A callback to:
 send cdp number to $iVA
 delete output of previous semblance
 plus more callbacks following...

=cut

sub set_pick {

    my $pick = 'pick';
    $next_rb->configure( -state => 'disabled' );

    #$pick_rb->configure(-state => 'normal');
    $calc_rb->configure( -state => 'normal' );

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

}

=pod sub set_next

  In this case the $variable is empty
  1. increment cdp
     Exit if beyond last cdp 
  2. reset prompt
  3. Otherwise display the first sembance
  4 ... see following callbacks

=cut


sub set_next {
    print("Next...\n");
    $next_rb->configure( -state => 'normal' );
    $calc_rb->configure( -state => 'disabled' );
    my $next = '';
    $iVA_Tk->{_prompt} = $next;

lib/App/SeismicUnixGui/big_streams/iVelocityAnalysis.pl  view on Meta::CPAN

    MainLoop;     # for Tk widgets

}   # for new data


=pod sub set_pick

 A callback to:
 send cdp number to $iVA
 delete output of previous semblance
 plus more callbacks following...

=cut

sub set_pick {

    my $pick = 'pick';
    $next_rb->configure( -state => 'disabled' );

    #$pick_rb->configure(-state => 'normal');
    $calc_rb->configure( -state => 'normal' );

lib/App/SeismicUnixGui/big_streams/iVelocityAnalysis.pl  view on Meta::CPAN

}

=pod sub set_next

  In this case the $variable is empty
  1. increment cdp
     Exit if beyond last cdp 
  2. reset prompt
  3. Otherwise display the first sembance
  4 ... see following callbacks

=cut


sub set_next {
    print("Next...\n");
    $next_rb->configure( -state => 'normal' );
    $calc_rb->configure( -state => 'disabled' );
    my $next = '';
    $iVA_Tk->{_prompt} = $next;

lib/App/SeismicUnixGui/big_streams/immodpg.pl  view on Meta::CPAN

sub _set_clip {

	#	print("immodpg.pl,_set_clip,$immodpg_Tk->{_clip4plotEntry}\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->set_clip();
	return (1);
}

=head2 sub _set_layer
 callbacks
 write out message for mmodpg.f
 writes out layer for immodpg to read
 return(1) validates command for Entry
 
=cut

sub _set_layer {

	#	print("immodpg.pl,_set_layer,$immodpg_Tk->{_layerEntry}\n");
	#	print("\nimmodpg.pl,_set_layer,layer=$layer\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->set_layer();
	return (1);
}

=head2 sub _setVbot
 callbacks:
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f
 return(1) validates command for Entry
 
=cut

sub _setVbot {

	# print("main,_setVbot, Vbot_opt=$Vbot_opt\n");
	# print("main,_setVbot, immodpg_Tk->{_VbotEntry}= $immodpg_Tk->{_VbotEntry}\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVbot();
	return (1);
}

=head2 sub _setVbot_upper_layer
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f
 return(1) validates command for Entry
 
=cut

sub _setVbot_upper_layer {

	my ($self) = @_;

	#	print("main,_setVbot_upper_layer, Vbot_upper_layer_opt=$Vbot_upper_layer_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVbot_upper_layer();
	return (1);
}

=head2 sub _setVtop
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f
 return(1) validates command for Entry

=cut

sub _setVtop {

	# print("main,_setVtop, Vtop_opt=$Vtop_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVtop();
	return (1);
}

=head2 sub _setVtop_lower_layer
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f
 return(1) validates command for Entry
 
=cut

sub _setVtop_lower_layer {

	my ($self) = @_;

	#	print("main,_setVtop_lower_layer, Vtop_lower_layer_opt=$Vtop_lower_layer_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVtop_lower_layer();
	return (1);
}

=head2 sub _setVbotNtop_multiply
 callbacks:
 - provide widgets to immodpg
 -refocus allows other Entries to update (focus)
 -update the gui for factor (_setVbotNtop_factor)
 _setVbotNtop_factor ALSO provides widgets to immodpg
 -update gui velocities (->setVbotNtop_multiply)
 -write out message for mmodpg.f:
 	set_option
 	set_change
 	set interactions with immodpg.f

lib/App/SeismicUnixGui/big_streams/immodpg.pl  view on Meta::CPAN

sub _setVbotNtop_multiply {

	# print("main,_setVbotNtop_multiply, VbotNtop_multiply_opt=$VbotNtop_multiply_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVbotNtop_multiply();

}

=head2 sub _setVbot_minus

 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f

=cut

sub _setVbot_minus {

	$immodpg->set_widgets($immodpg_Tk);

	# print("write Vbot_minus_opt -, $Vbot_minus_opt\n");
	$immodpg->setVbot_minus();

}


=head2 sub _setVbotNVtop_lower_layer_minus
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f

=cut

sub _setVbotNVtop_lower_layer_minus {

	$immodpg->set_widgets($immodpg_Tk);

	#	print("write VbotNVtop_lower_layer_minus -, $VbotNVtop_lower_layer_minus_opt \n");
	$immodpg->setVbotNVtop_lower_layer_minus();

}

=head2 sub _setVbotNVtop_lower_layer_plus
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f

=cut

sub _setVbotNVtop_lower_layer_plus {

	$immodpg->set_widgets($immodpg_Tk);

	# print("write VbotNVtop_lower_layer_plus +, $VbotNVtop_lower_layer_plus_opt \n");
	$immodpg->setVbotNVtop_lower_layer_plus();

}

=head2 sub _setVbot_plus
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f

=cut

sub _setVbot_plus {

	#	print("main  _setVbot_plus,Vbot_plus_opt +=$Vbot_plus_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVbot_plus();

}

=head2 sub _setVtop_minus
 callbacks
 setVtop_minus:
 modify gui
 set_option: 
 write out message for mmodpg.f
 set_change:
 set interactions with immodpg.f

=cut

sub _setVtop_minus {

	# print("write Vtop_minus_opt -, $Vtop_minus_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVtop_minus();

}

=head2 sub _setVtop_plus
 callbacks
 setVtop_plus:
 modify gui
 set_option: 
 write out message for mmodpg.f
 set_change:
 set interactions with immodpg.f

=cut

sub _setVtop_plus {

	# print("write Vtop_plus_opt +,$Vtop_plus_opt\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVtop_plus();

}

=head2 sub _setVbotNtop_minus
 callbacks
 setVtop_plus:
 modify gui
 set_option: 
 write out message for mmodpg.f
 set_change:
 set interactions with immodpg.f
 
 create pause between Vbot and Vtop changes

=cut

sub _setVbotNtop_minus {
	my ($self) = @_;
    
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVbotNtop_minus();
	
}

=head2 sub _setVbotNtop_plus
 callbacks
 write out message for mmodpg.f
 set_option and set_change
 set interactions with immodpg.f
 
=cut

sub _setVbotNtop_plus {

	# print("write VbotNVtop_plus +\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->setVbotNtop_plus();

}


=head2 sub _setVtopNVbot_upper_layer_minus
 callbacks
 setVtop_plus:
 modify gui
 set_option: 
 write out message for mmodpg.f
 set_change:
 set interactions with immodpg.f

=cut

sub _setVtopNVbot_upper_layer_minus {

	$immodpg->set_widgets($immodpg_Tk);
	# print("main,_setVtopNVbot_upper_layer_minus, write VtopNVbot_upper_layer_minus -,$VtopNVbot_upper_layer_minus_opt \n");
	$immodpg->setVtopNVbot_upper_layer_minus();
}

=head2 sub _setVtopNVbot_upper_layer_plus
 callbacks
 setVtop_plus:
 modify gui
 set_option: 
 write out message for mmodpg.f
 set_change:
 set interactions with immodpg.f

=cut

sub _setVtopNVbot_upper_layer_plus {

	$immodpg->set_widgets($immodpg_Tk);

	#	print("write VtopNVbot_upper_layer_plus +, $VtopNVbot_upper_layer_plus_opt \n");
	$immodpg->setVtopNVbot_upper_layer_plus();

}

=head2 sub _set_exit

 callbacks
 write out message for mmodpg.f
 write out
  saying goodbye
  clear old images
  kill window
  stop script

=cut

sub _set_exit {

lib/App/SeismicUnixGui/big_streams/immodpg.pl  view on Meta::CPAN

	
	# kill pgxwin_server
	$immodpg->exit();

	# kill mw window
	$mw->destroy() if Tk::Exists($mw);

}

=head2 sub _set_move_down
 callbacks
 write out message for mmodpg.f
 write out

=cut

sub _set_move_down {

	#	$move_down_button->focus;
	# print("write _set_move_down -\n");
	$immodpg->set_option($move_down_opt);
	$immodpg->set_change($yes);

}

=head2 sub _set_move_left
 callbacks
 write out message for mmodpg.f
 write out

=cut

sub _set_move_left {

	#	$move_left_button->focus;
	# print("write_set_move_left -\n");
	$immodpg->set_option($move_left_opt);
	$immodpg->set_change($yes);

}

=head2 sub _set_move_right
 callbacks
 write out message for mmodpg.f
 write out

=cut

sub _set_move_right {

	#	$move_right_button->focus;
	# print("write_set_move_right -\n");
	$immodpg->set_option($move_right_opt);
	$immodpg->set_change($yes);

}

=head2 sub _set_move_up
 callbacks
 write out message for mmodpg.f
 write out

=cut

sub _set_move_up {

	# print("write_set_move_up -\n");
	#	$move_up_button->focus;
	$immodpg->set_option($move_up_opt);

lib/App/SeismicUnixGui/big_streams/immodpg.pl  view on Meta::CPAN

	my ($self) = @_;

	#print("immodpg.pl,_set_update\n");
	$immodpg->set_widgets($immodpg_Tk);
	$immodpg->set_update();
	return ();
}

=head2 sub _set_zoom_minus
 callbacks
 write out message for mmodpg.f
 write out

=cut

sub _set_zoom_minus {

	# print("write_set_zoom_minus -\n");
	$immodpg->set_option($zoom_minus_opt);
	$immodpg->set_change($yes);

}

=head2 sub _set_zoom_plus
 callbacks
 write out message for mmodpg.f
 write out

=cut

sub _set_zoom_plus {

	# print("write _set_zoom_plus +\n");
	$immodpg->set_option($zoom_plus_opt);
	$immodpg->set_change($yes);