From c75f739756f1ca6e292aa2fd777d109dde90ed45 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Mon, 4 May 2009 12:39:44 +0200
Subject: [PATCH] |Create TOC files properly, remove page breaks
---
Schubert_StabatMater_D383.ly | 15 +--------------
Schubert_StabatMater_D383_Ch.ly | 2 +-
Schubert_StabatMater_D383_LongScore.ly | 1 +
Schubert_StabatMater_D383_SoloCh.ly | 9 ---------
4 files changed, 3 insertions(+), 24 deletions(-)
diff --git a/Schubert_StabatMater_D383.ly b/Schubert_StabatMater_D383.ly
index 9e2e2c5..0d55c44 100644
--- a/Schubert_StabatMater_D383.ly
+++ b/Schubert_StabatMater_D383.ly
@@ -1,20 +1,7 @@
\version "2.11.35"
\include "Schubert_StabatMater_D383_Settings_FullScore.ly"
\paper {
-% #(set! write-page-layout #f)
- #(define (page-post-process layout pages)
- (let ((label-table (ly:output-def-lookup layout 'label-page-table)))
- (display (toc-items))
- (format #t "~{~%~a~}"
- (map (lambda (toc-item)
- (let* ((label (car toc-item))
- (text (caddr toc-item))
- (type (cadr toc-item)) ;; more work to do here
- (label-page (and (list? label-table) (assoc label label-table)))
- (page (and label-page (cdr label-page))))
- (format #f "~a, \"~a\", 1, ~s, ~a"
- page type text label)))
- (toc-items)))))
+ #(define (page-post-process layout pages) (oly:create-toc-file layout pages))
}
\markup \commentsInstrMarkup
diff --git a/Schubert_StabatMater_D383_Ch.ly b/Schubert_StabatMater_D383_Ch.ly
index ee63f21..8d297bc 100644
--- a/Schubert_StabatMater_D383_Ch.ly
+++ b/Schubert_StabatMater_D383_Ch.ly
@@ -6,6 +6,7 @@
\paper {
bottom-margin = 1.1\cm
+ #(define (page-post-process layout pages) (oly:create-toc-file layout pages))
}
\layout {
\context { \Staff
@@ -23,7 +24,6 @@
\createScore #"IChor" #'("Ch")
\createNoCuesScore #"IIArie" #'("Ch")
\createScore #"IIIChor" #'("Ch")
-% \pageBreak
\createNoCuesScore #"IVDuett" #'("Ch")
\createNoCuesScore #"VChor" #'("Ch")
\createNoCuesScore #"VIArie" #'("Ch")
diff --git a/Schubert_StabatMater_D383_LongScore.ly b/Schubert_StabatMater_D383_LongScore.ly
index 726a5c9..ef7c850 100644
--- a/Schubert_StabatMater_D383_LongScore.ly
+++ b/Schubert_StabatMater_D383_LongScore.ly
@@ -10,6 +10,7 @@
\paper {
bottom-margin = 1\cm
+ #(define (page-post-process layout pages) (oly:create-toc-file layout pages))
}
\layout {
\context { \Staff
diff --git a/Schubert_StabatMater_D383_SoloCh.ly b/Schubert_StabatMater_D383_SoloCh.ly
index 1787631..2de64ed 100644
--- a/Schubert_StabatMater_D383_SoloCh.ly
+++ b/Schubert_StabatMater_D383_SoloCh.ly
@@ -29,23 +29,14 @@ XITerzettChorBSettings = { \XITerzettChorSettings \override Staff.VerticalAxisGr
\markup \commentsInstrMarkup
\createScore #"IChor" #'("Vocal")
\createScore #"IIArie" #'("Vocal")
-% \pageBreak
\createScore #"IIIChor" #'("Vocal")
-
-% % \pageBreak
\createScore #"IVDuett" #'("Vocal")
-% %\pageBreak
\createNoCuesScore #"VChor" #'("Vocal")
\createScore #"VIArie" #'("Vocal")
\createNoCuesScore #"VIIChor" #'("Vocal")
-% % \pageBreak
\createScore #"VIIIArie" #'("Vocal")
-% % \pageBreak
\createNoCuesScore #"IXChor" #'("Vocal")
-% \pageBreak
\createScore #"XTerzett" #'("Vocal")
\createNoCuesScore #"XITerzettChor" #'("Vocal")
-% \pageBreak
\createNoCuesScore #"XIIChor" #'("Vocal")
-#(ly:set-option 'debug-skylines #t)
--
GitLab