From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 9 Sep 2004 22:38:12 +0000 (+0000)
Subject: * Documentation/user/changing-defaults.itely (Paper size): doc
X-Git-Tag: release/2.3.15~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=97278c926fbe9d81b5fe4e090ac271e28ca6e702;p=lilypond.git

* Documentation/user/changing-defaults.itely (Paper size): doc
landscape

* scm/framework-ps.scm (eps-header): bugfixes.

* scm/titling.scm (default-score-title): remove opus from the
\score title.
---

diff --git a/ChangeLog b/ChangeLog
index dd0bfa26d4..299f238cc4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+2004-09-10  Han-Wen Nienhuys   <hanwen@xs4all.nl>
+
+	* Documentation/user/changing-defaults.itely (Paper size): doc
+	landscape
+	
+
+	* scm/framework-ps.scm (eps-header): bugfixes. 
+
+	* scm/titling.scm (default-score-title): remove opus from the
+	\score title.
+
 2004-09-08  Pedro Kroger  <kroeger@pedrokroeger.net>
 
 	* scripts/convert-ly.py (program_name): changed to sys.argv[0]
diff --git a/Documentation/user/changing-defaults.itely b/Documentation/user/changing-defaults.itely
index 9bfd2fe7d9..fab7c9eb44 100644
--- a/Documentation/user/changing-defaults.itely
+++ b/Documentation/user/changing-defaults.itely
@@ -2183,6 +2183,17 @@ The following paper sizes are supported.
 @item tabloid
 @end table 
 
+@cindex orientation
+@cindex landscape
+
+If the symbol @code{landscape} is supplied as argument to
+@code{set-default-paper-size}, the pages will be rotated 90 degrees,
+and line widths will be set longer correspondingly.
+
+@example
+#(set-default-paper-size "a6" 'landscape)
+@end example 
+
 @node Page layout
 @subsection Page layout
 
diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index e091ad09b5..007763e95a 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -192,7 +192,7 @@
 		 "%%Creator: creator time-stamp\n"
 		 "%%BoundingBox: "
 		 (string-join (map number->string bbox) " ") "\n"
-		 "%% Orientation: "
+		 "%%Orientation: "
 		 (if (eq? (ly:output-def-lookup bookpaper 'landscape) #t)
 		     "Landscape\n"
 		     "Portrait\n")
@@ -203,6 +203,10 @@
 		 "%%Creator: creator time-stamp\n"
 		 "%%Pages: " (number->string page-count) "\n"
 		 "%%PageOrder: Ascend\n"
+		 "%%Orientation: "
+		 (if (eq? (ly:output-def-lookup bookpaper 'landscape) #t)
+		     "Landscape\n"
+		     "Portrait\n")
 		 "%%DocumentPaperSizes: "
 		 (ly:output-def-lookup bookpaper 'papersize) "\n"))
 
@@ -220,7 +224,7 @@
 (define-public (output-framework outputter book scopes fields basename)
   (let* ((bookpaper (ly:paper-book-book-paper book))
 	 (pages (ly:paper-book-pages book))
-	 (landscape? (eq? (ly:output-def-lookup bookpaper 'landscape?) #t))
+	 (landscape? (eq? (ly:output-def-lookup bookpaper 'landscape) #t))
 	 (page-number (1- (ly:output-def-lookup bookpaper 'firstpagenumber)))
 	 (page-count (length pages)))
     
diff --git a/scm/titling.scm b/scm/titling.scm
index 0082f3497a..b1cb6aa2ea 100644
--- a/scm/titling.scm
+++ b/scm/titling.scm
@@ -119,7 +119,10 @@
        (append
 	(if (has 'opus)
 	    ;; opus, again?
-	    (list (markup #:fill-line ("" (get 'opus))))
+	    '()
+
+	    ;; todo: figure out if and what should be here? 
+	    ;;(list (markup #:fill-line ("" (get 'opus))))
 	    '())
 	(if (has 'piece)
 	    (list