App-SeismicUnixGui
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/sunix/plot/pscube.pm view on Meta::CPAN
size2=4.0 size in inches of 2nd axes (horizontal)
size3=3.0 size in inches of 3rd axes (projected)
angle=45 projection angle of cube in degrees (0<angle<90)
(angle between 2nd axis and projected 3rd axis)
x1end=x1max value at which axis 1 ends
d1num=0.0 numbered tic interval on axis 1 (0.0 for automatic)
f1num=x1min first numbered tic on axis 1 (used if d1num not 0.0)
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
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
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
Times-Roman Times-Italic ZapfChancery-MediumItalic
Note: The values of x1beg=x1min, x2end=x2max and x3beg=x3min cannot
be changed.
=head2 User's notes (Juan Lorenzo)
untested
=cut
=head2 CHANGES and their DATES
=cut
use Moose;
our $VERSION = '0.0.1';
=head2 Import packages
=cut
use aliased 'App::SeismicUnixGui::misc::L_SU_global_constants';
use App::SeismicUnixGui::misc::SeismicUnix qw($in $out $on $go $to $suffix_ascii $off $suffix_su $suffix_bin);
lib/App/SeismicUnixGui/sunix/plot/pscube.pm view on Meta::CPAN
=head2 instantiation of packages
=cut
my $get = L_SU_global_constants->new();
my $Project = Project_config->new();
my $DATA_SEISMIC_SU = $Project->DATA_SEISMIC_SU();
my $DATA_SEISMIC_BIN = $Project->DATA_SEISMIC_BIN();
my $DATA_SEISMIC_TXT = $Project->DATA_SEISMIC_TXT();
my $var = $get->var();
my $on = $var->{_on};
my $off = $var->{_off};
my $true = $var->{_true};
my $false = $var->{_false};
my $empty_string = $var->{_empty_string};
=head2 Encapsulated
hash of private variables
=cut
my $pscube = {
_angle => '',
_axescolor => '',
_bclip => '',
_bhls => '',
_bperc => '',
_bps => '',
_brgb => '',
_clip => '',
_d1 => '',
_d1num => '',
_d1s => '',
_d2 => '',
_d2num => '',
_d2s => '',
_d3 => '',
_d3num => '',
_d3s => '',
_f1 => '',
_f1num => '',
_f2 => '',
_f2num => '',
_f3 => '',
_f3num => '',
_faces => '',
_front => '',
_grid1 => '',
_grid2 => '',
_grid3 => '',
_gridcolor => '',
_label1 => '',
_label2 => '',
_label3 => '',
_labelfont => '',
_labelsize => '',
_lbeg => '',
_ldnum => '',
_legend => '',
_legendfont => '',
_lend => '',
_lfnum => '',
_lgrid => '',
_lheight => '',
_lntic => '',
_lstyle => '',
_lwidth => '',
_lx => '',
_ly => '',
_n1 => '',
_n1tic => '',
_n2 => '',
_n2tic => '',
_n3 => '',
_n3tic => '',
_perc => '',
_side => '',
_size1 => '',
_size2 => '',
_size3 => '',
_title => '',
_titlecolor => '',
_titlefont => '',
_titlesize => '',
_top => '',
_units => '',
_verbose => '',
_wclip => '',
_whls => '',
_wperc => '',
_wrgb => '',
_x1beg => '',
_x1end => '',
_x2beg => '',
_x3end => '',
_xbox => '',
_ybox => '',
_Step => '',
_note => '',
};
=head2 sub Step
collects switches and assembles bash instructions
by adding the program name
=cut
sub Step {
$pscube->{_Step} = 'pscube'.$pscube->{_Step};
return ( $pscube->{_Step} );
}
=head2 sub note
collects switches and assembles bash instructions
by adding the program name
=cut
sub note {
$pscube->{_note} = 'pscube'.$pscube->{_note};
return ( $pscube->{_note} );
}
=head2 sub clear
=cut
sub clear {
$pscube->{_angle} = '';
$pscube->{_axescolor} = '';
$pscube->{_bclip} = '';
$pscube->{_bhls} = '';
$pscube->{_bperc} = '';
$pscube->{_bps} = '';
$pscube->{_brgb} = '';
$pscube->{_clip} = '';
$pscube->{_d1} = '';
$pscube->{_d1num} = '';
$pscube->{_d1s} = '';
$pscube->{_d2} = '';
$pscube->{_d2num} = '';
$pscube->{_d2s} = '';
$pscube->{_d3} = '';
$pscube->{_d3num} = '';
$pscube->{_d3s} = '';
$pscube->{_f1} = '';
$pscube->{_f1num} = '';
$pscube->{_f2} = '';
$pscube->{_f2num} = '';
$pscube->{_f3} = '';
$pscube->{_f3num} = '';
$pscube->{_faces} = '';
$pscube->{_front} = '';
$pscube->{_grid1} = '';
$pscube->{_grid2} = '';
$pscube->{_grid3} = '';
$pscube->{_gridcolor} = '';
$pscube->{_label1} = '';
$pscube->{_label2} = '';
$pscube->{_label3} = '';
$pscube->{_labelfont} = '';
$pscube->{_labelsize} = '';
$pscube->{_lbeg} = '';
$pscube->{_ldnum} = '';
$pscube->{_legend} = '';
$pscube->{_legendfont} = '';
$pscube->{_lend} = '';
$pscube->{_lfnum} = '';
$pscube->{_lgrid} = '';
$pscube->{_lheight} = '';
$pscube->{_lntic} = '';
$pscube->{_lstyle} = '';
$pscube->{_lwidth} = '';
$pscube->{_lx} = '';
$pscube->{_ly} = '';
$pscube->{_n1} = '';
$pscube->{_n1tic} = '';
$pscube->{_n2} = '';
$pscube->{_n2tic} = '';
$pscube->{_n3} = '';
$pscube->{_n3tic} = '';
$pscube->{_perc} = '';
$pscube->{_side} = '';
$pscube->{_size1} = '';
$pscube->{_size2} = '';
$pscube->{_size3} = '';
$pscube->{_title} = '';
$pscube->{_titlecolor} = '';
$pscube->{_titlefont} = '';
$pscube->{_titlesize} = '';
$pscube->{_top} = '';
$pscube->{_units} = '';
$pscube->{_verbose} = '';
$pscube->{_wclip} = '';
$pscube->{_whls} = '';
$pscube->{_wperc} = '';
$pscube->{_wrgb} = '';
$pscube->{_x1beg} = '';
$pscube->{_x1end} = '';
$pscube->{_x2beg} = '';
$pscube->{_x3end} = '';
$pscube->{_xbox} = '';
$pscube->{_ybox} = '';
$pscube->{_Step} = '';
$pscube->{_note} = '';
}
=head2 sub angle
=cut
sub angle {
my ( $self,$angle ) = @_;
if ( $angle ne $empty_string ) {
$pscube->{_angle} = $angle;
$pscube->{_note} = $pscube->{_note}.' angle='.$pscube->{_angle};
$pscube->{_Step} = $pscube->{_Step}.' angle='.$pscube->{_angle};
} else {
print("pscube, angle, missing angle,\n");
}
}
lib/App/SeismicUnixGui/sunix/plot/pscube.pm view on Meta::CPAN
=head2 sub labelsize
=cut
sub labelsize {
my ( $self,$labelsize ) = @_;
if ( $labelsize ne $empty_string ) {
$pscube->{_labelsize} = $labelsize;
$pscube->{_note} = $pscube->{_note}.' labelsize='.$pscube->{_labelsize};
$pscube->{_Step} = $pscube->{_Step}.' labelsize='.$pscube->{_labelsize};
} else {
print("pscube, labelsize, missing labelsize,\n");
}
}
=head2 sub lbeg
=cut
sub lbeg {
my ( $self,$lbeg ) = @_;
if ( $lbeg ne $empty_string ) {
$pscube->{_lbeg} = $lbeg;
$pscube->{_note} = $pscube->{_note}.' lbeg='.$pscube->{_lbeg};
$pscube->{_Step} = $pscube->{_Step}.' lbeg='.$pscube->{_lbeg};
} else {
print("pscube, lbeg, missing lbeg,\n");
}
}
=head2 sub ldnum
=cut
sub ldnum {
my ( $self,$ldnum ) = @_;
if ( $ldnum ne $empty_string ) {
$pscube->{_ldnum} = $ldnum;
$pscube->{_note} = $pscube->{_note}.' ldnum='.$pscube->{_ldnum};
$pscube->{_Step} = $pscube->{_Step}.' ldnum='.$pscube->{_ldnum};
} else {
print("pscube, ldnum, missing ldnum,\n");
}
}
=head2 sub legend
=cut
sub legend {
my ( $self,$legend ) = @_;
if ( $legend ne $empty_string ) {
$pscube->{_legend} = $legend;
$pscube->{_note} = $pscube->{_note}.' legend='.$pscube->{_legend};
$pscube->{_Step} = $pscube->{_Step}.' legend='.$pscube->{_legend};
} else {
print("pscube, legend, missing legend,\n");
}
}
=head2 sub legendfont
=cut
sub legendfont {
my ( $self,$legendfont ) = @_;
if ( $legendfont ne $empty_string ) {
$pscube->{_legendfont} = $legendfont;
$pscube->{_note} = $pscube->{_note}.' legendfont='.$pscube->{_legendfont};
$pscube->{_Step} = $pscube->{_Step}.' legendfont='.$pscube->{_legendfont};
} else {
print("pscube, legendfont, missing legendfont,\n");
}
}
=head2 sub lend
=cut
sub lend {
my ( $self,$lend ) = @_;
if ( $lend ne $empty_string ) {
$pscube->{_lend} = $lend;
$pscube->{_note} = $pscube->{_note}.' lend='.$pscube->{_lend};
$pscube->{_Step} = $pscube->{_Step}.' lend='.$pscube->{_lend};
} else {
print("pscube, lend, missing lend,\n");
}
}
=head2 sub lfnum
=cut
sub lfnum {
my ( $self,$lfnum ) = @_;
if ( $lfnum ne $empty_string ) {
$pscube->{_lfnum} = $lfnum;
$pscube->{_note} = $pscube->{_note}.' lfnum='.$pscube->{_lfnum};
$pscube->{_Step} = $pscube->{_Step}.' lfnum='.$pscube->{_lfnum};
} else {
print("pscube, lfnum, missing lfnum,\n");
}
}
=head2 sub lgrid
=cut
sub lgrid {
my ( $self,$lgrid ) = @_;
if ( $lgrid ne $empty_string ) {
$pscube->{_lgrid} = $lgrid;
$pscube->{_note} = $pscube->{_note}.' lgrid='.$pscube->{_lgrid};
$pscube->{_Step} = $pscube->{_Step}.' lgrid='.$pscube->{_lgrid};
} else {
print("pscube, lgrid, missing lgrid,\n");
( run in 0.634 second using v1.01-cache-2.11-cpan-d8267643d1d )