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