CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Graham Percival <[EMAIL PROTECTED]> 05/07/17 02:01:40
Modified files:
Documentation/user: global.itely
ly : titling-init.ly
. : ChangeLog
Log message:
Add printallheaders.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/Documentation/user/global.itely.diff?tr1=1.24&tr2=1.25&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ly/titling-init.ly.diff?tr1=1.19&tr2=1.20&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3884&tr2=1.3885&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3884 lilypond/ChangeLog:1.3885
--- lilypond/ChangeLog:1.3884 Sat Jul 16 12:23:33 2005
+++ lilypond/ChangeLog Sun Jul 17 02:01:39 2005
@@ -1,3 +1,9 @@
+2005-07-16 Graham Percival <[EMAIL PROTECTED]>
+
+ * ly/titling-init.ly: add printallheaders option.
+
+ * Documentation/user/global.itely: document printallheaders.
+
2005-07-16 Han-Wen Nienhuys <[EMAIL PROTECTED]>
* lily/system.cc (do_derived_mark): don't mark from object_alist_
Index: lilypond/Documentation/user/global.itely
diff -u lilypond/Documentation/user/global.itely:1.24
lilypond/Documentation/user/global.itely:1.25
--- lilypond/Documentation/user/global.itely:1.24 Fri Jul 15 17:55:55 2005
+++ lilypond/Documentation/user/global.itely Sun Jul 17 02:01:39 2005
@@ -326,6 +326,10 @@
Amount of space between consecutive titles (e.g., the title of the
book and the title of a piece).
[EMAIL PROTECTED] printallheaders
+Setting this to #t will print all headers for each \score in a
+\book. Normally only the piece and opus \headers are printed.
+
@item systemSeparatorMarkup
This contains a markup object, which will be inserted between
systems. This is often used for orchestral scores.
Index: lilypond/ly/titling-init.ly
diff -u lilypond/ly/titling-init.ly:1.19 lilypond/ly/titling-init.ly:1.20
--- lilypond/ly/titling-init.ly:1.19 Mon Jun 27 19:12:50 2005
+++ lilypond/ly/titling-init.ly Sun Jul 17 02:01:39 2005
@@ -22,6 +22,11 @@
}
}
+#(define (print-all-headers layout props arg)
+ (if (eq? (ly:output-def-lookup layout 'printallheaders) #t)
+ (interpret-markup layout props arg)
+ empty-stencil))
+
bookTitleMarkup = \markup {
\override #'(baseline-skip . 3.5)
\column {
@@ -53,11 +58,13 @@
}
}
-scoreTitleMarkup = \markup {
+scoreTitleMarkup = \markup { \column {
+ \on-the-fly #print-all-headers \bookTitleMarkup
\fill-line {
\fromproperty #'header:piece
\fromproperty #'header:opus
}
+}
}
#(define (first-page layout props arg)
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
