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