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