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.62"
   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 global = {
  46   \set Score.skipBars = ##t
  47
  48   % incipit
  49   \once \override Score.SystemStartBracket #'transparent = ##t
  50   \override Score.SpacingSpanner #'spacing-increment = #1.0 % tight spacing
  51   \key f \major
  52   \time 2/2
  53   \once \override Staff.TimeSignature #'style = #'neomensural
  54   \override Voice.NoteHead #'style = #'neomensural
  55   \override Voice.Rest #'style = #'neomensural
  56   \set Staff.printKeyCancellation = ##f
  57   \cadenzaOn % turn off bar lines
  58   \skip 1*10
  59   \once \override Staff.BarLine #'transparent = ##f
  60   \bar "||"
  61   \skip 1*1 % need this extra \skip such that clef change comes
  62             % after bar line
  63   \bar ""
  64
  65   % main
  66   \revert Score.SpacingSpanner #'spacing-increment % CHECK: no effect?
  67   \cadenzaOff % turn bar lines on again
  68   \once \override Staff.Clef #'full-size-change = ##t
  69   \set Staff.forceClef = ##t
  70   \key g \major
  71   \time 4/4
  72   \override Voice.NoteHead #'style = #'default
  73   \override Voice.Rest #'style = #'default
  74
  75   % FIXME: setting printKeyCancellation back to #t must not
  76   % occur in the first bar after the incipit.  Dto. for forceClef.
  77   % Therefore, we need an extra \skip.
  78   \skip 1*1
  79   \set Staff.printKeyCancellation = ##t
  80   \set Staff.forceClef = ##f
  81
  82   \skip 1*7 % the actual music
  83
  84   % let finis bar go through all staves
  85   \override Staff.BarLine #'transparent = ##f
  86
  87   % finis bar
  88   \bar "|."
  89 }
  90
  91 discantusNotes = {
  92   \transpose c' c'' {
  93     \set Staff.instrumentName = #"Discantus  "
  94
  95     % incipit
  96     \clef "neomensural-c1"
  97     c'1. s2   % two bars
  98     \skip 1*8 % eight bars
  99     \skip 1*1 % one bar
 100
 101     % main
 102     \clef "treble"
 103     d'2. d'4 |
 104     b e' d'2 |
 105     c'4 e'4.( d'8 c' b |
 106     a4) b a2 |
 107     b4.( c'8 d'4) c'4 |
 108     \once \override NoteHead #'transparent = ##t c'1 |
 109     b\breve |
 110   }
 111 }
 112
 113 discantusLyrics = \lyricmode {
 114   % incipit
 115   IV-
 116
 117   % main
 118   Ju -- bi -- |
 119   la -- te De -- |
 120   o, om --
 121   nis ter -- |
 122   ra, __ om- |
 123   "..." |
 124   -us. |
 125 }
 126
 127 altusNotes = {
 128   \transpose c' c'' {
 129     \set Staff.instrumentName = #"Altus  "
 130
 131     % incipit
 132     \clef "neomensural-c3"
 133     r1        % one bar
 134     f1. s2    % two bars
 135     \skip 1*7 % seven bars
 136     \skip 1*1 % one bar
 137
 138     % main
 139     \clef "treble"
 140     r2 g2. e4 fis g | % two bars
 141     a2 g4 e |
 142     fis g4.( fis16 e fis4) |
 143     g1 |
 144     \once \override NoteHead #'transparent = ##t g1 |
 145     g\breve |
 146   }
 147 }
 148
 149 altusLyrics = \lyricmode {
 150   % incipit
 151   IV-
 152
 153   % main
 154   Ju -- bi -- la -- te | % two bars
 155   De -- o, om -- |
 156   nis ter -- ra, |
 157   "..." |
 158   -us. |
 159 }
 160
 161 tenorNotes = {
 162   \transpose c' c' {
 163     \set Staff.instrumentName = #"Tenor  "
 164
 165     % incipit
 166     \clef "neomensural-c4"
 167     r\longa   % four bars
 168     r\breve   % two bars
 169     r1        % one bar
 170     c'1. s2   % two bars
 171     \skip 1*1 % one bar
 172     \skip 1*1 % one bar
 173
 174     % main
 175     \clef "treble_8"
 176     R1 |
 177     R1 |
 178     R1 |
 179     r2 d'2. d'4 b e' | % two bars
 180     \once \override NoteHead #'transparent = ##t e'1 |
 181     d'\breve |
 182   }
 183 }
 184
 185 tenorLyrics = \lyricmode {
 186   % incipit
 187   IV-
 188
 189   % main
 190   Ju -- bi -- la -- te | % two bars
 191   "..." |
 192   -us. |
 193 }
 194
 195 bassusNotes = {
 196   \transpose c' c' {
 197     \set Staff.instrumentName = #"Bassus  "
 198
 199     % incipit
 200     \clef "bass"
 201     r\maxima  % eight bars
 202     f1. s2    % two bars
 203     \skip 1*1 % one bar
 204
 205     % main
 206     \clef "bass"
 207     R1 |
 208     R1 |
 209     R1 |
 210     R1 |
 211     g2. e4 |
 212     \once \override NoteHead #'transparent = ##t e1 |
 213     g\breve |
 214   }
 215 }
 216
 217 bassusLyrics = \lyricmode {
 218   % incipit
 219   IV-
 220
 221   % main
 222   Ju -- bi- |
 223   "..." |
 224   -us. |
 225 }
 226
 227 \score {
 228   \new StaffGroup = choirStaff <<
 229     \new Voice =
 230       "discantusNotes" << \global \discantusNotes >>
 231     \new Lyrics =
 232       "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
 233     \new Voice =
 234       "altusNotes" << \global \altusNotes >>
 235     \new Lyrics =
 236       "altusLyrics" \lyricsto altusNotes { \altusLyrics }
 237     \new Voice =
 238       "tenorNotes" << \global \tenorNotes >>
 239     \new Lyrics =
 240       "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
 241     \new Voice =
 242       "bassusNotes" << \global \bassusNotes >>
 243     \new Lyrics =
 244       "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
 245   >>
 246   \layout {
 247     \context {
 248       \Score
 249
 250       % no bars in staves
 251       \override BarLine #'transparent = ##t
 252
 253       % incipit should not start with a start delimiter
 254       \remove "System_start_delimiter_engraver"
 255     }
 256     \context {
 257       \Voice
 258
 259       % no slurs
 260       \override Slur #'transparent = ##t
 261
 262       % Comment in the below "\remove" command to allow line
 263       % breaking also at those barlines where a note overlaps
 264       % into the next bar.  The command is commented out in this
 265       % short example score, but especially for large scores, you
 266       % will typically yield better line breaking and thus improve
 267       % overall spacing if you comment in the following command.
 268       %\remove "Forbid_line_break_engraver"
 269     }
 270   }
 271 }
 272
 273
 274