From 4390abf0e691ad0e6a654bccc2be484979ceb78a Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 14 Mar 2006 17:04:30 +0000 Subject: [PATCH] fix for landscape (johannes schindelin) --- scm/framework-ps.scm | 27 +++++++++++++++------------ 1 file changed, 15 insertions(+), 12 deletions(-) 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?) -- 2.39.2