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