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