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