%% Do not edit this file; it is auto-generated from input/new
%% This file is in the public domain.
-\version "2.11.55"
+%% Note: this file works from version 2.12.0
+\version "2.13.1"
\header {
texidoces = "
Los «incipit» se pueden escribir utilizando el grob del nombre del
doctitle = "Incipit"
} % begin verbatim
+
incipit =
#(define-music-function (parser location incipit-music) (ly:music?)
#{
\once \override Staff.InstrumentName #'self-alignment-Y = #UP
\once \override Staff.InstrumentName #'Y-offset = #4
\once \override Staff.InstrumentName #'padding = #0.3
- \once \override Staff.InstrumentName #'stencil =
+ \once \override Staff.InstrumentName #'stencil =
#(lambda (grob)
(let* ((instrument-name (ly:grob-property grob 'long-text))
(layout (ly:output-def-clone (ly:grob-layout grob)))
(ly:output-def-set-variable! layout 'ragged-last #f)
(ly:output-def-set-variable! layout 'system-count 1)
(ly:score-add-output-def! score layout)
- (set! (ly:grob-property grob 'long-text)
+ (ly:grob-set-property! grob 'long-text
(markup #:score score))
(ly:system-start-text::print grob)))
#})
\set Score.skipBars = ##t
\key g \major
\time 4/4
-
- %make the staff lines invisible on staves
- \override Staff.BarLine #'transparent = ##t
+
% the actual music
\skip 1*8
}
discantusIncipit = <<
- \new MensuralVoice = discantusIncipit <<
+ \new MensuralVoice = "discantusIncipit" <<
\repeat unfold 9 { s1 \noBreak }
{
\clef "neomensural-c1"
}
altusIncipit = <<
- \new MensuralVoice = altusIncipit <<
+ \new MensuralVoice = "altusIncipit" <<
\repeat unfold 9 { s1 \noBreak }
{
\clef "neomensural-c3"
}
tenorIncipit = <<
- \new MensuralVoice = tenorIncipit <<
+ \new MensuralVoice = "tenorIncipit" <<
\repeat unfold 9 { s1 \noBreak }
{
\clef "neomensural-c4"
}
bassusIncipit = <<
- \new MensuralVoice = bassusIncipit <<
+ \new MensuralVoice = "bassusIncipit" <<
\repeat unfold 9 { s1 \noBreak }
{
\clef "bass"
\new StaffGroup = choirStaff <<
\new Voice = "discantusNotes" <<
\global
- \set Staff.instrumentName = "Discantus"
+ \set Staff.instrumentName = #"Discantus"
\incipit \discantusIncipit
\discantusNotes
>>
\new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
\new Voice = "altusNotes" <<
\global
- \set Staff.instrumentName = "Altus"
+ \set Staff.instrumentName = #"Altus"
\incipit \altusIncipit
\altusNotes
>>
\new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics }
\new Voice = "tenorNotes" <<
\global
- \set Staff.instrumentName = "Tenor"
+ \set Staff.instrumentName = #"Tenor"
\incipit \tenorIncipit
\tenorNotes
>>
\new Lyrics = "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
\new Voice = "bassusNotes" <<
- \set Staff.instrumentName = "Bassus"
+ \global
+ \set Staff.instrumentName = #"Bassus"
\incipit \bassusIncipit
\bassusNotes
>>
+ \new Lyrics = "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
>>
- \new Lyrics = "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
- %% Keep the bass lyrics outside of the staff group to avoid bar lines
- %% between the lyrics.
>>
\layout {
\context {
\Score
- %% no bar lines in staves
+ %% no bar lines in staves or lyrics
\override BarLine #'transparent = ##t
}
- %% the next three instructions keep the lyrics between the bar lines
+ %% the next two instructions keep the lyrics between the bar lines
\context {
\Lyrics
- \consists "Bar_engraver"
- \override BarLine #'transparent = ##t
- }
- \context {
- \StaffGroup
+ \consists "Bar_engraver"
\consists "Separating_line_group_engraver"
}
\context {
%% overall spacing if you comment in the following command.
%%\remove "Forbid_line_break_engraver"
}
- indent=6\cm
+ indent = 6\cm
incipit-width = 4\cm
}
}