view release on metacpan or  search on metacpan

t/x17.t  view on Meta::CPAN

52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 
# 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 );