Documentation/snippets/transcription-of-ancient-music-with-incipit.ly

   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
   5 %%
   6 %% This file is in the public domain.
   7 \version "2.14.0"
   8
   9 \header {
  10   lsrtags = "ancient-notation, tweaks-and-overrides"
  11
  12 %% Translation of GIT committish: 59caa3adce63114ca7972d18f95d4aadc528ec3d
  13   texidoces = "
  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.
  20
  21 "
  22   doctitlees = "Transcripción de música antigua con incipit"
  23
  24   texidoc = "
  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
  29 main lyrics.
  30
  31 "
  32   doctitle = "Transcription of Ancient music with incipit"
  33 } % begin verbatim
  34
  35 global = {
  36   \set Score.skipBars = ##t
  37   \key g \major
  38   \time 4/4
  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
  44   % finis bar
  45   \bar "|."
  46 }
  47
  48 discantusNotes = {
  49   \transpose c' c'' {
  50     \clef treble
  51     d'2. d'4 |
  52     b e' d'2 |
  53     c'4 e'4.( d'8 c' b |
  54     a4) b a2 |
  55     b4.( c'8 d'4) c'4 |
  56     \once \override NoteHead #'transparent = ##t c'1 |
  57     b\breve |
  58   }
  59 }
  60
  61 discantusLyrics = \lyricmode {
  62   Ju -- bi -- |
  63   la -- te De -- |
  64   o, om --
  65   nis ter -- |
  66   ra, __ om- |
  67   "..." |
  68   -us. |
  69 }
  70
  71 altusNotes = {
  72   \transpose c' c'' {
  73     \clef treble
  74     r2 g2. e4 fis g | % two bars
  75     a2 g4 e |
  76     fis g4.( fis16 e fis4) |
  77     g1 |
  78     \once \override NoteHead #'transparent = ##t g1 |
  79     g\breve |
  80   }
  81 }
  82
  83 altusLyrics = \lyricmode {
  84   Ju -- bi -- la -- te | % two bars
  85   De -- o, om -- |
  86   nis ter -- ra, |
  87   "..." |
  88   -us. |
  89 }
  90
  91 tenorNotes = {
  92   \transpose c' c' {
  93     \clef "treble_8"
  94     R1 |
  95     R1 |
  96     R1 |
  97     r2 d'2. d'4 b e' | % two bars
  98     \once \override NoteHead #'transparent = ##t e'1 |
  99     d'\breve |
 100   }
 101 }
 102
 103 tenorLyrics = \lyricmode {
 104   Ju -- bi -- la -- te | % two bars
 105   "..." |
 106   -us.
 107 }
 108
 109 bassusNotes = {
 110   \transpose c' c' {
 111     \clef bass
 112     R1 |
 113     R1 |
 114     R1 |
 115     R1 |
 116     g2. e4 |
 117     \once \override NoteHead #'transparent = ##t e1 |
 118     g\breve |
 119   }
 120 }
 121
 122 bassusLyrics = \lyricmode {
 123   Ju -- bi- |
 124   "..." |
 125   -us.
 126 }
 127
 128 incipitDiscantus = \markup {
 129   \score {
 130     {
 131       \set Staff.instrumentName = #"Discantus "
 132       \override NoteHead #'style = #'neomensural
 133       \override Rest #'style = #'neomensural
 134       \override Staff.TimeSignature #'style = #'neomensural
 135       \cadenzaOn
 136       \clef "neomensural-c1"
 137       \key f \major
 138       \time 2/2
 139       c''1._"IV-" s2  %two bars
 140       \skip 1*8 % eight bars
 141     }
 142     \layout {
 143       \context {
 144         \Voice
 145         \remove "Ligature_bracket_engraver"
 146         \consists "Mensural_ligature_engraver"
 147       }
 148       line-width = 4.5\cm
 149     }
 150   }
 151 }
 152
 153 incipitAltus = \markup {
 154   \score {
 155     {
 156       \set Staff.instrumentName = #"Altus "
 157       \override NoteHead #'style = #'neomensural
 158       \override Rest #'style = #'neomensural
 159       \override Staff.TimeSignature #'style = #'neomensural
 160       \cadenzaOn
 161       \clef "neomensural-c3"
 162       \key f \major
 163       \time 2/2
 164       r1        % one bar
 165       f'1._"IV-" s2   % two bars
 166       \skip 1*7 % seven bars
 167     }
 168     \layout {
 169       \context {
 170         \Voice
 171         \remove "Ligature_bracket_engraver"
 172         \consists "Mensural_ligature_engraver"
 173       }
 174       line-width = 4.5\cm
 175     }
 176   }
 177 }
 178
 179 incipitTenor = \markup {
 180   \score {
 181     {
 182       \set Staff.instrumentName = #"Tenor  "
 183       \override NoteHead #'style = #'neomensural
 184       \override Rest #'style = #'neomensural
 185       \override Staff.TimeSignature #'style = #'neomensural
 186       \cadenzaOn
 187       \clef "neomensural-c4"
 188       \key f \major
 189       \time 2/2
 190       r\longa   % four bars
 191       r\breve   % two bars
 192       r1        % one bar
 193       c'1._"IV-" s2   % two bars
 194       \skip 1   % one bar
 195     }
 196     \layout {
 197       \context {
 198         \Voice
 199         \remove "Ligature_bracket_engraver"
 200         \consists "Mensural_ligature_engraver"
 201       }
 202       line-width = 4.5\cm
 203     }
 204   }
 205 }
 206
 207 incipitBassus = \markup {
 208   \score {
 209     {
 210       \set Staff.instrumentName = #"Bassus  "
 211       \override NoteHead #'style = #'neomensural
 212       \override Rest #'style = #'neomensural
 213       \override Staff.TimeSignature #'style = #'neomensural
 214       \cadenzaOn
 215       \clef "bass"
 216       \key f \major
 217       \time 2/2
 218       % incipit
 219       r\maxima  % eight bars
 220       f1._"IV-" s2    % two bars
 221     }
 222     \layout {
 223       \context {
 224         \Voice
 225         \remove "Ligature_bracket_engraver"
 226         \consists "Mensural_ligature_engraver"
 227       }
 228       line-width = 4.5\cm
 229     }
 230   }
 231 }
 232
 233 %StaffGroup is used instead of ChoirStaff to get bar lines between systems
 234 \score {
 235   <<
 236     \new StaffGroup = choirStaff <<
 237       \new Voice = "discantusNotes" <<
 238         \global
 239         \set Staff.instrumentName = \incipitDiscantus
 240         \discantusNotes
 241       >>
 242       \new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
 243
 244       \new Voice = "altusNotes" <<
 245         \global
 246         \set Staff.instrumentName = \incipitAltus
 247         \altusNotes
 248       >>
 249       \new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics }
 250
 251       \new Voice = "tenorNotes" <<
 252         \global
 253         \set Staff.instrumentName = \incipitTenor
 254         \tenorNotes
 255       >>
 256       \new Lyrics = "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
 257
 258       \new Voice = "bassusNotes" <<
 259         \global
 260         \set Staff.instrumentName = \incipitBassus
 261         \bassusNotes
 262       >>
 263     >>
 264     \new Lyrics = "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
 265     %Keep the bass lyrics outside of the staff group to avoid bar lines
 266     %between the lyrics.
 267   >>
 268
 269   \layout {
 270     \context {
 271       \Score
 272       % no bars in staves
 273       \override BarLine #'transparent = ##t
 274     }
 275     % the next three instructions keep the lyrics between the bar lines
 276     \context {
 277       \Lyrics
 278       \consists "Bar_engraver"
 279       \override BarLine #'transparent = ##t
 280     }
 281     \context {
 282       \StaffGroup
 283       \consists "Separating_line_group_engraver"
 284     }
 285     \context {
 286       \Voice
 287       % no slurs
 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"
 296     }
 297     indent = 5\cm
 298   }
 299 }
 300