Documentation/snippets/new/incipit.ly

   1 \version "2.19.16"
   2
   3 \header {
   4   lsrtags = "ancient-notation, staff-notation"
   5
   6   texidoc = "
   7 When transcribing mensural music, an incipit at the beginning of the piece is
   8 useful to indicate the original key and tempo.  Musicians today are used
   9 to bar lines, but these were not known during the period of mensural music.  As
  10 a compromise, bar lines are often printed between the staves, a layout style
  11 called mensurstriche layout.
  12 "
  13
  14   doctitle = "Incipit"
  15 }
  16
  17 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  18 % A short excerpt from the Jubilate Deo by Orlande de Lassus
  19 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  20
  21 global = {
  22   \set Score.skipBars = ##t
  23   \key g \major
  24   \time 4/4
  25
  26   % the actual music
  27   \skip 1*8
  28
  29   % let finis bar go through all staves
  30   \override Staff.BarLine.transparent = ##f
  31
  32   % finis bar
  33   \bar "|."
  34 }
  35
  36 discantusIncipit = {
  37   \clef "neomensural-c1"
  38   \key f \major
  39   \time 2/2
  40   c''1.
  41 }
  42
  43 discantusNotes = {
  44   \transpose c' c'' {
  45     \clef "treble"
  46     d'2. d'4 |
  47     b e' d'2 |
  48     c'4 e'4.( d'8 c' b |
  49     a4) b a2 |
  50     b4.( c'8 d'4) c'4 |
  51     \once \hide NoteHead
  52     c'1 |
  53     b\breve |
  54   }
  55 }
  56
  57 discantusLyrics = \lyricmode {
  58   Ju -- bi -- la -- te De -- o,
  59   om -- nis ter -- ra, __ om-
  60   "..."
  61   -us.
  62 }
  63
  64 altusIncipit = {
  65   \clef "neomensural-c3"
  66   \key f \major
  67   \time 2/2
  68   r1 f'1.
  69 }
  70
  71 altusNotes = {
  72   \transpose c' c'' {
  73     \clef "treble"
  74     r2 g2. e4 fis g |
  75     a2 g4 e |
  76     fis g4.( fis16 e fis4) |
  77     g1 |
  78     \once \hide NoteHead
  79     g1 |
  80     g\breve |
  81   }
  82 }
  83
  84 altusLyrics = \lyricmode {
  85   Ju -- bi -- la -- te
  86   De -- o, om -- nis ter -- ra,
  87   "..."
  88   -us.
  89 }
  90
  91 tenorIncipit = {
  92   \clef "neomensural-c4"
  93   \key f \major
  94   \time 2/2
  95   r\longa
  96   r\breve
  97   r1 c'1.
  98 }
  99
 100 tenorNotes = {
 101   \transpose c' c' {
 102     \clef "treble_8"
 103     R1 |
 104     R1 |
 105     R1 |
 106     % two measures
 107     r2 d'2. d'4 b e' |
 108     \once \hide NoteHead
 109     e'1 |
 110     d'\breve |
 111   }
 112 }
 113
 114 tenorLyrics = \lyricmode {
 115   Ju -- bi -- la -- te
 116   "..."
 117   -us.
 118 }
 119
 120 bassusIncipit = {
 121   \clef "mensural-f"
 122   \key f \major
 123   \time 2/2
 124   r\maxima
 125   f1.
 126 }
 127
 128 bassusNotes = {
 129   \transpose c' c' {
 130     \clef "bass"
 131     R1 |
 132     R1 |
 133     R1 |
 134     R1 |
 135     g2. e4 |
 136     \once \hide NoteHead
 137     e1 |
 138     g\breve |
 139   }
 140 }
 141
 142 bassusLyrics = \lyricmode {
 143   Ju -- bi-
 144   "..."
 145   -us.
 146 }
 147
 148 \score {
 149   <<
 150     \new StaffGroup = choirStaff <<
 151       \new Voice = "discantusNotes" <<
 152         \set Staff.instrumentName = #"Discantus"
 153         \incipit \discantusIncipit
 154         \global
 155         \discantusNotes
 156       >>
 157       \new Lyrics \lyricsto discantusNotes { \discantusLyrics }
 158       \new Voice = "altusNotes" <<
 159         \set Staff.instrumentName = #"Altus"
 160         \global
 161         \incipit \altusIncipit
 162         \altusNotes
 163       >>
 164       \new Lyrics \lyricsto altusNotes { \altusLyrics }
 165       \new Voice = "tenorNotes" <<
 166         \set Staff.instrumentName = #"Tenor"
 167         \global
 168         \incipit \tenorIncipit
 169         \tenorNotes
 170       >>
 171       \new Lyrics \lyricsto tenorNotes { \tenorLyrics }
 172       \new Voice = "bassusNotes" <<
 173         \set Staff.instrumentName = #"Bassus"
 174         \global
 175         \incipit \bassusIncipit
 176         \bassusNotes
 177       >>
 178       \new Lyrics \lyricsto bassusNotes { \bassusLyrics }
 179     >>
 180   >>
 181   \layout {
 182     \context {
 183       \Score
 184       %% no bar lines in staves or lyrics
 185       \hide BarLine
 186     }
 187     %% the next two instructions keep the lyrics between the bar lines
 188     \context {
 189       \Lyrics
 190       \consists "Bar_engraver"
 191       \consists "Separating_line_group_engraver"
 192     }
 193     \context {
 194       \Voice
 195       %% no slurs
 196       \hide Slur
 197       %% Comment in the below "\remove" command to allow line
 198       %% breaking also at those bar lines where a note overlaps
 199       %% into the next measure.  The command is commented out in this
 200       %% short example score, but especially for large scores, you
 201       %% will typically yield better line breaking and thus improve
 202       %% overall spacing if you comment in the following command.
 203       %%\remove "Forbid_line_break_engraver"
 204     }
 205     indent = 6\cm
 206     incipit-width = 4\cm
 207   }
 208 }