X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fsnippets%2Ftranscription-of-ancient-music-with-incipit.ly;h=727fc563872533635f7a9a9e27c35921222dbeab;hb=c6abab57aae2a0114cec864c95213be6d874aa6a;hp=c737bf6ab12904907bbaff95b73d9ff805728440;hpb=92782fde87fb68e945b9eb60cacab6c01d0397df;p=lilypond.git diff --git a/Documentation/snippets/transcription-of-ancient-music-with-incipit.ly b/Documentation/snippets/transcription-of-ancient-music-with-incipit.ly index c737bf6ab1..727fc56387 100644 --- a/Documentation/snippets/transcription-of-ancient-music-with-incipit.ly +++ b/Documentation/snippets/transcription-of-ancient-music-with-incipit.ly @@ -1,12 +1,15 @@ -%% Do not edit this file; it is automatically +%% DO NOT EDIT this file manually; it is automatically %% generated from LSR http://lsr.dsi.unimi.it +%% Make any changes in LSR itself, or in Documentation/snippets/new/ , +%% and then run scripts/auxiliar/makelsr.py +%% %% This file is in the public domain. -\version "2.13.4" +\version "2.14.0" \header { lsrtags = "ancient-notation, tweaks-and-overrides" -%% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca +%% Translation of GIT committish: 6977ddc9a3b63ea810eaecb864269c7d847ccf98 texidoces = " A modo de alternativa para obtener auténticos «incipit» independientes de la partitura principal, se incluyen como @@ -33,22 +36,18 @@ global = { \set Score.skipBars = ##t \key g \major \time 4/4 - %make the staff lines invisible on staves \override Staff.BarLine #'transparent = ##t \skip 1*8 % the actual music - % let finis bar go through all staves \override Staff.BarLine #'transparent = ##f - % finis bar \bar "|." } - discantusNotes = { \transpose c' c'' { - \clef "treble" + \clef treble d'2. d'4 | b e' d'2 | c'4 e'4.( d'8 c' b | @@ -71,7 +70,7 @@ discantusLyrics = \lyricmode { altusNotes = { \transpose c' c'' { - \clef "treble" + \clef treble r2 g2. e4 fis g | % two bars a2 g4 e | fis g4.( fis16 e fis4) | @@ -109,7 +108,7 @@ tenorLyrics = \lyricmode { bassusNotes = { \transpose c' c' { - \clef "bass" + \clef bass R1 | R1 | R1 | @@ -126,137 +125,143 @@ bassusLyrics = \lyricmode { -us. } -incipitDiscantus = \markup{ - \score{ - { - \set Staff.instrumentName="Discantus " - \override NoteHead #'style = #'neomensural - \override Rest #'style = #'neomensural - \override Staff.TimeSignature #'style = #'neomensural - \cadenzaOn - \clef "neomensural-c1" - \key f \major - \time 2/2 - c''1._"IV-" s2 %two bars - \skip 1*8 % eight bars - } - \layout { - \context {\Voice - \remove Ligature_bracket_engraver - \consists Mensural_ligature_engraver - } - line-width=4.5\cm - } - } +incipitDiscantus = \markup { + \score { + { + \set Staff.instrumentName = #"Discantus " + \override NoteHead #'style = #'neomensural + \override Rest #'style = #'neomensural + \override Staff.TimeSignature #'style = #'neomensural + \cadenzaOn + \clef "neomensural-c1" + \key f \major + \time 2/2 + c''1._"IV-" s2 %two bars + \skip 1*8 % eight bars + } + \layout { + \context { + \Voice + \remove "Ligature_bracket_engraver" + \consists "Mensural_ligature_engraver" + } + line-width = 4.5\cm + } + } } -incipitAltus = \markup{ - \score{ - { - \set Staff.instrumentName="Altus " - \override NoteHead #'style = #'neomensural - \override Rest #'style = #'neomensural - \override Staff.TimeSignature #'style = #'neomensural - \cadenzaOn - \clef "neomensural-c3" - \key f \major - \time 2/2 - r1 % one bar - f'1._"IV-" s2 % two bars - \skip 1*7 % seven bars - } - \layout { - \context {\Voice - \remove Ligature_bracket_engraver - \consists Mensural_ligature_engraver - } - line-width=4.5\cm - } - } +incipitAltus = \markup { + \score { + { + \set Staff.instrumentName = #"Altus " + \override NoteHead #'style = #'neomensural + \override Rest #'style = #'neomensural + \override Staff.TimeSignature #'style = #'neomensural + \cadenzaOn + \clef "neomensural-c3" + \key f \major + \time 2/2 + r1 % one bar + f'1._"IV-" s2 % two bars + \skip 1*7 % seven bars + } + \layout { + \context { + \Voice + \remove "Ligature_bracket_engraver" + \consists "Mensural_ligature_engraver" + } + line-width = 4.5\cm + } + } } -incipitTenor = \markup{ - \score{ { - \set Staff.instrumentName = "Tenor " - \override NoteHead #'style = #'neomensural - \override Rest #'style = #'neomensural - \override Staff.TimeSignature #'style = #'neomensural - \cadenzaOn - \clef "neomensural-c4" - \key f \major - \time 2/2 - r\longa % four bars - r\breve % two bars - r1 % one bar - c'1._"IV-" s2 % two bars - \skip 1 % one bar +incipitTenor = \markup { + \score { + { + \set Staff.instrumentName = #"Tenor " + \override NoteHead #'style = #'neomensural + \override Rest #'style = #'neomensural + \override Staff.TimeSignature #'style = #'neomensural + \cadenzaOn + \clef "neomensural-c4" + \key f \major + \time 2/2 + r\longa % four bars + r\breve % two bars + r1 % one bar + c'1._"IV-" s2 % two bars + \skip 1 % one bar } \layout { - \context {\Voice - \remove Ligature_bracket_engraver - \consists Mensural_ligature_engraver - } - line-width=4.5\cm -} -} + \context { + \Voice + \remove "Ligature_bracket_engraver" + \consists "Mensural_ligature_engraver" + } + line-width = 4.5\cm + } + } } -incipitBassus = \markup{ - \score{ { - \set Staff.instrumentName = "Bassus " - \override NoteHead #'style = #'neomensural - \override Rest #'style = #'neomensural - \override Staff.TimeSignature #'style = #'neomensural - \cadenzaOn - \clef "bass" - \key f \major - \time 2/2 - % incipit - r\maxima % eight bars - f1._"IV-" s2 % two bars +incipitBassus = \markup { + \score { + { + \set Staff.instrumentName = #"Bassus " + \override NoteHead #'style = #'neomensural + \override Rest #'style = #'neomensural + \override Staff.TimeSignature #'style = #'neomensural + \cadenzaOn + \clef "bass" + \key f \major + \time 2/2 + % incipit + r\maxima % eight bars + f1._"IV-" s2 % two bars } \layout { - \context {\Voice - \remove Ligature_bracket_engraver - \consists Mensural_ligature_engraver - } - line-width=4.5\cm - } - } + \context { + \Voice + \remove "Ligature_bracket_engraver" + \consists "Mensural_ligature_engraver" + } + line-width = 4.5\cm + } + } } %StaffGroup is used instead of ChoirStaff to get bar lines between systems \score { << - \new StaffGroup = choirStaff << - \new Voice = - "discantusNotes" << \global - \set Staff.instrumentName=\incipitDiscantus - \discantusNotes >> - \new Lyrics = - "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics } + \new StaffGroup = choirStaff << + \new Voice = "discantusNotes" << + \global + \set Staff.instrumentName = \incipitDiscantus + \discantusNotes + >> + \new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics } - \new Voice = - "altusNotes" << \global - \set Staff.instrumentName=\incipitAltus - \altusNotes >> - \new Lyrics = - "altusLyrics" \lyricsto altusNotes { \altusLyrics } + \new Voice = "altusNotes" << + \global + \set Staff.instrumentName = \incipitAltus + \altusNotes + >> + \new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics } - \new Voice = - "tenorNotes" << \global - \set Staff.instrumentName=\incipitTenor - \tenorNotes >> - \new Lyrics = - "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics } + \new Voice = "tenorNotes" << + \global + \set Staff.instrumentName = \incipitTenor + \tenorNotes + >> + \new Lyrics = "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics } - \new Voice = - "bassusNotes" << \global - \set Staff.instrumentName=\incipitBassus - \bassusNotes >> + \new Voice = "bassusNotes" << + \global + \set Staff.instrumentName = \incipitBassus + \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. >> @@ -264,21 +269,23 @@ incipitBassus = \markup{ \layout { \context { \Score - % no bars in staves \override BarLine #'transparent = ##t } - % the next three instructions keep the lyrics between the barlines - \context { \Lyrics - \consists "Bar_engraver" - \override BarLine #'transparent = ##t } - \context { \StaffGroup \consists "Separating_line_group_engraver" } + % the next three instructions keep the lyrics between the bar lines + \context { + \Lyrics + \consists "Bar_engraver" + \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 @@ -287,7 +294,7 @@ incipitBassus = \markup{ % overall spacing if you comment in the following command. %\remove "Forbid_line_break_engraver" } - indent=5\cm + indent = 5\cm } }