view release on metacpan or  search on metacpan

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

of Vp, thickness, and error switch from
immodpg.out for initial settings
in GUI

=cut

$immodpg->set_model_layer($layer);

my ( $Vp_ref, $dz, $error_switch ) = $immodpg->get_initialVp_dz4gui();

if ( $error_switch eq $off ) {
	# CASE 1 ALL OK
	
	my @V = @$Vp_ref;

	$Vbot_upper_layer = $V[0];
	$Vtop             = $V[1];
	$Vbot             = $V[2];
	$Vtop_lower_layer = $V[3];
	
	$thickness_m = $dz;

} elsif ( $error_switch eq $on ) {
		# CASE 2  BAD MODEL FILE
        print("immodpg.pl, CORRUPT immodpg.out (fortran binary model file)\n");
        
} else {
	print("immodpg.pl, unexpected variable\n");
}

=head2 Prepare su file
for input to immodpg.for
generate a binary file
	
=cut

$premmod->set_binary_strip();
$premmod->out_header_values();


=head2 Establish Main Window

=cut 
$mw->deiconify();
$mw->raise();
$mw->geometry("430x280+40+100");
$mw->title("immodpg2");
$mw->configure(
	-highlightcolor => 'blue',
	-background     => $var_L_SU->{_my_purple},
);
$mw->focusFollowsMouse;


=head2  top_settings frame

Contains:
(1) working layer
(2) z inc and V inc in m/s
 
help goes to superflow bindings 

=cut

my $Vlayer_frame = $mw->Frame(
	-borderwidth => $var_L_SU->{_no_borderwidth},
	-background  => $var_L_SU->{_my_purple},
	-relief      => 'groove',
);

=head2 Create

font types

=cut

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

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

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

my $arial_16 = $mw->fontCreate(
	'arial_16',
	-family => 'arial',
	-weight => 'normal',
	-size   => -16
);

my $arial_16_italic = $mw->fontCreate(
	'arial_16_italic',
	-family => 'arial',
	-slant  => 'italic',
	-weight => 'bold',
	-size   => -16
);
my $arial_18 = $mw->fontCreate(
	'arial_18',
	-family => 'arial',
	-weight => 'normal',
	-size   => -18
);

my $arial_18_italic = $mw->fontCreate(
	'arial_italic_18',