Skip to content
Snippets Groups Projects
Commit c75f7397 authored by Reinhold Kainhofer's avatar Reinhold Kainhofer
Browse files

|Create TOC files properly, remove page breaks

parent 45139c9d
No related branches found
No related tags found
No related merge requests found
\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
......
......@@ -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")
......
......@@ -10,6 +10,7 @@
\paper {
bottom-margin = 1\cm
#(define (page-post-process layout pages) (oly:create-toc-file layout pages))
}
\layout {
\context { \Staff
......
......@@ -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)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment