%!PS-Adobe-2.0: lilyponddefs.ps
%
% Functions for direct PostScript output
%
% This file is part of LilyPond, the GNU music typesetter.
%
% Copyright (C) 1998-2004 Jan Nieuwenhuizen <janneke@gnu.org>,
%               1999-2006 Han-Wen Nienhuys <hanwen@xs4all.nl>,
%               2005 Werner Lemberg <wl@gnu.org>
%
% LilyPond is free software: you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% LilyPond is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
%

% /setgray { 1 add } bind def

/set-ps-scale-to-lily-scale {
	lily-output-units output-scale mul dup scale
} bind def


/init-paper {
	gsave
	clippath pathbbox newpath
	/paper-height exch def
	/paper-width exch def pop pop pop
	% FIXME
	/top-margin 2 def
	paper-width line-width sub 2 div /left-margin exch def
	grestore
} bind def

/init-lilypond-parameters {
	staff-line-thickness setlinewidth
	staff-height init-paper
} bind def


% end lilyponddefs.ps