input/lsr/ancient-notation-template----modern-transcription-of-mensural-music.ly

   1 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
   2 %% This file is in the public domain.
   3 \version "2.11.66"
   4
   5 \header {
   6   lsrtags = "ancient-notation, template"
   7
   8   texidoces = "
   9 Al transcribir música mensural, es útil un «incipit» al compienzo
  10 de la pieza para indicar la tonalidad y el tempo
  11 originales. Aunque los músicos actuales están acostumbrados a las
  12 barras de compás para reconocer con más facilidad los patrones
  13 rítmicos, durante el período de la música mensural aún no se
  14 habíen inventado las líneas divisorias; de hecho, la medida solía
  15 cambiar a cada pocas notas. Como compromiso, a menudo las líneas
  16 divisorias se imprimen entre los pentagramas en vez de hacerlo
  17 encima de ellos.
  18
  19 "
  20   doctitlees = "Plantilla de notación de música antigua (transcripción moderna de música mensural)"
  21
  22   texidocde = "
  23 Bei der Transkription von Mensuralmusik ist es oft erwünscht, ein
  24 Incipit an den Anfang des Stückes zu stellen, damit klar ist, wie
  25 Tempo und Schlüssel in der Originalnotation gesetzt waren. Während
  26 heutzutage Musiker an Taktlinien gewöhnt sind, um Rhythmen schneller
  27 zu erkennen, wurden diese in der Mensuralmusik nicht verwendet.
  28 Tatsächlich ändern sich die Rhythmen auch oft alle paar Noten. Als
  29 ein Kompromiss werden die Notenlinien nicht auf dem System, sondern
  30 zwischen den Systemen geschrieben.
  31 "
  32
  33   texidoc = "
  34 When transcribing mensural music, an incipit at the beginning of the
  35 piece is useful to indicate the original key and tempo. While today
  36 musicians are used to bar lines in order to faster recognize rhythmic
  37 patterns, bar lines were not yet invented during the period of mensural
  38 music; in fact, the meter often changed after every few notes. As a
  39 compromise, bar lines are often printed between the staves rather than
  40 on the staves.
  41
  42 "
  43   doctitle = "Ancient notation template -- modern transcription of mensural music"
  44 } % begin verbatim
  45
  46 global = {
  47   \set Score.skipBars = ##t
  48
  49   % incipit
  50   \once \override Score.SystemStartBracket #'transparent = ##t
  51   \override Score.SpacingSpanner #'spacing-increment = #1.0 % tight spacing
  52   \key f \major
  53   \time 2/2
  54   \once \override Staff.TimeSignature #'style = #'neomensural
  55   \override Voice.NoteHead #'style = #'neomensural
  56   \override Voice.Rest #'style = #'neomensural
  57   \set Staff.printKeyCancellation = ##f
  58   \cadenzaOn % turn off bar lines
  59   \skip 1*10
  60   \once \override Staff.BarLine #'transparent = ##f
  61   \bar "||"
  62   \skip 1*1 % need this extra \skip such that clef change comes
  63             % after bar line
  64   \bar ""
  65
  66   % main
  67   \revert Score.SpacingSpanner #'spacing-increment % CHECK: no effect?
  68   \cadenzaOff % turn bar lines on again
  69   \once \override Staff.Clef #'full-size-change = ##t
  70   \set Staff.forceClef = ##t
  71   \key g \major
  72   \time 4/4
  73   \override Voice.NoteHead #'style = #'default
  74   \override Voice.Rest #'style = #'default
  75
  76   % FIXME: setting printKeyCancellation back to #t must not
  77   % occur in the first bar after the incipit.  Dto. for forceClef.
  78   % Therefore, we need an extra \skip.
  79   \skip 1*1
  80   \set Staff.printKeyCancellation = ##t
  81   \set Staff.forceClef = ##f
  82
  83   \skip 1*7 % the actual music
  84
  85   % let finis bar go through all staves
  86   \override Staff.BarLine #'transparent = ##f
  87
  88   % finis bar
  89   \bar "|."
  90 }
  91
  92 discantusNotes = {
  93   \transpose c' c'' {
  94     \set Staff.instrumentName = #"Discantus  "
  95
  96     % incipit
  97     \clef "neomensural-c1"
  98     c'1. s2   % two bars
  99     \skip 1*8 % eight bars
 100     \skip 1*1 % one bar
 101
 102     % main
 103     \clef "treble"
 104     d'2. d'4 |
 105     b e' d'2 |
 106     c'4 e'4.( d'8 c' b |
 107     a4) b a2 |
 108     b4.( c'8 d'4) c'4 |
 109     \once \override NoteHead #'transparent = ##t c'1 |
 110     b\breve |
 111   }
 112 }
 113
 114 discantusLyrics = \lyricmode {
 115   % incipit
 116   IV-
 117
 118   % main
 119   Ju -- bi -- |
 120   la -- te De -- |
 121   o, om --
 122   nis ter -- |
 123   ra, __ om- |
 124   "..." |
 125   -us. |
 126 }
 127
 128 altusNotes = {
 129   \transpose c' c'' {
 130     \set Staff.instrumentName = #"Altus  "
 131
 132     % incipit
 133     \clef "neomensural-c3"
 134     r1        % one bar
 135     f1. s2    % two bars
 136     \skip 1*7 % seven bars
 137     \skip 1*1 % one bar
 138
 139     % main
 140     \clef "treble"
 141     r2 g2. e4 fis g | % two bars
 142     a2 g4 e |
 143     fis g4.( fis16 e fis4) |
 144     g1 |
 145     \once \override NoteHead #'transparent = ##t g1 |
 146     g\breve |
 147   }
 148 }
 149
 150 altusLyrics = \lyricmode {
 151   % incipit
 152   IV-
 153
 154   % main
 155   Ju -- bi -- la -- te | % two bars
 156   De -- o, om -- |
 157   nis ter -- ra, |
 158   "..." |
 159   -us. |
 160 }
 161
 162 tenorNotes = {
 163   \transpose c' c' {
 164     \set Staff.instrumentName = #"Tenor  "
 165
 166     % incipit
 167     \clef "neomensural-c4"
 168     r\longa   % four bars
 169     r\breve   % two bars
 170     r1        % one bar
 171     c'1. s2   % two bars
 172     \skip 1*1 % one bar
 173     \skip 1*1 % one bar
 174
 175     % main
 176     \clef "treble_8"
 177     R1 |
 178     R1 |
 179     R1 |
 180     r2 d'2. d'4 b e' | % two bars
 181     \once \override NoteHead #'transparent = ##t e'1 |
 182     d'\breve |
 183   }
 184 }
 185
 186 tenorLyrics = \lyricmode {
 187   % incipit
 188   IV-
 189
 190   % main
 191   Ju -- bi -- la -- te | % two bars
 192   "..." |
 193   -us. |
 194 }
 195
 196 bassusNotes = {
 197   \transpose c' c' {
 198     \set Staff.instrumentName = #"Bassus  "
 199
 200     % incipit
 201     \clef "bass"
 202     r\maxima  % eight bars
 203     f1. s2    % two bars
 204     \skip 1*1 % one bar
 205
 206     % main
 207     \clef "bass"
 208     R1 |
 209     R1 |
 210     R1 |
 211     R1 |
 212     g2. e4 |
 213     \once \override NoteHead #'transparent = ##t e1 |
 214     g\breve |
 215   }
 216 }
 217
 218 bassusLyrics = \lyricmode {
 219   % incipit
 220   IV-
 221
 222   % main
 223   Ju -- bi- |
 224   "..." |
 225   -us. |
 226 }
 227
 228 \score {
 229   \new StaffGroup = choirStaff <<
 230     \new Voice =
 231       "discantusNotes" << \global \discantusNotes >>
 232     \new Lyrics =
 233       "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
 234     \new Voice =
 235       "altusNotes" << \global \altusNotes >>
 236     \new Lyrics =
 237       "altusLyrics" \lyricsto altusNotes { \altusLyrics }
 238     \new Voice =
 239       "tenorNotes" << \global \tenorNotes >>
 240     \new Lyrics =
 241       "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
 242     \new Voice =
 243       "bassusNotes" << \global \bassusNotes >>
 244     \new Lyrics =
 245       "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
 246   >>
 247   \layout {
 248     \context {
 249       \Score
 250
 251       % no bars in staves
 252       \override BarLine #'transparent = ##t
 253
 254       % incipit should not start with a start delimiter
 255       \remove "System_start_delimiter_engraver"
 256     }
 257     \context {
 258       \Voice
 259
 260       % no slurs
 261       \override Slur #'transparent = ##t
 262
 263       % Comment in the below "\remove" command to allow line
 264       % breaking also at those barlines where a note overlaps
 265       % into the next bar.  The command is commented out in this
 266       % short example score, but especially for large scores, you
 267       % will typically yield better line breaking and thus improve
 268       % overall spacing if you comment in the following command.
 269       %\remove "Forbid_line_break_engraver"
 270     }
 271   }
 272 }
 273
 274
 275