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