%!PS-Adobe-2.0: lilyponddefs.ps
%
% Functions for direct PostScript output

% /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