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