4 lsrtags = "staff-notation,Ancient notation"
5 texidoc = "Incipits can be added using the instrument name grob, but
6 keeping separate the instrument name definition and the incipit definition."
10 #(define-music-function (parser location incipit-music) (ly:music?)
12 \once \override Staff.InstrumentName #'self-alignment-X = #RIGHT
13 \once \override Staff.InstrumentName #'self-alignment-Y = #UP
14 \once \override Staff.InstrumentName #'Y-offset = #4
15 \once \override Staff.InstrumentName #'padding = #0.3
16 \once \override Staff.InstrumentName #'stencil =
18 (let* ((instrument-name (ly:grob-property grob 'long-text))
19 (layout (ly:output-def-clone (ly:grob-layout grob)))
20 (music (make-music 'SequentialMusic
21 'elements (list (make-music 'ContextSpeccedMusic
22 'context-type 'MensuralStaff
23 'element (make-music 'PropertySet
24 'symbol 'instrumentName
25 'value instrument-name))
27 (score (ly:make-score music))
28 (mm (ly:output-def-lookup layout 'mm))
29 (indent (ly:output-def-lookup layout 'indent))
30 (width (ly:output-def-lookup layout 'incipit-width))
31 (incipit-width (if (number? width)
34 (ly:output-def-set-variable! layout 'indent (- indent incipit-width))
35 (ly:output-def-set-variable! layout 'line-width indent)
36 (ly:output-def-set-variable! layout 'ragged-right #f)
37 (ly:output-def-set-variable! layout 'ragged-last #f)
38 (ly:output-def-set-variable! layout 'system-count 1)
39 (ly:score-add-output-def! score layout)
40 (set! (ly:grob-property grob 'long-text)
41 (markup #:score score))
42 (ly:system-start-text::print grob)))
45 %%%%%%%%%%%%%%%%%%%%%%%%%
48 \set Score.skipBars = ##t
52 %make the staff lines invisible on staves
53 \override Staff.BarLine #'transparent = ##t
54 \skip 1*8 % the actual music
56 % let finis bar go through all staves
57 \override Staff.BarLine #'transparent = ##f
64 \new MensuralVoice = discantusIncipit <<
65 \repeat unfold 9 { s1 \noBreak }
67 \clef "neomensural-c1"
73 \new Lyrics \lyricsto discantusIncipit { IV- }
84 \once \override NoteHead #'transparent = ##t c'1 |
89 discantusLyrics = \lyricmode {
100 \new MensuralVoice = altusIncipit <<
101 \repeat unfold 9 { s1 \noBreak }
103 \clef "neomensural-c3"
109 \new Lyrics \lyricsto altusIncipit { IV- }
115 r2 g2. e4 fis g | % two bars
117 fis g4.( fis16 e fis4) |
119 \once \override NoteHead #'transparent = ##t g1 |
124 altusLyrics = \lyricmode {
125 Ju -- bi -- la -- te | % two bars
133 \new MensuralVoice = tenorIncipit <<
134 \repeat unfold 9 { s1 \noBreak }
136 \clef "neomensural-c4"
144 \new Lyrics \lyricsto tenorIncipit { IV- }
149 \once \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-6 . 3)
154 r2 d'2. d'4 b e' | % two bars
155 \once \override NoteHead #'transparent = ##t e'1 |
160 tenorLyrics = \lyricmode {
161 Ju -- bi -- la -- te | % two bars
167 \new MensuralVoice = bassusIncipit <<
168 \repeat unfold 9 { s1 \noBreak }
178 \new Lyrics \lyricsto bassusIncipit { IV- }
189 \once \override NoteHead #'transparent = ##t e1 |
194 bassusLyrics = \lyricmode {
202 \new StaffGroup = choirStaff <<
203 \new Voice = "discantusNotes" <<
205 \set Staff.instrumentName = "Discantus"
206 \incipit \discantusIncipit
209 \new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
210 \new Voice = "altusNotes" <<
212 \set Staff.instrumentName = "Altus"
213 \incipit \altusIncipit
216 \new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics }
217 \new Voice = "tenorNotes" <<
219 \set Staff.instrumentName = "Tenor"
220 \incipit \tenorIncipit
223 \new Lyrics = "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
224 \new Voice = "bassusNotes" <<
225 \set Staff.instrumentName = "Bassus"
226 \incipit \bassusIncipit
230 \new Lyrics = "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
231 %% Keep the bass lyrics outside of the staff group to avoid bar lines
232 %% between the lyrics.
238 \override BarLine #'transparent = ##t
240 %% the next three instructions keep the lyrics between the barlines
243 \consists "Bar_engraver"
244 \override BarLine #'transparent = ##t
246 \context { \StaffGroup \consists "Separating_line_group_engraver" }
250 \override Slur #'transparent = ##t
251 %% Comment in the below "\remove" command to allow line
252 %% breaking also at those barlines where a note overlaps
253 %% into the next bar. The command is commented out in this
254 %% short example score, but especially for large scores, you
255 %% will typically yield better line breaking and thus improve
256 %% overall spacing if you comment in the following command.
257 %%\remove "Forbid_line_break_engraver"