fix for landscape (johannes schindelin)

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index fa9d5310a8e9aa1f1a9bc5ea3c9df655f006e651..5e8581ecfe26425defa7c5bffd8b9597f41ab258 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -156,19 +156,22 @@
                 "%%EndComments\n"))
 
 (define (ps-document-media paper) 
+ (let* ((w (/ (*
+              (ly:output-def-lookup paper 'output-scale)
+              (ly:output-def-lookup paper 'paper-width)) (ly:bp 1)))
+       (h (/ (*
+              (ly:output-def-lookup paper 'paper-height)
+              (ly:output-def-lookup paper 'output-scale))
+           (ly:bp 1)))
+       (landscape? (eq? (ly:output-def-lookup paper 'landscape) #t)))
   (format "%%DocumentMedia: ~a ~$ ~$ ~a ~a ~a\n"
-         (ly:output-def-lookup paper 'papersizename)
-         (/ (*
-             (ly:output-def-lookup paper 'output-scale)
-             (ly:output-def-lookup paper 'paper-width)) (ly:bp 1))
-         (/ (*
-             (ly:output-def-lookup paper 'paper-height)
-             (ly:output-def-lookup paper 'output-scale))
-            (ly:bp 1))
-         80  ;; weight
-         "()" ;; color
-         "()"  ;; type
-         ))
+   (ly:output-def-lookup paper 'papersizename)
+   (if landscape? h w)
+   (if landscape? w h)
+   80  ;; weight
+   "()" ;; color
+   "()"  ;; type
+  )))
 
 
 (define (file-header paper page-count load-fonts?)