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