Re: Update template for ancient music transcription

[Stefan Slapeta]

Here you are.

I would like to fix other things as well (i.e. the missing system start 
delimiter after the incipit!!), maybe someone could give me a hint?

Cheers,

Stefan


Graham Percival schrieb:
> Thanks for the interest!  Could you send me an entire new
> template, with these changes (and whatever else you'd like to
> change) ?  That would be easiest for me.
>
> Cheers,
> - Graham
>
> On Fri, 28 Dec 2007 11:45:16 +0100
> Stefan Slapeta <address@hidden> wrote:
>
>   
> > Hi,
> >
> > I'm quite new to lilypond and it took me some hours to find out why 
> > lyrics don't work as expected when using the template for ancient
> > music transcription (D.5.1).
> >
> > Referring to some newsgroup posts (http://tinyurl.com/2z6jlr, 
> > http://tinyurl.com/28yyhw), I propose to update this template to save 
> > others from investing the same amount of time again.
> >
> > 1)
> > Take the "bassusLyrics" out from the StaffGroup.
> >
> > 2)
> > Insert this sequence in the layout section:
> >
> >     \context { \Lyrics \consists "Bar_engraver" }
> >
> >     \context { \StaffGroup \consists
> > "Separating_line_group_engraver" }
> >
> >     \context { \Lyrics \override BarLine #'transparent = ##t }
> >
> >
> > Thanks in advance!
> >
> > BTW, I'm still struggling with other ancient music issues ... 
> > (http://tinyurl.com/256xgw, http://tinyurl.com/2d4ke8).
> >
> >
> > Stefan
> >
> >
> >
> >
> >
> > _______________________________________________
> > lilypond-devel mailing list
> > address@hidden
> > http://lists.gnu.org/mailman/listinfo/lilypond-devel
> >     

\version "2.10.10"

global = {
        \set Score.skipBars = ##t

        % incipit
        \once \override Score.SystemStartBracket #'transparent = ##t
        \override Score.SpacingSpanner #'spacing-increment = #1.0 % tight 
spacing
        \key f \major
        \time 2/2
        \once \override Staff.TimeSignature #'style = #'neomensural
        \override Voice.NoteHead #'style = #'neomensural
        \override Voice.Rest #'style = #'neomensural
        \set Staff.printKeyCancellation = ##f
        \cadenzaOn % turn off bar lines
        \skip 1*10
        \once \override Staff.BarLine #'transparent = ##f
        \bar "||"
        \skip 1*1 % need this extra \skip such that clef change comes
        % after bar line
        \bar ""
        
        % main
        \revert Score.SpacingSpanner #'spacing-increment % CHECK: no effect?
        \cadenzaOff % turn bar lines on again
        \once \override Staff.Clef #'full-size-change = ##t
        \set Staff.forceClef = ##t
        \key g \major
        \time 2/2
        \override Voice.NoteHead #'style = #'default
        \override Voice.Rest #'style = #'default
        
        % FIXME: setting printKeyCancellation back to #t must not
        % occur in the first bar after the incipit. Dto. for forceClef.
        % Therefore, we need an extra \skip.
        \skip 1*1
        \set Staff.printKeyCancellation = ##t
        \set Staff.forceClef = ##f
        
        \skip 1*7 % the actual music
        
        % let finis bar go through all staves
        \override Staff.BarLine #'transparent = ##f
        
        % finis bar
        \bar "|."
}

discantusNotes = {
        \transpose c' c'' {
                \set Staff.instrumentName = "Discantus "
                
                % incipit
                \clef "neomensural-c1"
                c'1. s2 % two bars
                \skip 1*8 % eight bars
                \skip 1*1 % one bar
                
                % main
                \clef "treble"
                d'2. d'4 |
                b e' d'2 |
                c'4 e'4.( d'8 c' b |
                a4) b a2 |
                b4.( c'8 d'4) c'4 |
                \once \override NoteHead #'transparent = ##t c'1 |
                b\breve |
        }
}

discantusLyrics = \lyricmode {
        % incipit
        IV-
        
        % main
        Ju -- bi -- |
        la -- te De -- |
        o, om --
        nis ter -- |
        ra, __ om- |
        "..." |
        -us. |
}

altusNotes = {
        \transpose c' c'' {
                \set Staff.instrumentName = "Altus "
                
                % incipit
                \clef "neomensural-c3"
                r1 % one bar
                f1. s2 % two bars
                \skip 1*7 % seven bars
                \skip 1*1 % one bar
                
                % main
                \clef "treble"
                r2 g2. e4 fis g | % two bars
                a2 g4 e |
                fis g4.( fis16 e fis4) |
                g1 |
                \once \override NoteHead #'transparent = ##t g1 |
                g\breve |
        }
}

altusLyrics = \lyricmode {
        % incipit
        IV
        
        % main
        Ju -- bi -- la -- te | % two bars
        De -- o, om -- |
        nis ter -- ra, |
        "..." |
        -us. |
}

tenorNotes = {
        \transpose c' c' {
                \set Staff.instrumentName = "Tenor "
                % incipit
                \clef "neomensural-c4"
                r\longa % four bars
                r\breve % two bars
                r1 % one bar
                c'1. s2 % two bars
                \skip 1*1 % one bar
                \skip 1*1 % one bar
                % main
                \clef "treble_8"
                R1 |
                R1 |
                R1 |
                r2 d'2. d'4 b e' | % two bars
                \once \override NoteHead #'transparent = ##t e'1 |
                d'\breve |
        }
}

tenorLyrics = \lyricmode {
        % incipit
        IV-
        % main
        Ju -- bi -- la -- te | % two bars
        "..." |
        -us. |
}

bassusNotes = {
        \transpose c' c' {
                \set Staff.instrumentName = "Bassus "

                % incipit
                \clef "bass"
                r\maxima % eight bars
                f1. s2 % two bars
                \skip 1*1 % one bar

                % main
                \clef "bass"
                R1 |
                R1 |
                R1 |
                R1 |
                g2. e4 |
                \once \override NoteHead #'transparent = ##t e1 |
                g\breve |
        }
}

bassusLyrics = \lyricmode {
        % incipit
        IV-

        % main
        Ju -- bi- |
        "..." |
        -us. |
}

\score {
        <<
                \new StaffGroup = choirStaff <<
                        \new Voice =
                        "discantusNotes" << \global \discantusNotes >>
                        \new Lyrics =
                        "discantusLyrics" \lyricsto discantusNotes { 
\discantusLyrics }
                        \new Voice =
                        "altusNotes" << \global \altusNotes >>
                        \new Lyrics =
                        "altusLyrics" \lyricsto altusNotes { \altusLyrics }
                        \new Voice =
                        "tenorNotes" << \global \tenorNotes >>
                        \new Lyrics =
                        "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
                        \new Voice =
                        "bassusNotes" << \global \bassusNotes >>
                >>
                % to avoid bar lines here, bassus lyrics are defined outside 
the StaffGroup
                \new Lyrics =
                "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
        >>

        \layout {
                \context {
                        \Score
                        % no bars in staves
                        \override BarLine #'transparent = ##t
                        % incipit should not start with a start delimiter
                        \remove "System_start_delimiter_engraver"
                }

                % the next three instructions keep the lyrics between the 
barlines
                \context { \Lyrics \consists "Bar_engraver" }
                \context { \Lyrics \override BarLine #'transparent = ##t } 
                \context { \StaffGroup \consists 
"Separating_line_group_engraver" }

                \context {
                        \Voice
                        % no slurs
                        \override Slur #'transparent = ##t
                        % Comment in the below "\remove" command to allow line
                        % breaking also at those barlines where a note overlaps
                        % into the next bar. The command is commented out in 
this
                        % short example score, but especially for large scores, 
you
                        % will typically yield better line breaking and thus 
improve
                        % overall spacing if you comment in the following 
command.
                        %\remove "Forbid_line_break_engraver"
                }
        }
}