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