function []= stkbegin
%	Initialize for stack plot.  Set defaults.

%	Latest revision by P. Dragos 21-May-91.
%
%	P. Dragos, Battelle Ocean Sciences
%	Duxbury, MA 02332
%	(617) 934-0571
%
%	Copyright (c) 1991 by Paul Dragos.
%	This program is copyrighted.  However, you are encouraged to
%	copy and share it, so long as no charge is imposed.

clg;
axis('normal');
axis([0 1 0 1]);
hold on;
stkax= zeros(10,4);
stkx0= 0;
stky0= 0;
stkx1= 1;
stky1= 1;
stksep= 0.04;
stkc= ['-g'];
stkdc= ['-c5'];
stkcht= 0.02;   % character height
%stkcwt= 0.01;   % character width  (HP Laser Jet)
stkcwt= 0.013;   % character width  (PostScript)
stktht= 0.012;  % tic length
stkstht= 0.0075;
save stkparm.mat stkax stkx0 stky0 stkx1 stky1 stksep ...
                 stkc stkdc stkcht stkcwt stktht stkstht;
return;
