App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/iSave_picks.pm view on Meta::CPAN
use Tk;
use strict;
use App::SeismicUnixGui::misc::L_SU_global_constants;
my $get = L_SU_global_constants->new();
my $var = $get->var();
# Main Window
my $mw = MainWindow->new();
my $arial_14 = $mw->fontCreate(
'arial_14',
-family => 'arial',
-weight => 'bold',
-size => -14
);
$mw->configure( -background => $var->{_my_purple} );
use App::SeismicUnixGui::messages::message_director;
my $iPick_message = message_director->new();
my $message = $iPick_message->iPick(0);
$mw->messageBox(
-title => "iPick geopsy",
-font => $arial_14,
-message => $message,
-background => $var->{_my_yellow},
-default => 'oK',
);
print("iSave_picks,calc, $message\n");
}
}
# CASE 2 - normal case
elsif ( not defined $iSave_picks->{_purpose}
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
=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',
-family => 'arial',
-weight => 'normal',
-slant => 'italic',
-size => -18
);
my $arial_18_bold = $mw->fontCreate(
'arial_18_bold',
-family => 'arial',
-weight => 'bold',
-size => -18
);
=head2 Entry widgets
=cut
=head2 VbotEntry
=cut
my $VbotEntry = $mw->Entry(
-font => $arial_18,
-width => $var_L_SU->{_7_characters},
-background => $var_L_SU->{_my_black},
-foreground => $var_L_SU->{_my_white},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$Vbot,
);
# print("main,VbotEntry= $VbotEntry\n");
=head2 VbotEntry
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-validate => 'focus',
-validatecommand => \&_setVbot,
-invalidcommand => sub { print "VbotEntry_box,ERROR.\n" },
);
=head2 Vbot_upper_layerEntry
=cut
my $Vbot_upper_layerEntry = $mw->Entry(
-font => $arial_18,
-width => $var_L_SU->{_7_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$Vbot_upper_layer,
);
=head2 Vbot_upper_layerEntry
MUST first be created before it can be used by
a callback subroutine
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-validate => 'focus',
-validatecommand => \&_setVbot_upper_layer,
-invalidcommand => sub { print "Vbot_upper_layerEntry_box,ERROR.\n" },
);
=head2 VincrementEntry
=cut
my $VincrementEntry = $mw->Entry(
-font => $arial_16,
-width => $var_L_SU->{_4_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$Vincrement_mps,
);
=head2 VincrementEntry
MUST first be created before it can be used by
a callback subroutine
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
$VincrementEntry->configure(
-validate => 'focus',
-validatecommand => \&_setVincrement,
-invalidcommand => sub { print "Vincrement_box,ERROR.\n" },
);
=head2 VtopEntry
=cut
my $VtopEntry = $mw->Entry(
-font => $arial_18,
-width => $var_L_SU->{_7_characters},
-background => $var_L_SU->{_my_black},
-foreground => $var_L_SU->{_my_white},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$Vtop,
);
=head2 VtopEntry
MUST first be created before it can be used by
a callback subroutine
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-validate => 'focus',
-validatecommand => \&_setVtop,
-invalidcommand => sub { print "Vtop_box,ERROR.\n" },
);
=head2 VbotNtop_factorEntry
=cut
my $VbotNtop_factorEntry = $mw->Entry(
-font => $arial_16,
-width => $var_L_SU->{_4_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$VbotNtop_factor,
);
=head2 VbotNtop_factorEntry
MUST first be created before it can be used by
a callback subroutine
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-validate => 'focus',
-validatecommand => \&_setVbotNtop_factor,
-invalidcommand => sub { print "VtopNbit_box,ERROR.\n" },
);
=head2 Vtop_lower_layerEntry
=cut
my $Vtop_lower_layerEntry = $mw->Entry(
-font => $arial_18,
-width => $var_L_SU->{_7_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$Vtop_lower_layer,
);
=head2 Vtop_lower_layerEntry
MUST first be created before it can be used by
a callback subroutine
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-validate => 'focus',
-validatecommand => \&_setVtop_lower_layer,
-invalidcommand => sub { print "Vtop_lower_layerEntry_box,ERROR.\n" },
);
=head2 clip4plotEntry
=cut
my $clip4plotEntry = $mw->Entry(
-font => $arial_16,
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$clip4plot,
);
=head2 clip4plotEntry
MUST first be created before it can be used by
a callback subroutine
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-validate => 'focus',
-validatecommand => \&_set_clip,
-invalidcommand => sub { print "clip_box,ERROR.\n" },
);
=head2 layerEntry
=cut
my $layerEntry = $mw->Entry(
-font => $arial_18,
-justify => 'center',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_black},
-foreground => $var_L_SU->{_my_white},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$layer,
);
=head2 layerEntry
MUST first be created before it can be used by
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-validate => 'focus',
-validatecommand => \&_set_layer,
-invalidcommand => sub { print "layer_box,ERROR.\n" },
);
=head2 lower_layerLabel
=cut
my $lower_layerLabel = $mw->Label(
-font => $arial_18,
-justify => 'center',
-width => $var_L_SU->{_4_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$lower_layer,
);
=head2 lower_layerLabel widget will be updated
in immodpg
=cut
$immodpg_Tk->{_lower_layerLabel} = $lower_layerLabel;
=head2 Entry _thickness_increment_mEntryEntry
=cut
my $thickness_increment_mEntry = $mw->Entry(
-font => $arial_16,
-width => $var_L_SU->{_4_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$thickness_increment_m,
);
=head2 thickness_increment_mEntry
MUST first be created before it can be used by
a callback subroutine
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-validate => 'focus',
-validatecommand => \&_set_thickness_increment_m,
-invalidcommand => sub { print "thickness_increment_box,ERROR.\n" },
);
=head2 thickness_mEntry
=cut
my $thickness_mEntry = $mw->Entry(
-font => $arial_18,
-width => $var_L_SU->{_4_characters},
-background => $var_L_SU->{_my_black},
-foreground => $var_L_SU->{_my_white},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$thickness_m,
);
=head2 thickness_mEntry
MUST first be created before it can be used by
a callback subroutine
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-validate => 'focus',
-validatecommand => \&_set_thickness_m,
-invalidcommand => sub { print "thickness_increment_box,ERROR.\n" },
);
=head2 thickness_mLabel
=cut
my $thickness_mLabel = $mw->Label(
-font => $arial_18_italic,
-justify => 'right',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
-text => ' thickness (m)',
);
=head2 upper_layerLabel
=cut
my $upper_layerLabel = $mw->Label(
-font => $arial_18,
-justify => 'center',
-width => $var_L_SU->{_4_characters},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-borderwidth => $var_L_SU->{_no_borderwidth},
-textvariable => \$upper_layer,
);
=head2 upper_layerLabel widget will be update
in immodpg
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
=head2 Buttons widgets
=cut
=head2
row index=0
=cut
$exit_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
-border => 0,
-padx => 0,
-pady => 0,
-text => 'Exit',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_yellow},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_black},
-activeforeground => $var_L_SU->{_my_black},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_set_exit ],
);
=head2
row index
=cut
$move_down_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
-border => 0,
-padx => 0,
-pady => 0,
-text => 'down',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
-activeforeground => $var_L_SU->{_my_white},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_set_move_down ],
);
=head2
row index
=cut
$move_left_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '<--',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_set_move_left ],
);
=head2
row index
=cut
$move_right_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-->',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_set_move_right ],
);
=head2
row index
=cut
$move_up_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => 'up',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_set_move_up ],
);
=head2
row index 1-2 col 3
=cut
$VtopNVbot_upper_layer_plus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_setVtopNVbot_upper_layer_plus ],
);
=head2
row index 3-4 col 4
=cut
$VtopNVbot_upper_layer_minus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_setVtopNVbot_upper_layer_minus ],
);
=head2
row index 2, col 6
=cut
$Vtop_plus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_setVtop_plus ],
);
=head2
row index
=cut
$VbotNtop_plus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-command => [ \&_setVbotNtop_plus ],
);
=head2
row index
=cut
$Vbot_plus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-command => [ \&_setVbot_plus ],
);
=head2
row index
=cut
$VbotNVtop_lower_layer_plus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_one_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_one_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
);
=head2
row index
=cut
$VbotNVtop_lower_layer_minus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_one_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_one_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-command => [ \&_setVbotNVtop_lower_layer_minus ],
);
=head2 VbotNtop_multiply_button
row index = 1 col 2
=cut
$VbotNtop_multiply_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => 'x',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_setVbotNtop_multiply ],
);
=head2
row index = 1 col 2
=cut
$VbotNtop_minus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_setVbotNtop_minus ],
);
=head2
row index = 2 col 7
=cut
$Vtop_minus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_one_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_one_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-command => [ \&_setVtop_minus ],
);
=head2
row index = 3 col 7
=cut
$Vbot_minus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_one_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_one_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-command => [ \&_setVbot_minus ],
);
=head2
row index
=cut
$thickness_m_minus_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_set_thickness_m_minus ],
);
=head2
row index
=cut
$thickness_m_plus_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_set_thickness_m_plus ],
);
=head2
row index=5
=cut
$update_button = $mw->Button(
-font => $arial_14_bold,
-height => $var_L_SU->{_1_character},
-border => 0,
-padx => 0,
-pady => 0,
-text => 'Update',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_yellow},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_black},
-activeforeground => $var_L_SU->{_my_black},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_set_update ],
);
=head2 zoom_minus_button
row index 1-2 col 3
=cut
$zoom_minus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '-',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
-state => 'active',
-command => [ \&_set_zoom_minus ],
);
=head2 zoom_plus_button
row index 1-2 col 3
=cut
$zoom_plus_button = $mw->Button(
-font => $arial_18_bold,
-height => $var_L_SU->{_1_character},
# -border => 0,
-padx => 0,
-pady => 0,
-text => '+',
-width => $var_L_SU->{_1_character},
-background => $var_L_SU->{_my_light_grey},
-foreground => $var_L_SU->{_my_black},
-disabledforeground => $var_L_SU->{_my_dark_grey},
lib/App/SeismicUnixGui/big_streams/immodpg.pl view on Meta::CPAN
=head2 Label widgets
=cut
=head2 Label
widget box for Vbot of upper layer
=cut
my $Vbot_upper_label = $mw->Label(
-font => $arial_18,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'Vbot',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
widget box for Vincrement
=cut
my $Vincrement_label = $mw->Label(
-font => $arial_16_italic,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'Vinc (m/s)',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
#widget box for Vtop
=cut
my $Vtop_label = $mw->Label(
-font => $arial_18_bold,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'Vtop',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
widget box for Vtop of lower layer
=cut
my $Vtop_lower_layer_label = $mw->Label(
-font => $arial_18,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'Vtop',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
widget box for Vbot
=cut
my $Vbot_label = $mw->Label(
-font => $arial_18_bold,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'Vbot',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
factor
=cut
my $VbotNtop_factor_label = $mw->Label(
-font => $arial_16_italic,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'Vfactor',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
clip4plot
=cut
my $clip4plot_label = $mw->Label(
-font => $arial_16_italic,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'clip',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
widget box for thicknes increment
=cut
my $thickness_increment_m_label = $mw->Label(
-font => $arial_16_italic,
-padx => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => 'inc (m)',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
empty
=cut
my $empty_label = $mw->Label(
-font => $arial_14,
-pady => $var_L_SU->{_3_pixels},
-height => $var_L_SU->{_1_character},
-width => $var_L_SU->{_4_characters},
-text => '',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_my_purple},
);
=head2 Label
widget box for Layer number
=cut
my $layerLabel = $mw->Label(
-font => $arial_18_italic,
-justify => 'left',
# -padx => $var_L_SU->{_3_pixels},
# -height => $var_L_SU->{_1_character},
# -width => $var_L_SU->{_2_characters},
-text => 'layer',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
widget box for Layer number
=cut
my $move_label = $mw->Label(
-font => $arial_14_italic,
-justify => 'center',
# -padx => $var_L_SU->{_3_pixels},
# -height => $var_L_SU->{_1_character},
# -width => $var_L_SU->{_2_characters},
-text => 'move',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
widget box for velocity m/s
=cut
my $velocity_label = $mw->Label(
-font => $arial_18_italic,
-justify => 'center',
# -padx => $var_L_SU->{_3_pixels},
# -height => $var_L_SU->{_1_character},
# -width => $var_L_SU->{_2_characters},
-text => 'Vp m/s',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
=head2 Label
widget box for Layer number
=cut
my $zoom_label = $mw->Label(
-font => $arial_14_italic,
-justify => 'center',
# -padx => $var_L_SU->{_3_pixels},
# -height => $var_L_SU->{_1_character},
# -width => $var_L_SU->{_2_characters},
-text => 'zoom',
-borderwidth => $var_L_SU->{_1_pixel},
-background => $var_L_SU->{_light_gray},
);
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
The message does not release the program
until OK is clicked and wait variable changes from yes
to no.
=cut
sub initialize_messages {
my ($self) = @_;
my $arial_14_b = ( $immodpg->{_mw} )->fontCreate(
'arial_14_b',
-family => 'arial',
-weight => 'bold',
-size => -14
);
=head2 message box
withdraw temporarily while filling
with widgets
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
-borderwidth => $var_L_SU->{_no_borderwidth},
-background => $var_L_SU->{_my_yellow},
);
$immodpg->{_message_lower_frame} = $immodpg->{_message_box_w}->Frame(
-borderwidth => $var_L_SU->{_no_borderwidth},
-background => $var_L_SU->{_my_yellow},
-height => '10',
);
$immodpg->{_message_label_w} = $immodpg->{_message_upper_frame}->Label(
-background => $var_L_SU->{_my_yellow},
-font => $arial_14_b,
-justify => 'left',
);
$immodpg->{_message_box_wait} = $var_L_SU->{_yes};
$immodpg->{_message_ok_button} = $immodpg->{_message_box_w}->Button(
-text => "ok",
-font => $arial_14_b,
-command => sub {
$immodpg->{_message_box_w}->grabRelease;
$immodpg->{_message_box_w}->withdraw;
},
);
=head2 Pack message box
This Toplevel window has
geometry that is independent
of the main window widget.
lib/App/SeismicUnixGui/configs/plot/elaps.config view on Meta::CPAN
fxnum =
fznum =
gedge = 0.0
gmax = 1.0
gmin = 0.0
gridcolor = black
gridx = none
gridz = none
gtri = 1.0
hbox = 8.0
labelfont = Helvetica
labelsize = 12
labelx = labelx
labelz = labelz
nxtic = 1
nztic = 1
p = 0
pgmax =
pgmin =
style = seismic
title = title
titlecolor = black
titlefont = Helvetica-Bold
titlesize = 24
wbox = 6.0
xbeg =
xbox = 1.5
xend =
ybox = 1.5
zbeg =
zend =
lib/App/SeismicUnixGui/configs/plot/pscontour.config view on Meta::CPAN
fc = -1000
grid1 = none
grid2 = none
gridcolor = black
gridwidth =
hbox = 8.0
label1 = label
label2 = label
labelccolor = black
labelcf = 1
labelcfont = Helvetica-Bold
labelcper = 1
labelcsize = 6
labelfont = Helvetica
labelsize = 18
n1 =
n1tic = 1
n2 = all
n2tic = 1
nc = 5
nlabelc =
nplaces = 6
style = seismic
ticwidth = axeswidth
title = title
titlecolor = black
titlefont = Helvetica-Bold
titlesize = 24
wbox = 6.0
x1 =
x1beg =
x1end =
x2 =
x2beg =
x2end =
xbox = 1.5
ybox = 1.5
lib/App/SeismicUnixGui/configs/plot/pscube.config view on Meta::CPAN
f3num =
faces = 0
front =
grid1 = none
grid2 = none
grid3 = none
gridcolor = black
label1 = label
label2 = label
label3 = label
labelfont = Helvetica
labelsize = 18
lbeg =
ldnum = 0.0
legend = 0
legendfont = times_roman10
lend =
lfnum =
lgrid = none
lheight =
lntic = 1
lstyle = 0.
lwidth = 1.2
lx = 1.0
ly =
n1 =
lib/App/SeismicUnixGui/configs/plot/pscube.config view on Meta::CPAN
n2tic = 1
n3 =
n3tic = 1
perc = 100.0
side =
size1 = 4.0
size2 = 4.0
size3 = 3.0
title = title
titlecolor = black
titlefont = Helvetica-Bold
titlesize = 24
top =
units = unit
verbose = 1
wclip =
whls = 0.0,1.0,0.0
wperc = 100.0
wrgb = 1.0,1.0,1.0
x1beg =
x1end =
lib/App/SeismicUnixGui/configs/plot/pscubecontour.config view on Meta::CPAN
front =
grid1 = none
grid2 = none
grid3 = none
gridcolor = black
label1 = label
label2 = label
label3 = label
labelccolor = black
labelcf = 1
labelcfont = Helvetica-Bold
labelcper = 1
labelcsize = 6
labelfont = Helvetica
labelsize = 18
n1 =
n1tic = 1
n2 =
n2tic = 1
n3 = 63
n3tic = 1
nc = 5
nlabelc =
nplaces = 6
side =
size1 = 4.0
size2 = 4.0
size3 = 3.0
title = title
titlecolor = black
titlefont = Helvetica-Bold
titlesize = 24
top =
x1beg =
x1end =
x2beg =
x3end =
xbox = 1.5
ybox = 1.5
lib/App/SeismicUnixGui/configs/plot/psgraph.config view on Meta::CPAN
f2 =
f2num =
grid1 = none
grid2 = none
gridcolor = black
gridwidth = axeswidth
hbox = 8.0
i = 1
label1 = label
label2 = label
labelfont = Helvetica
labelsize = 18
linecolor =
linegray =
lineoff =
lineon =
linewidth =
mark =
marksize =
n =
n1tic = 1
n2tic = 1
nplot =
pairs =
reverse = 0
style = normal
ticwidth = axeswidth
title = title
titlecolor = black
titlefont = Helvetica-Bold
titlesize = 24
wbox = 6.0
x1beg =
x1end =
x2beg =
x2end =
xbox = 1.5
ybox = 1.5
lib/App/SeismicUnixGui/configs/plot/psimage.config view on Meta::CPAN
ghls = 0.0,1.0,0.0
grgb = 1.0,1.0,1.0
grid1 = none
grid2 = none
gridcolor = black
gridwidth =
height = 8.0
infile = none
label1 = label
label2 = label
labelfont = Helvetica
labelsize = 18
lbeg =
ldnum = 0.0
legend = 0
legendfont = times_roman10
lend =
lfnum =
lgrid = none
lheight =
lnice = 0
lntic = 1
lstyle = 0.
lwidth = 1.2
lx = 1.0
ly =
lib/App/SeismicUnixGui/configs/plot/psimage.config view on Meta::CPAN
n1tic = 1
n2 =
n2tic = 1
npair =
perc = 100.0
style = seismic
threecolor = 1
ticwidth =
title = title
titlecolor = black
titlefont = Helvetica-Bold
titlesize = 24
units = unit
verbose = 1
wclip =
whls = 0.0,1.0,0.0
width = 6.0
wperc = 100.0
wrgb = 0.0,0,1.0
x1beg =
x1end =
lib/App/SeismicUnixGui/configs/plot/psmovie.config view on Meta::CPAN
f1 = 0.0
f1num =
f2 = 0.0
f2num =
f3 =
grid1 = none
grid2 = none
hbox = 8.0
label1 = label
label2 = label
labelfont = Helvetica
labelsize = 18
loopdsp = 3
n1 =
n1tic = 1
n2 = all
n2tic = 1
n3 = 1
perc = 100.0
style = seismic
title = title
title2 = second
titlefont = Helvetica-Bold
titlesize = 24
verbose = 1
wbox = 6.0
wclip =
wperc = 100.0
x1beg =
x1end =
x2beg =
x2end =
xbox = 1.0
lib/App/SeismicUnixGui/configs/plot/pswigb.config view on Meta::CPAN
f2 = 0.0
f2num =
grid1 = none
grid2 = none
gridcolor = black
gridwidth = axeswidth
hbox = 8.0
interp = 0
label1 = label
label2 = label
labelfont = Helvetica
labelsize = 18
n1 = [optional
n1tic = 1
n2 = all
n2tic = 1
nbpi = 72
npair =
perc = 100.0
style = seismic
ticwidth = axeswidth
title = title
titlecolor = black
titlefont = Helvetica-Bold
titlesize = 24
va = 2
verbose = 1
wbox = 6.0
wt = 1
x1beg =
x1end =
x2 =
x2beg =
x2end =
lib/App/SeismicUnixGui/configs/plot/pswigp.config view on Meta::CPAN
f2 = 0.0
f2num =
fill = 1
grid1 = none
grid2 = none
gridcolor = black
gridwidth = axeswidth
hbox = 8.0
label1 = label
label2 = label
labelfont = Helvetica
labelsize = 18
linewidth = 0.0
n1 =
n1tic = 1
n2 = all
n2tic = 1
npair =
perc = 100.0
style = seismic
ticwidth = axeswidth
title = title
titlecolor = black
titlefont = Helvetica-Bold
titlesize = 24
tracecolor = black
verbose = 1
wbox = 6.0
x1beg =
x1end =
x2 =
x2beg =
x2end =
xbox = 1.5
lib/App/SeismicUnixGui/configs/plot/spsplot.config view on Meta::CPAN
fxnum =
fznum =
gedge = 0.0
gmax = 1.0
gmin = 0.0
gridcolor = black
gridx = none
gridz = none
gtri = 1.0
hbox = 8.0
labelfont = Helvetica
labelsize = 12
labelx = label
labelz = label
nxtic = 1
nztic = 1
sgmax =
sgmin =
style = seismic
title = title
titlecolor = black
titlefont = Helvetica-Bold
titlesize = 24
wbox = 6.0
xbeg =
xbox = 1.5
xend =
ybox = 1.5
zbeg =
zend =
lib/App/SeismicUnixGui/configs/plot/supswigb.config view on Meta::CPAN
first_distance_sample_value|f2|pmin =
first_distance_tick_num|f2num =
grid1 =
grid2 =
gridcolor =
gridwidth =
headerword|key =
hiclip|bclip =
interp =
labelcolor =
labelfont = Helvetica
labelsize = 24
loclip|wclip =
n1 =
n2 =
nbpi = 72
npair =
num_minor_ticks_betw_time_ticks|n1tic =
num_minor_ticks_betw_distance_ticks|n2tic =
orientation|style = 'seismic'
percent|perc =
pick|mpicks =
plotfile =
shading|va =
title = 'nu'
tend_s|x1end =
ticwidth =
tstart_s|x1beg =
titlefont = Helvetica-Bold
titlecolor =
titlesize = 24
tmpdir =
trace_inc|d2|dx|dp =
va = 2
verbose =
wt =
x_tick_increment |d2num =
x2 =
xcur =
lib/App/SeismicUnixGui/configs/plot/supswigp.config view on Meta::CPAN
first_time_sample_value|f1 =
first_distance_sample_value|f2|pmin =
first_distance_tick_num|f2num =
grid1 =
grid2 =
gridcolor =
headerword|key =
hiclip|bclip =
interp =
labelcolor =
labelfont =
loclip|wclip =
n1 =
n2 =
npair =
num_minor_ticks_betw_time_ticks|n1tic =
num_minor_ticks_betw_distance_ticks|n2tic =
orientation|style = 'seismic'
percent|perc =
pick|mpicks =
plotfile =
shading|va =
title = 'nu'
tend_s|x1end =
tstart_s|x1beg =
titlefont =
titlecolor =
tmpdir =
trace_inc|d2|dx|dp =
wt =
x_tick_increment |d2num =
x2 =
xcur =
xend_m|x2end =
xlabel|label2 =
xstart_m|x2beg =
lib/App/SeismicUnixGui/configs/plot/suximage.config view on Meta::CPAN
first_distance_sample_value|f2 =
first_distance_tick_num|f2num =
grid1 =
grid2 =
gridcolor = 'blue'
headerword|key =
infile =
ylabel|label1 = 'nu'
xlabel|label2 = 'nu'
labelcolor = 'blue'
labelfont = 'Erg14'
legend = 1
legendfont = 'times_roman10'
lheight =
lwidth = 16
lx = 3
ly =
picks|mpicks = '/dev/tty'
n1 =
num_minor_ticks_betw_time_ticks|n1tic = 1
n2 =
num_minor_ticks_betw_distance_ticks|n2tic = 1
npair =
percent4clip|perc = 100.0
plotfile = 'plotfile.ps'
orientation|style = 'seismic'
title = 'suximage'
titlecolor = 'red'
titlefont = 'Rom22'
tmpdir =
tstart_s|x1beg =
tend_s|x1end =
units = 'unit'
verbose = 1
windowtitle = 'suximage'
wperc =
xstart_m|x2beg =
xend_m|x2end =
box_X0|xbox = 500
lib/App/SeismicUnixGui/configs/plot/suxwigb.config view on Meta::CPAN
first_time_sample_value|f1 =
first_distance_sample_value|f2|pmin =
first_distance_tick_num|f2num =
grid1 =
grid2 =
gridcolor =
headerword|key =
hiclip|bclip =
interp =
labelcolor =
labelfont =
loclip|wclip =
n1 =
n2 =
npair =
num_minor_ticks_betw_time_ticks|n1tic =
num_minor_ticks_betw_distance_ticks|n2tic =
orientation|style = 'seismic'
percent|perc =
pick|mpicks =
plotfile =
shading|va =
title = 'nu'
tend_s|x1end =
tstart_s|x1beg =
titlefont =
titlecolor =
tmpdir =
trace_inc|d2|dx|dp =
windowtitle = 'nu'
wt =
x_tick_increment |d2num =
x2 =
xcur =
xend_m|x2end =
xlabel|label2 =
lib/App/SeismicUnixGui/configs/plot/xcontour.config view on Meta::CPAN
f2 =
f2num =
fc =
grid1 =
grid2 =
gridcolor =
hbox =
label2 =
labelccolor =
labelcf =
labelcfont =
labelcolor =
labelcper =
labelfont =
mpicks =
n1 =
n1tic =
n2 =
n2tic =
nc =
nlabelc =
nplaces =
style =
title =
titlecolor =
titlefont =
verbose =
wbox =
windowtitle =
x1 =
x1beg =
x1end =
x2 =
x2beg =
x2end =
xbox =
lib/App/SeismicUnixGui/configs/plot/ximage.config view on Meta::CPAN
f2 = 0.0
f2num =
grid1 =
grid2 =
gridcolor =
hbox = 700
hiclip =
label1|ylabel =
label2|xlabel = 'X''
labelcolor = 'blue'
labelfont = 'Erg14'
legend = 0
legendfont = 'times_roman10'
lheight =
loclip =
lwidth =
lx =
ly =
mpicks = '/dev/tty'
n1 =
n1tic = 1
n2 =
n2tic = 1
npair =
perc =
plotfile = 'plotfile.ps'
style = 'seismic'
title = 'title'
titlecolor = 'red'
titlefont = 'Rom22'
units = 'unit'
verbose = 0
wbox = 550
windowtitle = 'ximage'
wperc =
x1beg =
x1end =
x2beg =
x2end =
xbox = 500
lib/App/SeismicUnixGui/configs/plot/xpicker.config view on Meta::CPAN
f2num =
grid1 =
grid2 =
gridcolor =
hbox =
interp =
key =
label1 =
label2 =
labelcolor =
labelfont =
mpicks =
n1 =
n1tic =
n2 =
n2tic =
perc =
picked =
style =
title =
titlecolor =
titlefont =
va =
verbose =
wbox =
wt =
x1beg =
x1end =
x1x2 =
x2 =
x2beg =
x2end =
lib/App/SeismicUnixGui/configs/plot/xwigb.config view on Meta::CPAN
f1num =
f2 = 0.0
f2num =
grid1 =
grid2 =
gridcolor = 'blue'
hbox = 700
interp = 0
label2 = 'label'
labelcolor = 'blue'
labelfont = 'Erg14'
mpicks = '/dev/tty'
n1 =
n1tic = 1
n2 = 'all'
n2tic = 1
npair =
perc = 100.0
plotfile = 'plotfile.ps'
style = 'normal'
title = 'title'
titlecolor = 'red'
titlefont = 'Rom22'
va = 2
verbose = 0
wbox = 550
wigclip = 0
windowtitle = 'xwigb'
wt = 1
x1beg =
x1end =
x2 =
x2beg =
lib/App/SeismicUnixGui/developer/Stripped/model/sxplot.xtri view on Meta::CPAN
Optional resource parameters (defaults taken from resource database):
width= width in pixels of window
height= height in pixels of window
nTic1= number of tics per numbered tic on axis 1
grid1= grid lines on axis 1 - none, dot, dash, or solid
label1= label on axis 1
nTic2= number of tics per numbered tic on axis 2
grid2= grid lines on axis 2 - none, dot, dash, or solid
label2= label on axis 2
labelFont= font name for axes labels
title= title of plot
titleFont= font name for title
titleColor= color for title
axesColor= color for axes
gridColor= color for grid lines
style= normal (axis 1 horizontal, axis 2 vertical) or
seismic (axis 1 vertical, axis 2 horizontal)
Author: Dave Hale, Colorado School of Mines, 05/17/91
lib/App/SeismicUnixGui/developer/Stripped/plot/elaps.Trielas.graphics.psplot view on Meta::CPAN
nxtic=1 number of tics per numbered tic on x axis
gridx=none grid lines on x axis - none, dot, dash, or solid
labelx= label on x axis
zbeg=zmin value at which z axis begins
zend=zmax value at which z axis ends
dznum=0.0 numbered tic interval on z axis (0.0 for automatic)
fznum=zmin first numbered tic on z axis (used if dynum not 0.0)
nztic=1 number of tics per numbered tic on z axis
gridz=none grid lines on z axis - none, dot, dash, or solid
labelz= label on z axis
labelfont=Helvetica font name for axes labels
labelsize=12 font size for axes labels
title= title of plot
titlecolor=black color of title
axescolor=black color of axes
gridcolor=black color of grid ",
titlefont=Helvetica-Bold font name for title
titlesize=24 font size for title
style=seismic normal (z axis horizontal, x axis vertical) or
seismic (z axis vertical, x axis horizontal)
Author: Dave Hale, Colorado School of Mines, 10/18/90
modified: Andreas Rueger, Colorado School of Mines, 01/25/94
lib/App/SeismicUnixGui/developer/Stripped/plot/pscontour.psplot.main view on Meta::CPAN
n1tic=1 number of tics per numbered tic on axis 1
grid1=none grid lines on axis 1 - none, dot, dash, or solid
label1= label on axis 1
x2beg=x2min value at which axis 2 begins
x2end=x2max value at which axis 2 ends
d2num=0.0 numbered tic interval on axis 2 (0.0 for automatic)
f2num=x2min first numbered tic on axis 2 (used if d2num not 0.0)
n2tic=1 number of tics per numbered tic on axis 2
grid2=none grid lines on axis 2 - none, dot, dash, or solid
label2= label on axis 2
labelfont=Helvetica font name for axes labels
labelsize=18 font size for axes labels
title= title of plot
titlefont=Helvetica-Bold font name for title
titlesize=24 font size for title
labelcfont=Helvetica-Bold font name for contour labels
labelcsize=6 font size of contour labels
labelccolor=black color of contour labels
titlecolor=black color of title
axescolor=black color of axes
gridcolor=black color of grid
axeswidth=1 width (in points) of axes
ticwidth=axeswidth width (in points) of tic marks
gridwidth=axeswidth width (in points) of grid lines
style=seismic normal (axis 1 horizontal, axis 2 vertical) or
seismic (axis 1 vertical, axis 2 horizontal)
Note.
The line width of unlabeled contours is designed as a quarter of that
of labeled contours.
All color specifications may also be made in X Window style Hex format
example: axescolor=#255
Legal font names are:
AvantGarde-Book AvantGarde-BookOblique AvantGarde-Demi AvantGarde-DemiOblique"
Bookman-Demi Bookman-DemiItalic Bookman-Light Bookman-LightItalic
Courier Courier-Bold Courier-BoldOblique Courier-Oblique
Helvetica Helvetica-Bold Helvetica-BoldOblique Helvetica-Oblique
Helvetica-Narrow Helvetica-Narrow-Bold Helvetica-Narrow-BoldOblique
Helvetica-Narrow-Oblique NewCentrySchlbk-Bold"
NewCenturySchlbk-BoldItalic NewCenturySchlbk-Roman Palatino-Bold
Palatino-BoldItalic Palatino-Italics Palatino-Roman
SanSerif-Bold SanSerif-BoldItalic SanSerif-Roman
Symbol Times-Bold Times-BoldItalic
lib/App/SeismicUnixGui/developer/Stripped/plot/pscube.psplot.main view on Meta::CPAN
f2num=x2min first numbered tic on axis 2 (used if d2num not 0.0)
n2tic=1 number of tics per numbered tic on axis 2
grid2=none grid lines on axis 2 - none, dot, dash, or solid
label2= label on axis 2
x3end=x3max value at which axis 3 ends
d3num=0.0 numbered tic interval on axis 3 (0.0 for automatic)
f3num=x3min first numbered tic on axis 3 (used if d3num not 0.0)
n3tic=1 number of tics per numbered tic on axis 3
grid3=none grid lines on axis 3 - none, dot, dash, or solid
label3= label on axis 3
labelfont=Helvetica font name for axes labels
labelsize=18 font size for axes labels
title= title of plot
titlefont=Helvetica-Bold font name for title
titlesize=24 font size for title
titlecolor=black color of title
axescolor=black color of axes
gridcolor=black color of grid
legend=0 =1 display the color scale
if equals 1, resize xbox,ybox,width,height
lstyle=vertleft Vertical, axis label on left side
=vertright (Vertical, axis label on right side)
=horibottom (Horizontal, axis label on bottom)
units= unit label for legend
legendfont=times_roman10 font name for title
following are defaults for lstyle=0. They are changed for other lstyles
lwidth=1.2 colorscale (legend) width in inches
lheight=height/3 colorscale (legend) height in inches
lx=1.0 colorscale (legend) x-position in inches
ly=(height-lheight)/2+xybox colorscale (legend) y-position in pixels
lbeg= lmin or wclip-5*perc value at which legend axis begins
lend= lmax or bclip+5*perc value at which legend axis ends
ldnum=0.0 numbered tic interval on legend axis (0.0 for automatic)
lfnum=lmin first numbered tic on legend axis (used if d1num not 0.0)
lntic=1 number of tics per numbered tic on legend axis
lgrid=none grid lines on legend axis - none, dot, dash, or solid
All color specifications may also be made in X Window style Hex format
example: axescolor=#255
Legal font names are:
AvantGarde-Book AvantGarde-BookOblique AvantGarde-Demi AvantGarde-DemiOblique"
Bookman-Demi Bookman-DemiItalic Bookman-Light Bookman-LightItalic
Courier Courier-Bold Courier-BoldOblique Courier-Oblique
Helvetica Helvetica-Bold Helvetica-BoldOblique Helvetica-Oblique
Helvetica-Narrow Helvetica-Narrow-Bold Helvetica-Narrow-BoldOblique
Helvetica-Narrow-Oblique NewCentrySchlbk-Bold"
NewCenturySchlbk-BoldItalic NewCenturySchlbk-Roman Palatino-Bold
Palatino-BoldItalic Palatino-Italics Palatino-Roman
SanSerif-Bold SanSerif-BoldItalic SanSerif-Roman
Symbol Times-Bold Times-BoldItalic
lib/App/SeismicUnixGui/developer/Stripped/plot/pscubecontour.psplot.main view on Meta::CPAN
f2num=x2min first numbered tic on axis 2 (used if d2num not 0.0)
n2tic=1 number of tics per numbered tic on axis 2
grid2=none grid lines on axis 2 - none, dot, dash, or solid
label2= label on axis 2
x3end=x3max value at which axis 3 ends
d3num=0.0 numbered tic interval on axis 3 (0.0 for automatic)
f3num=x3min first numbered tic on axis 3 (used if d3num not 0.0)
n3tic=1 number of tics per numbered tic on axis 3
grid3=none grid lines on axis 3 - none, dot, dash, or solid
label3= label on axis 3
labelfont=Helvetica font name for axes labels
labelsize=18 font size for axes labels
title= title of plot
titlefont=Helvetica-Bold font name for title
titlesize=24 font size for title
titlecolor=black color of title
labelcfont=Helvetica-Bold font name for contour labels
labelcsize=6 font size of contour labels
labelccolor=black color of contour labels
axescolor=black color of axes
gridcolor=black color of grid
All color specifications may also be made in X Window style Hex format
example: axescolor=#255
Note: The values of x1beg=x1min, x2end=x2max and x3beg=x3min cannot
be changed.
Legal font names are:
AvantGarde-Book AvantGarde-BookOblique AvantGarde-Demi AvantGarde-DemiOblique"
Bookman-Demi Bookman-DemiItalic Bookman-Light Bookman-LightItalic
Courier Courier-Bold Courier-BoldOblique Courier-Oblique
Helvetica Helvetica-Bold Helvetica-BoldOblique Helvetica-Oblique
Helvetica-Narrow Helvetica-Narrow-Bold Helvetica-Narrow-BoldOblique
Helvetica-Narrow-Oblique NewCentrySchlbk-Bold"
NewCenturySchlbk-BoldItalic NewCenturySchlbk-Roman Palatino-Bold
Palatino-BoldItalic Palatino-Italics Palatino-Roman
SanSerif-Bold SanSerif-BoldItalic SanSerif-Roman
Symbol Times-Bold Times-BoldItalic
lib/App/SeismicUnixGui/developer/Stripped/plot/psgraph.psplot.main view on Meta::CPAN
n1tic=1 number of tics per numbered tic on axis 1
grid1=none grid lines on axis 1 - none, dot, dash, or solid
label1= label on axis 1
x2beg=x2min value at which axis 2 begins
x2end=x2max value at which axis 2 ends
d2num=0.0 numbered tic interval on axis 2 (0.0 for automatic)
f2num=x2min first numbered tic on axis 2 (used if d2num not 0.0)
n2tic=1 number of tics per numbered tic on axis 2
grid2=none grid lines on axis 2 - none, dot, dash, or solid
label2= label on axis 2
labelfont=Helvetica font name for axes labels
labelsize=18 font size for axes labels
title= title of plot
titlefont=Helvetica-Bold font name for title
titlesize=24 font size for title
titlecolor=black color of title
axescolor=black color of axes
gridcolor=black color of grid
axeswidth=1 width (in points) of axes
ticwidth=axeswidth width (in points) of tic marks
gridwidth=axeswidth width (in points) of grid lines
style=normal normal (axis 1 horizontal, axis 2 vertical) or
seismic (axis 1 vertical, axis 2 horizontal)
reverse=0 =1 to reverse sequence of plotting curves ", /* JGHACK
Note: n1 and n2 are acceptable aliases for n and nplot, respectively.
lib/App/SeismicUnixGui/developer/Stripped/plot/psgraph.psplot.main view on Meta::CPAN
All color specifications may also be made in X Window style Hex format
example: axescolor=#255
Example:
psgraph n=50,100,20 d1=2.5,1,0.33 <datafile >psfile
plots three curves with equally spaced x values in one plot frame
x1-coordinates are x1(i) = f1+i*d1 for i = 1 to n (f1=0 by default)
number of x2's and then x2-coordinates for each curve are read
sequentially from datafile.
Legal font names are:
AvantGarde-Book AvantGarde-BookOblique AvantGarde-Demi AvantGarde-DemiOblique"
Bookman-Demi Bookman-DemiItalic Bookman-Light Bookman-LightItalic
Courier Courier-Bold Courier-BoldOblique Courier-Oblique
Helvetica Helvetica-Bold Helvetica-BoldOblique Helvetica-Oblique
Helvetica-Narrow Helvetica-Narrow-Bold Helvetica-Narrow-BoldOblique
Helvetica-Narrow-Oblique NewCentrySchlbk-Bold"
NewCenturySchlbk-BoldItalic NewCenturySchlbk-Roman Palatino-Bold
Palatino-BoldItalic Palatino-Italics Palatino-Roman
SanSerif-Bold SanSerif-BoldItalic SanSerif-Roman
Symbol Times-Bold Times-BoldItalic
lib/App/SeismicUnixGui/developer/Stripped/plot/psimage.psplot.main view on Meta::CPAN
n1tic=1 number of tics per numbered tic on axis 1
grid1=none grid lines on axis 1 - none, dot, dash, or solid
label1= label on axis 1
x2beg=x2min value at which axis 2 begins
x2end=x2max value at which axis 2 ends
d2num=0.0 numbered tic interval on axis 2 (0.0 for automatic)
f2num=x2min first numbered tic on axis 2 (used if d2num not 0.0)
n2tic=1 number of tics per numbered tic on axis 2
grid2=none grid lines on axis 2 - none, dot, dash, or solid
label2= label on axis 2
labelfont=Helvetica font name for axes labels
labelsize=18 font size for axes labels
title= title of plot
titlefont=Helvetica-Bold font name for title
titlesize=24 font size for title
titlecolor=black color of title
axescolor=black color of axes
gridcolor=black color of grid
axeswidth=1 width (in points) of axes
ticwidth=axeswidth width (in points) of tic marks
gridwidth=axeswidth width (in points) of grid lines
style=seismic normal (axis 1 horizontal, axis 2 vertical) or
seismic (axis 1 vertical, axis 2 horizontal)
legend=0 =1 display the color scale
lnice=0 =1 nice legend arrangement
(overrides ybox,lx,width,height parameters)
lstyle=vertleft Vertical, axis label on left side
=vertright (Vertical, axis label on right side)
=horibottom (Horizontal, axis label on bottom)
units= unit label for legend
legendfont=times_roman10 font name for title
following are defaults for lstyle=0. They are changed for other lstyles
lwidth=1.2 colorscale (legend) width in inches
lheight=height/3 colorscale (legend) height in inches
lx=1.0 colorscale (legend) x-position in inches
ly=(height-lheight)/2+xybox colorscale (legend) y-position in pixels
lbeg= lmin or wclip-5*perc value at which legend axis begins
lend= lmax or bclip+5*perc value at which legend axis ends
ldnum=0.0 numbered tic interval on legend axis (0.0 for automatic)
lfnum=lmin first numbered tic on legend axis (used if d1num not 0.0)
lntic=1 number of tics per numbered tic on legend axis
lib/App/SeismicUnixGui/developer/Stripped/plot/psimage.psplot.main view on Meta::CPAN
example: axescolor=#255
Some example colormap settings:
red white blue: wrgb=1.0,0,0 grgb=1.0,1.0,1.0 brgb=0,0,1.0
white red blue: wrgb=1.0,1.0,1.0 grgb=1.0,0.0,0.0 brgb=0,0,1.0
blue red white: wrgb=0.0,0.0,1.0 grgb=1.0,0.0,0.0 brgb=1.0,1.0,1.0
red green blue: wrgb=1.0,0,0 grgb=0,1.0,0 brgb=0,0,1.0
orange light-blue green: wrgb=1.0,.5,0 grgb=0,.7,1.0 brgb=0,1.0,0
red light-blue dark blue: wrgb=0.0,0,1.0 grgb=0,1.0,1.0 brgb=0,0,1.0
Legal font names are:
AvantGarde-Book AvantGarde-BookOblique AvantGarde-Demi AvantGarde-DemiOblique"
Bookman-Demi Bookman-DemiItalic Bookman-Light Bookman-LightItalic
Courier Courier-Bold Courier-BoldOblique Courier-Oblique
Helvetica Helvetica-Bold Helvetica-BoldOblique Helvetica-Oblique
Helvetica-Narrow Helvetica-Narrow-Bold Helvetica-Narrow-BoldOblique
Helvetica-Narrow-Oblique NewCentrySchlbk-Bold"
NewCenturySchlbk-BoldItalic NewCenturySchlbk-Roman Palatino-Bold
Palatino-BoldItalic Palatino-Italics Palatino-Roman
SanSerif-Bold SanSerif-BoldItalic SanSerif-Roman
Symbol Times-Bold Times-BoldItalic
lib/App/SeismicUnixGui/developer/Stripped/plot/pslabel.psplot.main view on Meta::CPAN
PSLABEL - output PostScript file consisting of a single TEXT string
on a specified background. (Use with psmerge to label plots.)
pslabel t= [t=] [optional parameters] > epsfile
Required Parameters (can have multiple specifications to mix fonts):
t= text string to write to output
Optional Parameters:
f=Times-Bold font for text string
(multiple specifications for each t)
size=30 size of characters in points (72 points/inch)
tcolor=black color of text string
bcolor=white color of background box
nsub=0 number of characters to subtract when
computing size of background box (not all
characters are the same size so the
background box may be too big at times.)
Example:
pslabel t="(a) " f=Times-Bold t="h" f=Symbol t="=0.04" nsub=3 > epsfile
This example yields the PostScript equivalent of the string
(written here in LaTeX notation) $ (a)\\; \\eta=0.04 $
Notes:
This program produces a (color if desired) PostScript text string that
can be positioned and pasted on a PostScript plot using psmerge
see selfdoc of psmerge for further information.
Possible fonts: Helvetica, Helvetica-Oblique, Helvetica-Bold,
Helvetica-BoldOblique,Times-Roman,Times-Italic,Times-Bold,
Times-BoldItalic,Courier,Courier-Bold,Courier-Oblique,
Courier-BoldOblique,Symbol
Possible colors: greenyellow,yellow,goldenrod,dandelion,apricot,
peach,melon,yelloworange,orange,burntorange,bittersweet,redorange,
mahogany,maroon,brickred,red,orangered,rubinered,wildstrawberry,
salmon,carnationpink,magenta,violetred,rhodamine,mulberry,redviolet,
fuchsia,lavender,thistle,orchid,darkorchid,purple,plum,violet,royalpurple,
blueviolet,periwinkle,cadetblue,cornflowerblue,midnightblue,naveblue,
royalblue,blue,cerulean,cyan,processblue,skyblue,turquoise,tealblue,
aquamarine,bluegreen,emerald,junglegreen,seagreen,green,forestgreen,
pinegreen,limegreen,yellowgreen,springgreen,olivegreen,rawsienna,sepia,
brown,tan,white,black,gray
All color specifications may also be made in X Window style Hex format
example: tcolor=#255
Legal font names are:
AvantGarde-Book AvantGarde-BookOblique AvantGarde-Demi AvantGarde-DemiOblique"
Bookman-Demi Bookman-DemiItalic Bookman-Light Bookman-LightItalic
Courier Courier-Bold Courier-BoldOblique Courier-Oblique
Helvetica Helvetica-Bold Helvetica-BoldOblique Helvetica-Oblique
Helvetica-Narrow Helvetica-Narrow-Bold Helvetica-Narrow-BoldOblique
Helvetica-Narrow-Oblique NewCentrySchlbk-Bold"
NewCenturySchlbk-BoldItalic NewCenturySchlbk-Roman Palatino-Bold
Palatino-BoldItalic Palatino-Italics Palatino-Roman
SanSerif-Bold SanSerif-BoldItalic SanSerif-Roman
Symbol Times-Bold Times-BoldItalic
lib/App/SeismicUnixGui/developer/Stripped/plot/psmovie.psplot.main view on Meta::CPAN
n1tic=1 number of tics per numbered tic on axis 1
grid1=none grid lines on axis 1 - none, dot, dash, or solid
label1= label on axis 1
x2beg=x2min value at which axis 2 begins
x2end=x2max value at which axis 2 ends
d2num=0.0 numbered tic interval on axis 2 (0.0 for automatic)
f2num=x2min first numbered tic on axis 2 (used if d2num not 0.0)
n2tic=1 number of tics per numbered tic on axis 2
grid2=none grid lines on axis 2 - none, dot, dash, or solid
label2= label on axis 2
labelfont=Helvetica font name for axes labels
labelsize=18 font size for axes labels
title= title of plot
titlefont=Helvetica-Bold font name for title
titlesize=24 font size for title
style=seismic normal (axis 1 horizontal, axis 2 vertical) or
seismic (axis 1 vertical, axis 2 horizontal)
n3=1 number of samples in third dimension
title2= second title to annotate different frames
loopdsp=3 display loop type (1=loop over n1; 2=loop over n2;
3 =l oop over n3)
d3=1.0 sampling interval in 3rd dimension
f3=d3 first sample in 3rd dimension
NeXT: view movie via: psmovie < infile n1= [optional params...] | open
Note: currently only the Preview Application can handle the multipage
PostScript output by this program.
All color specifications may also be made in X Window style Hex format
example: axescolor=#255
Legal font names are:
AvantGarde-Book AvantGarde-BookOblique AvantGarde-Demi AvantGarde-DemiOblique"
Bookman-Demi Bookman-DemiItalic Bookman-Light Bookman-LightItalic
Courier Courier-Bold Courier-BoldOblique Courier-Oblique
Helvetica Helvetica-Bold Helvetica-BoldOblique Helvetica-Oblique
Helvetica-Narrow Helvetica-Narrow-Bold Helvetica-Narrow-BoldOblique
Helvetica-Narrow-Oblique NewCentrySchlbk-Bold"
NewCenturySchlbk-BoldItalic NewCenturySchlbk-Roman Palatino-Bold
Palatino-BoldItalic Palatino-Italics Palatino-Roman
SanSerif-Bold SanSerif-BoldItalic SanSerif-Roman
Symbol Times-Bold Times-BoldItalic
( run in 3.349 seconds using v1.01-cache-2.11-cpan-ceb78f64989 )