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