X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=input%2Flsr%2Fincipit.ly;h=718c48ed11e9e6bbd790d96749706daaebde3bc3;hb=1a4292f414b59aa92b65a6e69dd4d26d52263bee;hp=8cb264ce96b5569ff2cdfd917bc349b2dcb59fd9;hpb=9f29a1b2e60cfe923bef98f547634af141d2f7d3;p=lilypond.git diff --git a/input/lsr/incipit.ly b/input/lsr/incipit.ly index 8cb264ce96..718c48ed11 100644 --- a/input/lsr/incipit.ly +++ b/input/lsr/incipit.ly @@ -1,13 +1,13 @@ %% Do not edit this file; it is auto-generated from input/new %% This file is in the public domain. -\version "2.11.39" +\version "2.11.46" \header { - doctitle = "Incipit" - lsrtags = "staff-notation,Ancient notation" + lsrtags = "staff-notation,ancient-notation" texidoc = "Incipits can be added using the instrument name grob, but keeping separate the instrument name definition and the incipit definition." -} -% begin verbatim + doctitle = "Incipit" +} % begin verbatim + incipit = #(define-music-function (parser location incipit-music) (ly:music?) #{ @@ -53,7 +53,8 @@ global = { %make the staff lines invisible on staves \override Staff.BarLine #'transparent = ##t - \skip 1*8 % the actual music + % the actual music + \skip 1*8 % let finis bar go through all staves \override Staff.BarLine #'transparent = ##f @@ -69,7 +70,7 @@ discantusIncipit = << \clef "neomensural-c1" \key f \major \time 2/2 - c''1. + c''1. } >> \new Lyrics \lyricsto discantusIncipit { IV- } @@ -83,7 +84,8 @@ discantusNotes = { 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 | + \once \override NoteHead #'transparent = ##t + c'1 | b\breve | } } @@ -105,7 +107,7 @@ altusIncipit = << \clef "neomensural-c3" \key f \major \time 2/2 - r1 f'1. + r1 f'1. } >> \new Lyrics \lyricsto altusIncipit { IV- } @@ -114,17 +116,20 @@ altusIncipit = << altusNotes = { \transpose c' c'' { \clef "treble" - r2 g2. e4 fis g | % two bars + % two measures + r2 g2. e4 fis g | a2 g4 e | fis g4.( fis16 e fis4) | g1 | - \once \override NoteHead #'transparent = ##t g1 | + \once \override NoteHead #'transparent = ##t + g1 | g\breve | } } altusLyrics = \lyricmode { - Ju -- bi -- la -- te | % two bars + % two measures + Ju -- bi -- la -- te | De -- o, om -- | nis ter -- ra, | "..." | @@ -153,14 +158,17 @@ tenorNotes = { R1 | R1 | R1 | - r2 d'2. d'4 b e' | % two bars - \once \override NoteHead #'transparent = ##t e'1 | + % two measures + r2 d'2. d'4 b e' | + \once \override NoteHead #'transparent = ##t + e'1 | d'\breve | } } tenorLyrics = \lyricmode { - Ju -- bi -- la -- te | % two bars + % two measures + Ju -- bi -- la -- te | "..." | -us. } @@ -188,7 +196,8 @@ bassusNotes = { R1 | R1 | g2. e4 | - \once \override NoteHead #'transparent = ##t e1 | + \once \override NoteHead #'transparent = ##t + e1 | g\breve | } } @@ -196,28 +205,28 @@ bassusNotes = { bassusLyrics = \lyricmode { Ju -- bi- | "..." | - -us. + -us. } \score { << \new StaffGroup = choirStaff << \new Voice = "discantusNotes" << - \global + \global \set Staff.instrumentName = "Discantus" \incipit \discantusIncipit \discantusNotes >> \new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics } \new Voice = "altusNotes" << - \global + \global \set Staff.instrumentName = "Altus" \incipit \altusIncipit \altusNotes >> \new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics } \new Voice = "tenorNotes" << - \global + \global \set Staff.instrumentName = "Tenor" \incipit \tenorIncipit \tenorNotes @@ -229,30 +238,33 @@ bassusLyrics = \lyricmode { \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 bars in staves + %% no bar lines in staves \override BarLine #'transparent = ##t } - %% the next three instructions keep the lyrics between the barlines + %% the next three instructions keep the lyrics between the bar lines \context { - \Lyrics + \Lyrics \consists "Bar_engraver" \override BarLine #'transparent = ##t } - \context { \StaffGroup \consists "Separating_line_group_engraver" } + \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 + %% breaking also at those bar lines where a note overlaps + %% into the next measure. 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. @@ -261,4 +273,4 @@ bassusLyrics = \lyricmode { indent=6\cm incipit-width = 4\cm } -} \ No newline at end of file +}