From: hanwen <hanwen>
Date: Sat, 1 Jan 2005 19:57:06 +0000 (+0000)
Subject: * ps/lilyponddefs.ps: put mm -> pt scaling in here.
X-Git-Tag: release/2.5.23~739
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7d58e308ddc853dda78b9cdab617db8eb4ede37b;p=lilypond.git

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

* scm/framework-ps.scm (output-variables): separately scale the
page to mm
---

diff --git a/ChangeLog b/ChangeLog
index f19dcf21e7..5847e4de77 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2005-01-01  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* ps/lilyponddefs.ps: put mm -> pt scaling in here.
+
 	* input/regression/new-markup-scheme.ly: oops. font-family=music
 	-> font-encoding fetaMusic.  
 
@@ -127,6 +129,8 @@
 
 2004-12-25  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* VERSION: release 2.5.5
+	
 	* lily/main.cc: use TeX as default output format.
 
 	* flower/file-path.cc (find): try to open directly as well, so we
diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index 542513c4e2..bdeec36366 100644
--- 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
diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 4425cf8a11..b34175b76e 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -157,7 +157,6 @@
 
   (string-append
    "/lily-output-units " (number->string mm-to-bigpoint) " def %% milimeter
-lily-output-units lily-output-units scale
 "
    (output-entry "staff-line-thickness" 'linethickness)
    (output-entry "line-width" 'linewidth)