Documentation/snippets/incipit.ly

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