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