Documentation/snippets/transcription-of-ancient-music-with-incipit.ly

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