%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% initps.m                      %
% written 2/24/00 by ben olding %
% initializes PostScript file   %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Requires: al.m

% PS commands used --
% %!       : new PS file
% bind def : defines (and evaluates) current definition 

global PSText PSComment

PSText='%!';
PSComment = ' ';

al(['/inch {72 mul} bind def'],['% Convert inches->points (1/72inch)']);
