* ps/lilyponddefs.ps: put mm -> pt scaling in here.

[lilypond.git] / ps / lilyponddefs.ps

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index 542513c4e2a5bb0501403f636f810543c8af6e50..bdeec36366094345a5c0f7b916553c18e25bd37d 100644 (file)
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -10,7 +10,9 @@
 % export GS_LIB=$(pwd)/mf/out:/usr/share/texmf/fonts/type1/bluesky/cm
 
 
-/set-ps-scale-to-lily-scale { output-scale output-scale scale } bind def
+/set-ps-scale-to-lily-scale {
+    lily-output-units output-scale mul
+    lily-output-units output-scale mul scale } bind def
 
 /init-paper {
        gsave