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