Doc-es: various updates.

[lilypond.git] / ps / lilyponddefs.ps

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index 9672572c99e6b4e59a6486225efe5c24bef8fde5..f7974111c6008853de7b0bd483130a650393e2de 100644 (file)
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -1,29 +1,22 @@
 %!PS-Adobe-2.0: lilyponddefs.ps
-% TODO:
-%  * junk all magic, start-line/stop-line just: placebox @ x.y
 %
 % Functions for direct PostScript output
 
 % /setgray { 1 add } bind def
 
-% To let gs load fonts from builddir, do:
-% export GS_LIB=$(pwd)/mf/out:/usr/share/texmf/fonts/type1/bluesky/cm
-
-
 /set-ps-scale-to-lily-scale {
-       lily-output-units output-scale mul
-       lily-output-units output-scale mul scale
+       lily-output-units output-scale mul dup scale
 } bind def
 
 
 /init-paper {
        gsave
        clippath pathbbox newpath
-       /vsize exch def
-       /hsize exch def pop pop pop
+       /paper-height exch def
+       /paper-width exch def pop pop pop
        % FIXME
        /top-margin 2 def
-       hsize line-width sub 2 div /left-margin exch def
+       paper-width line-width sub 2 div /left-margin exch def
        grestore
 } bind def