4 lsrtags
= "staff-notation, ancient-notation"
6 Incipits can be added using the instrument name grob, but keeping
7 separate the instrument name definition and the incipit definition.
13 #(define-music-function
(parser location incipit-music
) (ly
:music?
)
15 \once \override Staff
.InstrumentName
#'self-alignment-X
= #RIGHT
16 \once \override Staff
.InstrumentName
#'self-alignment-Y
= #UP
17 \once \override Staff
.InstrumentName
#'Y-offset
=
19 (+
4 (system-start-text
::calc-y-offset grob
)))
20 \once \override Staff
.InstrumentName
#'padding
= #0.3
21 \once \override Staff
.InstrumentName
#'stencil
=
23 (let
* ((instrument-name
(ly
:grob-property grob
'long-text
))
24 (layout
(ly
:output-def-clone
(ly
:grob-layout grob
)))
25 (music
(make-sequential-music
26 (list
(context-spec-music
27 (make-sequential-music
28 (list
(make-property-set
29 'instrumentName instrument-name
)
30 (make-grob-property-set
32 'Y-extent
'(-
4 . 4))))
35 (score
(ly
:make-score music
))
36 (mm
(ly
:output-def-lookup layout
'mm
))
37 (indent
(ly
:output-def-lookup layout
'indent
))
38 (width
(ly
:output-def-lookup layout
'incipit-width
))
39 (incipit-width
(if
(number? width
)
43 (ly
:output-def-set-variable
! layout
'indent
(- indent
45 (ly
:output-def-set-variable
! layout
'line-width indent
)
46 (ly
:output-def-set-variable
! layout
'ragged-right
#f)
47 (ly
:output-def-set-variable
! layout
'ragged-last
#f)
48 (ly
:output-def-set-variable
! layout
'system-count
1)
49 (ly
:score-add-output-def
! score layout
)
50 (ly
:grob-set-property
! grob
'long-text
51 (markup
#:score score
))
52 (system-start-text
::print grob
)))
55 %%%%%%%%%%%%%%%%%%%%%%%%%
58 \set Score
.skipBars
= ##t
65 % let finis bar go through all staves
66 \override Staff
.BarLine
#'transparent
= ##f
73 \new MensuralVoice
= "discantusIncipit" <<
74 \repeat unfold
9 { s1 \noBreak }
76 \clef "neomensural-c1"
82 \new Lyrics
\lyricsto discantusIncipit
{ IV-
}
93 \once \override NoteHead
#'transparent
= ##t
99 discantusLyrics
= \lyricmode {
110 \new MensuralVoice
= "altusIncipit" <<
111 \repeat unfold
9 { s1 \noBreak }
113 \clef "neomensural-c3"
119 \new Lyrics
\lyricsto altusIncipit
{ IV-
}
128 fis g4.( fis16 e fis4) |
130 \once \override NoteHead
#'transparent
= ##t
136 altusLyrics
= \lyricmode {
138 Ju -- bi -- la -- te |
146 \new MensuralVoice
= "tenorIncipit" <<
147 \repeat unfold
9 { s1 \noBreak }
149 \clef "neomensural-c4"
157 \new Lyrics
\lyricsto tenorIncipit
{ IV-
}
168 \once \override NoteHead
#'transparent
= ##t
174 tenorLyrics
= \lyricmode {
176 Ju -- bi -- la -- te |
182 \new MensuralVoice
= "bassusIncipit" <<
183 \repeat unfold
9 { s1 \noBreak }
193 \new Lyrics
\lyricsto bassusIncipit
{ IV-
}
204 \once \override NoteHead
#'transparent
= ##t
210 bassusLyrics
= \lyricmode {
218 \new StaffGroup
= choirStaff
<<
219 \new Voice
= "discantusNotes" <<
221 \set Staff
.instrumentName
= #"Discantus"
222 \incipit \discantusIncipit
225 \new Lyrics
= "discantusLyrics" \lyricsto discantusNotes
{ \discantusLyrics }
226 \new Voice
= "altusNotes" <<
228 \set Staff
.instrumentName
= #"Altus"
229 \incipit \altusIncipit
232 \new Lyrics
= "altusLyrics" \lyricsto altusNotes
{ \altusLyrics }
233 \new Voice
= "tenorNotes" <<
235 \set Staff
.instrumentName
= #"Tenor"
236 \incipit \tenorIncipit
239 \new Lyrics
= "tenorLyrics" \lyricsto tenorNotes
{ \tenorLyrics }
240 \new Voice
= "bassusNotes" <<
242 \set Staff
.instrumentName
= #"Bassus"
243 \incipit \bassusIncipit
246 \new Lyrics
= "bassusLyrics" \lyricsto bassusNotes
{ \bassusLyrics }
252 %% no bar lines in staves or lyrics
253 \override BarLine
#'transparent
= ##t
255 %% the next two instructions keep the lyrics between the bar lines
258 \consists "Bar_engraver"
259 \consists "Separating_line_group_engraver"
264 \override Slur
#'transparent
= ##t
265 %% Comment in the below "\remove" command to allow line
266 %% breaking also at those bar lines where a note overlaps
267 %% into the next measure. The command is commented out in this
268 %% short example score, but especially for large scores, you
269 %% will typically yield better line breaking and thus improve
270 %% overall spacing if you comment in the following command.
271 %%\remove "Forbid_line_break_engraver"