* 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 dd0bfa26d47cd6d93dc039a60680f9093d7b4160..299f238cc410997e38e76bde70aa0c87ea75c32c 100644 (file)
--- 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 9bfd2fe7d997506a4f06e1a0f0b9d57e581be32e..fab7c9eb449b78272345c1d45f22fc1d1976b0c9 100644 (file)
--- 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 e091ad09b5f331f927377c3f1bbda5f92ab0b9b3..007763e95aefe018c7d8c1e838f7f621ba257602 100644 (file)
--- 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 0082f3497ab65f75dd3a7c8b77d91aff48a8b5c2..b1cb6aa2eab564669b13e50bd6b61f3b2ab9c201 100644 (file)
--- 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