1 %% DO NOT EDIT this file manually; it is automatically
2 %% generated from LSR http://lsr.dsi.unimi.it
3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
4 %% and then run scripts/auxiliar/makelsr.py
6 %% This file is in the public domain.
10 lsrtags = "ancient-notation, tweaks-and-overrides"
12 %% Translation of GIT committish: 6977ddc9a3b63ea810eaecb864269c7d847ccf98
14 A modo de alternativa para obtener auténticos «incipit»
15 independientes de la partitura principal, se incluyen como
16 elemento de marcado en el campo que se usa normalmente para el
17 nombre del instrumento. Por el momento, la letra sólo se puede
18 añadir como marcado directo. Por desgracia, su espaciado no es
19 análogo al de la letra principal.
22 doctitlees = "Transcripción de música antigua con incipit"
25 As a workaround to get real incipits which are independent from the
26 main score these are included as a markup into the field normally used
27 for the instrument name. As for now lyrics can only be added as a
28 direct markup. It doesn't unfortunately conform with the spacing of the
32 doctitle = "Transcription of Ancient music with incipit"
36 \set Score.skipBars = ##t
39 %make the staff lines invisible on staves
40 \override Staff.BarLine #'transparent = ##t
41 \skip 1*8 % the actual music
42 % let finis bar go through all staves
43 \override Staff.BarLine #'transparent = ##f
56 \once \override NoteHead #'transparent = ##t c'1 |
61 discantusLyrics = \lyricmode {
74 r2 g2. e4 fis g | % two bars
76 fis g4.( fis16 e fis4) |
78 \once \override NoteHead #'transparent = ##t g1 |
83 altusLyrics = \lyricmode {
84 Ju -- bi -- la -- te | % two bars
97 r2 d'2. d'4 b e' | % two bars
98 \once \override NoteHead #'transparent = ##t e'1 |
103 tenorLyrics = \lyricmode {
104 Ju -- bi -- la -- te | % two bars
117 \once \override NoteHead #'transparent = ##t e1 |
122 bassusLyrics = \lyricmode {
128 incipitDiscantus = \markup {
131 \set Staff.instrumentName = #"Discantus "
132 \override NoteHead #'style = #'neomensural
133 \override Rest #'style = #'neomensural
134 \override Staff.TimeSignature #'style = #'neomensural
136 \clef "neomensural-c1"
139 c''1._"IV-" s2 %two bars
140 \skip 1*8 % eight bars
145 \remove "Ligature_bracket_engraver"
146 \consists "Mensural_ligature_engraver"
153 incipitAltus = \markup {
156 \set Staff.instrumentName = #"Altus "
157 \override NoteHead #'style = #'neomensural
158 \override Rest #'style = #'neomensural
159 \override Staff.TimeSignature #'style = #'neomensural
161 \clef "neomensural-c3"
165 f'1._"IV-" s2 % two bars
166 \skip 1*7 % seven bars
171 \remove "Ligature_bracket_engraver"
172 \consists "Mensural_ligature_engraver"
179 incipitTenor = \markup {
182 \set Staff.instrumentName = #"Tenor "
183 \override NoteHead #'style = #'neomensural
184 \override Rest #'style = #'neomensural
185 \override Staff.TimeSignature #'style = #'neomensural
187 \clef "neomensural-c4"
193 c'1._"IV-" s2 % two bars
199 \remove "Ligature_bracket_engraver"
200 \consists "Mensural_ligature_engraver"
207 incipitBassus = \markup {
210 \set Staff.instrumentName = #"Bassus "
211 \override NoteHead #'style = #'neomensural
212 \override Rest #'style = #'neomensural
213 \override Staff.TimeSignature #'style = #'neomensural
219 r\maxima % eight bars
220 f1._"IV-" s2 % two bars
225 \remove "Ligature_bracket_engraver"
226 \consists "Mensural_ligature_engraver"
233 %StaffGroup is used instead of ChoirStaff to get bar lines between systems
236 \new StaffGroup = choirStaff <<
237 \new Voice = "discantusNotes" <<
239 \set Staff.instrumentName = \incipitDiscantus
242 \new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
244 \new Voice = "altusNotes" <<
246 \set Staff.instrumentName = \incipitAltus
249 \new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics }
251 \new Voice = "tenorNotes" <<
253 \set Staff.instrumentName = \incipitTenor
256 \new Lyrics = "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
258 \new Voice = "bassusNotes" <<
260 \set Staff.instrumentName = \incipitBassus
264 \new Lyrics = "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
265 %Keep the bass lyrics outside of the staff group to avoid bar lines
273 \override BarLine #'transparent = ##t
275 % the next three instructions keep the lyrics between the bar lines
278 \consists "Bar_engraver"
279 \override BarLine #'transparent = ##t
283 \consists "Separating_line_group_engraver"
288 \override Slur #'transparent = ##t
289 % Comment in the below "\remove" command to allow line
290 % breaking also at those barlines where a note overlaps
291 % into the next bar. The command is commented out in this
292 % short example score, but especially for large scores, you
293 % will typically yield better line breaking and thus improve
294 % overall spacing if you comment in the following command.
295 %\remove "Forbid_line_break_engraver"