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

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