From: hanwen <hanwen>
Date: Tue, 14 Mar 2006 17:04:30 +0000 (+0000)
Subject: fix for landscape (johannes schindelin)
X-Git-Tag: release/2.8.2~91
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c45ff04494e150cc2a677ffb74d4cebcd07c46ab;p=lilypond.git

fix for landscape (johannes schindelin)
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index fa9d5310a8..5e8581ecfe 100644
--- 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?)