Documentation/snippets/ancient-notation-template----modern-transcription-of-mensural-music.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.17.6"
   8
   9 \header {
  10   lsrtags = "ancient-notation, real-music, really-cool, template"
  11
  12   texidoc = "
  13 When transcribing mensural music, an incipit at the beginning of the
  14 piece is useful to indicate the original key and tempo. While today
  15 musicians are used to bar lines in order to faster recognize rhythmic
  16 patterns, bar lines were not yet invented during the period of mensural
  17 music; in fact, the meter often changed after every few notes. As a
  18 compromise, bar lines are often printed between the staves rather than
  19 on the staves.
  20
  21 "
  22   doctitle = "Ancient notation template -- modern transcription of mensural music"
  23 } % begin verbatim
  24
  25
  26 global = {
  27   \set Score.skipBars = ##t
  28
  29   % incipit
  30   \once \override Score.SystemStartBracket.transparent = ##t
  31    % Set tight spacing
  32   \override Score.SpacingSpanner.spacing-increment = #1.0
  33   \key f \major
  34   \time 2/2
  35   \once \override Staff.TimeSignature.style = #'neomensural
  36   \override Voice.NoteHead.style = #'neomensural
  37   \override Voice.Rest.style = #'neomensural
  38   \set Staff.printKeyCancellation = ##f
  39   \cadenzaOn % turn off bar lines
  40   \skip 1*10
  41   \once \override Staff.BarLine.transparent = ##f
  42   \bar "||"
  43   \skip 1*1 % need this extra \skip such that clef change comes
  44             % after bar line
  45   \bar ""
  46
  47   % main
  48   \cadenzaOff % turn bar lines on again
  49   \once \override Staff.Clef.full-size-change = ##t
  50   \set Staff.forceClef = ##t
  51   \key g \major
  52   \time 4/4
  53   \override Voice.NoteHead.style = #'default
  54   \override Voice.Rest.style = #'default
  55
  56   % Setting printKeyCancellation back to #t must not
  57   % occur in the first bar after the incipit.  Dto. for forceClef.
  58   % Therefore, we need an extra \skip.
  59   \skip 1*1
  60   \set Staff.printKeyCancellation = ##t
  61   \set Staff.forceClef = ##f
  62
  63   \skip 1*7 % the actual music
  64
  65   % let finis bar go through all staves
  66   \override Staff.BarLine.transparent = ##f
  67
  68   % finis bar
  69   \bar "|."
  70 }
  71
  72 discantusNotes = {
  73   \transpose c' c'' {
  74     \set Staff.instrumentName = #"Discantus  "
  75
  76     % incipit
  77     \clef "neomensural-c1"
  78     c'1. s2   % two bars
  79     \skip 1*8 % eight bars
  80     \skip 1*1 % one bar
  81
  82     % main
  83     \clef "treble"
  84     d'2. d'4 |
  85     b e' d'2 |
  86     c'4 e'4.( d'8 c' b |
  87     a4) b a2 |
  88     b4.( c'8 d'4) c'4 |
  89     \once \override NoteHead.transparent = ##t c'1 |
  90     b\breve |
  91   }
  92 }
  93
  94 discantusLyrics = \lyricmode {
  95   % incipit
  96   IV-
  97
  98   % main
  99   Ju -- bi -- |
 100   la -- te De -- |
 101   o, om --
 102   nis ter -- |
 103   ra, __ om- |
 104   "..." |
 105   -us. |
 106 }
 107
 108 altusNotes = {
 109   \transpose c' c'' {
 110     \set Staff.instrumentName = #"Altus  "
 111
 112     % incipit
 113     \clef "neomensural-c3"
 114     r1        % one bar
 115     f1. s2    % two bars
 116     \skip 1*7 % seven bars
 117     \skip 1*1 % one bar
 118
 119     % main
 120     \clef "treble"
 121     r2 g2. e4 fis g | % two bars
 122     a2 g4 e |
 123     fis g4.( fis16 e fis4) |
 124     g1 |
 125     \once \override NoteHead.transparent = ##t g1 |
 126     g\breve |
 127   }
 128 }
 129
 130 altusLyrics = \lyricmode {
 131   % incipit
 132   IV-
 133
 134   % main
 135   Ju -- bi -- la -- te | % two bars
 136   De -- o, om -- |
 137   nis ter -- ra, |
 138   "..." |
 139   -us. |
 140 }
 141
 142 tenorNotes = {
 143   \transpose c' c' {
 144     \set Staff.instrumentName = #"Tenor  "
 145
 146     % incipit
 147     \clef "neomensural-c4"
 148     r\longa   % four bars
 149     r\breve   % two bars
 150     r1        % one bar
 151     c'1. s2   % two bars
 152     \skip 1*1 % one bar
 153     \skip 1*1 % one bar
 154
 155     % main
 156     \clef "treble_8"
 157     R1 |
 158     R1 |
 159     R1 |
 160     r2 d'2. d'4 b e' | % two bars
 161     \once \override NoteHead.transparent = ##t e'1 |
 162     d'\breve |
 163   }
 164 }
 165
 166 tenorLyrics = \lyricmode {
 167   % incipit
 168   IV-
 169
 170   % main
 171   Ju -- bi -- la -- te | % two bars
 172   "..." |
 173   -us. |
 174 }
 175
 176 bassusNotes = {
 177   \transpose c' c' {
 178     \set Staff.instrumentName = #"Bassus  "
 179
 180     % incipit
 181     \clef "bass"
 182     r\maxima  % eight bars
 183     f1. s2    % two bars
 184     \skip 1*1 % one bar
 185
 186     % main
 187     \clef "bass"
 188     R1 |
 189     R1 |
 190     R1 |
 191     R1 |
 192     g2. e4 |
 193     \once \override NoteHead.transparent = ##t e1 |
 194     g\breve |
 195   }
 196 }
 197
 198 bassusLyrics = \lyricmode {
 199   % incipit
 200   IV-
 201
 202   % main
 203   Ju -- bi- |
 204   "..." |
 205   -us. |
 206 }
 207
 208 \score {
 209   \new StaffGroup = choirStaff <<
 210     \new Voice =
 211       "discantusNotes" << \global \discantusNotes >>
 212     \new Lyrics =
 213       "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
 214     \new Voice =
 215       "altusNotes" << \global \altusNotes >>
 216     \new Lyrics =
 217       "altusLyrics" \lyricsto altusNotes { \altusLyrics }
 218     \new Voice =
 219       "tenorNotes" << \global \tenorNotes >>
 220     \new Lyrics =
 221       "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
 222     \new Voice =
 223       "bassusNotes" << \global \bassusNotes >>
 224     \new Lyrics =
 225       "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
 226   >>
 227   \layout {
 228     \context {
 229       \Score
 230
 231       % no bars in staves
 232       \override BarLine.transparent = ##t
 233
 234       % incipit should not start with a start delimiter
 235       \remove "System_start_delimiter_engraver"
 236     }
 237     \context {
 238       \Voice
 239
 240       % no slurs
 241       \override Slur.transparent = ##t
 242
 243       % The command below can be commented out in
 244       % short scores, but especially for large scores you
 245       % will typically yield better line breaking and improve
 246       % overall spacing if you do not comment the command out.
 247
 248       \remove "Forbid_line_break_engraver"
 249     }
 250   }
 251 }