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 = "specific-notation, ancient-notation, workaround, 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"
37 \set Score.skipBars = ##t
40 %make the staff lines invisible on staves
41 \override Staff.BarLine #'transparent = ##t
42 \skip 1*8 % the actual music
43 % let finis bar go through all staves
44 \override Staff.BarLine #'transparent = ##f
57 \once \override NoteHead #'transparent = ##t c'1 |
62 discantusLyrics = \lyricmode {
75 r2 g2. e4 fis g | % two bars
77 fis g4.( fis16 e fis4) |
79 \once \override NoteHead #'transparent = ##t g1 |
84 altusLyrics = \lyricmode {
85 Ju -- bi -- la -- te | % two bars
98 r2 d'2. d'4 b e' | % two bars
99 \once \override NoteHead #'transparent = ##t e'1 |
104 tenorLyrics = \lyricmode {
105 Ju -- bi -- la -- te | % two bars
118 \once \override NoteHead #'transparent = ##t e1 |
123 bassusLyrics = \lyricmode {
129 incipitDiscantus = \markup {
132 \set Staff.instrumentName = #"Discantus "
133 \override NoteHead #'style = #'neomensural
134 \override Rest #'style = #'neomensural
135 \override Staff.TimeSignature #'style = #'neomensural
137 \clef "neomensural-c1"
140 c''1._"IV-" s2 %two bars
141 \skip 1*8 % eight bars
146 \remove "Ligature_bracket_engraver"
147 \consists "Mensural_ligature_engraver"
154 incipitAltus = \markup {
157 \set Staff.instrumentName = #"Altus "
158 \override NoteHead #'style = #'neomensural
159 \override Rest #'style = #'neomensural
160 \override Staff.TimeSignature #'style = #'neomensural
162 \clef "neomensural-c3"
166 f'1._"IV-" s2 % two bars
167 \skip 1*7 % seven bars
172 \remove "Ligature_bracket_engraver"
173 \consists "Mensural_ligature_engraver"
180 incipitTenor = \markup {
183 \set Staff.instrumentName = #"Tenor "
184 \override NoteHead #'style = #'neomensural
185 \override Rest #'style = #'neomensural
186 \override Staff.TimeSignature #'style = #'neomensural
188 \clef "neomensural-c4"
194 c'1._"IV-" s2 % two bars
200 \remove "Ligature_bracket_engraver"
201 \consists "Mensural_ligature_engraver"
208 incipitBassus = \markup {
211 \set Staff.instrumentName = #"Bassus "
212 \override NoteHead #'style = #'neomensural
213 \override Rest #'style = #'neomensural
214 \override Staff.TimeSignature #'style = #'neomensural
220 r\maxima % eight bars
221 f1._"IV-" s2 % two bars
226 \remove "Ligature_bracket_engraver"
227 \consists "Mensural_ligature_engraver"
234 %StaffGroup is used instead of ChoirStaff to get bar lines between systems
237 \new StaffGroup = choirStaff <<
238 \new Voice = "discantusNotes" <<
240 \set Staff.instrumentName = \incipitDiscantus
243 \new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
245 \new Voice = "altusNotes" <<
247 \set Staff.instrumentName = \incipitAltus
250 \new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics }
252 \new Voice = "tenorNotes" <<
254 \set Staff.instrumentName = \incipitTenor
257 \new Lyrics = "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
259 \new Voice = "bassusNotes" <<
261 \set Staff.instrumentName = \incipitBassus
265 \new Lyrics = "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
266 %Keep the bass lyrics outside of the staff group to avoid bar lines
274 \override BarLine #'transparent = ##t
276 % the next three instructions keep the lyrics between the bar lines
279 \consists "Bar_engraver"
280 \override BarLine #'transparent = ##t
284 \consists "Separating_line_group_engraver"
289 \override Slur #'transparent = ##t
290 % Comment in the below "\remove" command to allow line
291 % breaking also at those barlines where a note overlaps
292 % into the next bar. The command is commented out in this
293 % short example score, but especially for large scores, you
294 % will typically yield better line breaking and thus improve
295 % overall spacing if you comment in the following command.
296 %\remove "Forbid_line_break_engraver"