Documentation/snippets/transcription-of-ancient-music-with-incipit.ly

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.dsi.unimi.it
   3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
   4 %% and then run scripts/auxiliar/makelsr.py
   5 %%
   6 %% This file is in the public domain.
   7 \version "2.17.6"
   8
   9 \header {
  10   lsrtags = "ancient-notation, specific-notation, tweaks-and-overrides, workaround"
  11
  12   texidoc = "
  13 As a workaround to get real incipits which are independent from the
  14 main score these are included as a markup into the field normally used
  15 for the instrument name. As for now lyrics can only be added as a
  16 direct markup. It doesn't unfortunately conform with the spacing of the
  17 main lyrics.
  18
  19 "
  20   doctitle = "Transcription of Ancient music with incipit"
  21 } % begin verbatim
  22
  23
  24 global = {
  25   \set Score.skipBars = ##t
  26   \key g \major
  27   \time 4/4
  28   %make the staff lines invisible on staves
  29   \override Staff.BarLine.transparent = ##t
  30   \skip 1*8 % the actual music
  31   % let finis bar go through all staves
  32   \override Staff.BarLine.transparent = ##f
  33   % finis bar
  34   \bar "|."
  35 }
  36
  37 discantusNotes = {
  38   \transpose c' c'' {
  39     \clef treble
  40     d'2. d'4 |
  41     b e' d'2 |
  42     c'4 e'4.( d'8 c' b |
  43     a4) b a2 |
  44     b4.( c'8 d'4) c'4 |
  45     \once \override NoteHead.transparent = ##t c'1 |
  46     b\breve |
  47   }
  48 }
  49
  50 discantusLyrics = \lyricmode {
  51   Ju -- bi -- |
  52   la -- te De -- |
  53   o, om --
  54   nis ter -- |
  55   ra, __ om- |
  56   "..." |
  57   -us. |
  58 }
  59
  60 altusNotes = {
  61   \transpose c' c'' {
  62     \clef treble
  63     r2 g2. e4 fis g | % two bars
  64     a2 g4 e |
  65     fis g4.( fis16 e fis4) |
  66     g1 |
  67     \once \override NoteHead.transparent = ##t g1 |
  68     g\breve |
  69   }
  70 }
  71
  72 altusLyrics = \lyricmode {
  73   Ju -- bi -- la -- te | % two bars
  74   De -- o, om -- |
  75   nis ter -- ra, |
  76   "..." |
  77   -us. |
  78 }
  79
  80 tenorNotes = {
  81   \transpose c' c' {
  82     \clef "treble_8"
  83     R1 |
  84     R1 |
  85     R1 |
  86     r2 d'2. d'4 b e' | % two bars
  87     \once \override NoteHead.transparent = ##t e'1 |
  88     d'\breve |
  89   }
  90 }
  91
  92 tenorLyrics = \lyricmode {
  93   Ju -- bi -- la -- te | % two bars
  94   "..." |
  95   -us.
  96 }
  97
  98 bassusNotes = {
  99   \transpose c' c' {
 100     \clef bass
 101     R1 |
 102     R1 |
 103     R1 |
 104     R1 |
 105     g2. e4 |
 106     \once \override NoteHead.transparent = ##t e1 |
 107     g\breve |
 108   }
 109 }
 110
 111 bassusLyrics = \lyricmode {
 112   Ju -- bi- |
 113   "..." |
 114   -us.
 115 }
 116
 117 incipitDiscantus = \markup {
 118   \score {
 119     {
 120       \set Staff.instrumentName = #"Discantus "
 121       \override NoteHead.style = #'neomensural
 122       \override Rest.style = #'neomensural
 123       \override Staff.TimeSignature.style = #'neomensural
 124       \cadenzaOn
 125       \clef "neomensural-c1"
 126       \key f \major
 127       \time 2/2
 128       c''1._"IV-" s2  %two bars
 129       \skip 1*8 % eight bars
 130     }
 131     \layout {
 132       \context {
 133         \Voice
 134         \remove "Ligature_bracket_engraver"
 135         \consists "Mensural_ligature_engraver"
 136       }
 137       line-width = 4.5\cm
 138     }
 139   }
 140 }
 141
 142 incipitAltus = \markup {
 143   \score {
 144     {
 145       \set Staff.instrumentName = #"Altus "
 146       \override NoteHead.style = #'neomensural
 147       \override Rest.style = #'neomensural
 148       \override Staff.TimeSignature.style = #'neomensural
 149       \cadenzaOn
 150       \clef "neomensural-c3"
 151       \key f \major
 152       \time 2/2
 153       r1        % one bar
 154       f'1._"IV-" s2   % two bars
 155       \skip 1*7 % seven bars
 156     }
 157     \layout {
 158       \context {
 159         \Voice
 160         \remove "Ligature_bracket_engraver"
 161         \consists "Mensural_ligature_engraver"
 162       }
 163       line-width = 4.5\cm
 164     }
 165   }
 166 }
 167
 168 incipitTenor = \markup {
 169   \score {
 170     {
 171       \set Staff.instrumentName = #"Tenor  "
 172       \override NoteHead.style = #'neomensural
 173       \override Rest.style = #'neomensural
 174       \override Staff.TimeSignature.style = #'neomensural
 175       \cadenzaOn
 176       \clef "neomensural-c4"
 177       \key f \major
 178       \time 2/2
 179       r\longa   % four bars
 180       r\breve   % two bars
 181       r1        % one bar
 182       c'1._"IV-" s2   % two bars
 183       \skip 1   % one bar
 184     }
 185     \layout {
 186       \context {
 187         \Voice
 188         \remove "Ligature_bracket_engraver"
 189         \consists "Mensural_ligature_engraver"
 190       }
 191       line-width = 4.5\cm
 192     }
 193   }
 194 }
 195
 196 incipitBassus = \markup {
 197   \score {
 198     {
 199       \set Staff.instrumentName = #"Bassus  "
 200       \override NoteHead.style = #'neomensural
 201       \override Rest.style = #'neomensural
 202       \override Staff.TimeSignature.style = #'neomensural
 203       \cadenzaOn
 204       \clef "bass"
 205       \key f \major
 206       \time 2/2
 207       % incipit
 208       r\maxima  % eight bars
 209       f1._"IV-" s2    % two bars
 210     }
 211     \layout {
 212       \context {
 213         \Voice
 214         \remove "Ligature_bracket_engraver"
 215         \consists "Mensural_ligature_engraver"
 216       }
 217       line-width = 4.5\cm
 218     }
 219   }
 220 }
 221
 222 %StaffGroup is used instead of ChoirStaff to get bar lines between systems
 223 \score {
 224   <<
 225     \new StaffGroup = choirStaff <<
 226       \new Voice = "discantusNotes" <<
 227         \global
 228         \set Staff.instrumentName = \incipitDiscantus
 229         \discantusNotes
 230       >>
 231       \new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
 232
 233       \new Voice = "altusNotes" <<
 234         \global
 235         \set Staff.instrumentName = \incipitAltus
 236         \altusNotes
 237       >>
 238       \new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics }
 239
 240       \new Voice = "tenorNotes" <<
 241         \global
 242         \set Staff.instrumentName = \incipitTenor
 243         \tenorNotes
 244       >>
 245       \new Lyrics = "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
 246
 247       \new Voice = "bassusNotes" <<
 248         \global
 249         \set Staff.instrumentName = \incipitBassus
 250         \bassusNotes
 251       >>
 252     >>
 253     \new Lyrics = "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
 254     %Keep the bass lyrics outside of the staff group to avoid bar lines
 255     %between the lyrics.
 256   >>
 257
 258   \layout {
 259     \context {
 260       \Score
 261       % no bars in staves
 262       \override BarLine.transparent = ##t
 263     }
 264     % the next three instructions keep the lyrics between the bar lines
 265     \context {
 266       \Lyrics
 267       \consists "Bar_engraver"
 268       \override BarLine.transparent = ##t
 269     }
 270     \context {
 271       \StaffGroup
 272       \consists "Separating_line_group_engraver"
 273     }
 274     \context {
 275       \Voice
 276       % no slurs
 277       \override Slur.transparent = ##t
 278       % Comment in the below "\remove" command to allow line
 279       % breaking also at those barlines where a note overlaps
 280       % into the next bar.  The command is commented out in this
 281       % short example score, but especially for large scores, you
 282       % will typically yield better line breaking and thus improve
 283       % overall spacing if you comment in the following command.
 284       %\remove "Forbid_line_break_engraver"
 285     }
 286     indent = 5\cm
 287   }
 288 }