Documentation/snippets/ancient-notation-template----modern-transcription-of-mensural-music.ly

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