view release on metacpan or  search on metacpan

t/x17.t  view on Meta::CPAN

# Axes options same as plbox.
# Only automatic tick generation and label placement allowed
# Eventually I'll make this fancier

my $colbox = 1;
my $collab = 3;
my @colline = (2,3,4,5);  # pens color
my @styline = @colline;   # linestyle

# Pen legends
my @legline = (qw/ sum sin sin*noi sin+noi /);

# legend position
my $xlab = 0;
my $ylab = 0.25;

my $autoy = 1;  # autoscale y
my $acc = 1;    # don't scrip, accumulate

# Initialize plplot

my $dev = "xwin";
plsdev( $dev );