* scm/framework-ps.scm (output-framework): handle landscape settings.

[lilypond.git] / ps / lilyponddefs.ps

diff --git a/ps/lilyponddefs.ps b/ps/lilyponddefs.ps
index edd8448155b9180914a47431e81cb10e090f4b95..f4897127c964af090db4603d2d5cdd38ac0927cf 100644 (file)
--- a/ps/lilyponddefs.ps
+++ b/ps/lilyponddefs.ps
@@ -12,19 +12,19 @@
 
 /set-ps-scale-to-lily-scale { output-scale output-scale scale } bind def
 
-
 /init-paper {
-       gsave
-       .1 setlinewidth
-       clippath pathbbox newpath
-       /vsize exch def
-       /hsize exch def pop pop pop pop
-       % FIXME
-       /top-margin 2 def
+       gsave
+       .1 setlinewidth
+       clippath pathbbox newpath
+       /vsize exch def
+       /hsize exch def pop pop pop 
+       % FIXME
+       /top-margin 2 def
        hsize line-width sub 2 div /left-margin exch def
-       grestore
+       grestore
 } bind def
 
+  
 /place-box
 {
        /object exch def
@@ -65,8 +65,8 @@
 /start-system % x y
 {
     gsave
-    exch output-scale mul exch
-    output-scale mul vsize exch sub translate
+    0
+    vsize translate
 } bind def
 
 /stop-system
@@ -82,10 +82,9 @@
 
 staff-line-thickness setlinewidth
 
-% set postscript paper size
-paper-size
 
-% initialise paper dimensions
 staff-height init-paper
+ 
+
 
 % end lilyponddefs.ps