X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Fincipit.ly;h=aa6c5507e5c18197e1df427ae3ce03bae7df330f;hb=5c14a087ca6cbd665fd631452b7b1283ba0387c3;hp=97f142337abc58d77f2dbe5d42dd8a3bbf6eb70a;hpb=8dbc847638b24a60ca66110850cc020aeb69b646;p=lilypond.git diff --git a/input/lsr/incipit.ly b/input/lsr/incipit.ly index 97f142337a..aa6c5507e5 100644 --- a/input/lsr/incipit.ly +++ b/input/lsr/incipit.ly @@ -1,11 +1,18 @@ %% 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.62" \header { - doctitle = "Incipit" - lsrtags = "staff-notation,Ancient notation" + texidoces = " +Los «incipit» se pueden escribir utilizando el grob del nombre del +instruemento, pero manteniendo independientes las definiciones del +nombre del instrumento y del incipit." + + doctitlees = "Incipit" + + 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." + doctitle = "Incipit" } % begin verbatim incipit = @@ -53,7 +60,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 @@ -63,13 +71,13 @@ global = { } discantusIncipit = << - \new MensuralVoice = discantusIncipit << + \new MensuralVoice = "discantusIncipit" << \repeat unfold 9 { s1 \noBreak } { \clef "neomensural-c1" \key f \major \time 2/2 - c''1. + c''1. } >> \new Lyrics \lyricsto discantusIncipit { IV- } @@ -83,7 +91,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 | } } @@ -99,13 +108,13 @@ discantusLyrics = \lyricmode { } altusIncipit = << - \new MensuralVoice = altusIncipit << + \new MensuralVoice = "altusIncipit" << \repeat unfold 9 { s1 \noBreak } { \clef "neomensural-c3" \key f \major \time 2/2 - r1 f'1. + r1 f'1. } >> \new Lyrics \lyricsto altusIncipit { IV- } @@ -114,17 +123,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, | "..." | @@ -132,7 +144,7 @@ altusLyrics = \lyricmode { } tenorIncipit = << - \new MensuralVoice = tenorIncipit << + \new MensuralVoice = "tenorIncipit" << \repeat unfold 9 { s1 \noBreak } { \clef "neomensural-c4" @@ -153,20 +165,23 @@ 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. } bassusIncipit = << - \new MensuralVoice = bassusIncipit << + \new MensuralVoice = "bassusIncipit" << \repeat unfold 9 { s1 \noBreak } { \clef "bass" @@ -188,7 +203,8 @@ bassusNotes = { R1 | R1 | g2. e4 | - \once \override NoteHead #'transparent = ##t e1 | + \once \override NoteHead #'transparent = ##t + e1 | g\breve | } } @@ -196,69 +212,73 @@ bassusNotes = { bassusLyrics = \lyricmode { Ju -- bi- | "..." | - -us. + -us. } \score { << \new StaffGroup = choirStaff << \new Voice = "discantusNotes" << - \global - \set Staff.instrumentName = "Discantus" + \global + \set Staff.instrumentName = #"Discantus" \incipit \discantusIncipit \discantusNotes >> \new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics } \new Voice = "altusNotes" << - \global - \set Staff.instrumentName = "Altus" + \global + \set Staff.instrumentName = #"Altus" \incipit \altusIncipit \altusNotes >> \new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics } \new Voice = "tenorNotes" << - \global - \set Staff.instrumentName = "Tenor" + \global + \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 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. %%\remove "Forbid_line_break_engraver" } - indent=6\cm + indent = 6\cm incipit-width = 4\cm } }