input/lsr/incipit.ly

   1 %% Do not edit this file; it is auto-generated from input/new
   2 %% This file is in the public domain.
   3 \version "2.13.0"
   4 \header {
   5   texidoces = "
   6 Los «incipit» se pueden escribir utilizando el grob del nombre del
   7 instruemento, pero manteniendo independientes las definiciones del
   8 nombre del instrumento y del incipit."
   9
  10  doctitlees = "Incipit"
  11
  12   lsrtags = "staff-notation,ancient-notation"
  13   texidoc = "Incipits can be added using the instrument name grob, but
  14 keeping separate the instrument name definition and the incipit definition."
  15   doctitle = "Incipit"
  16 } % begin verbatim
  17
  18
  19 incipit =
  20 #(define-music-function (parser location incipit-music) (ly:music?)
  21   #{
  22     \once \override Staff.InstrumentName #'self-alignment-X = #RIGHT
  23     \once \override Staff.InstrumentName #'self-alignment-Y = #UP
  24     \once \override Staff.InstrumentName #'Y-offset = #4
  25     \once \override Staff.InstrumentName #'padding = #0.3
  26     \once \override Staff.InstrumentName #'stencil =
  27     #(lambda (grob)
  28        (let* ((instrument-name (ly:grob-property grob 'long-text))
  29               (layout (ly:output-def-clone (ly:grob-layout grob)))
  30               (music (make-music 'SequentialMusic
  31                       'elements (list (make-music 'ContextSpeccedMusic
  32                                         'context-type 'MensuralStaff
  33                                         'element (make-music 'PropertySet
  34                                                    'symbol 'instrumentName
  35                                                    'value instrument-name))
  36                                       $incipit-music)))
  37               (score (ly:make-score music))
  38               (mm (ly:output-def-lookup layout 'mm))
  39               (indent (ly:output-def-lookup layout 'indent))
  40               (width (ly:output-def-lookup layout 'incipit-width))
  41               (incipit-width (if (number? width)
  42                                  (* width mm)
  43                                  (* indent 0.5))))
  44          (ly:output-def-set-variable! layout 'indent (- indent incipit-width))
  45          (ly:output-def-set-variable! layout 'line-width indent)
  46          (ly:output-def-set-variable! layout 'ragged-right #f)
  47          (ly:output-def-set-variable! layout 'ragged-last #f)
  48          (ly:output-def-set-variable! layout 'system-count 1)
  49          (ly:score-add-output-def! score layout)
  50          (ly:grob-set-property! grob 'long-text
  51                (markup #:score score))
  52          (ly:system-start-text::print grob)))
  53   #})
  54
  55 %%%%%%%%%%%%%%%%%%%%%%%%%
  56
  57 global = {
  58   \set Score.skipBars = ##t
  59   \key g \major
  60   \time 4/4
  61
  62   % the actual music
  63   \skip 1*8
  64
  65   % let finis bar go through all staves
  66   \override Staff.BarLine #'transparent = ##f
  67
  68   % finis bar
  69   \bar "|."
  70 }
  71
  72 discantusIncipit = <<
  73   \new MensuralVoice = "discantusIncipit" <<
  74     \repeat unfold 9 { s1 \noBreak }
  75     {
  76       \clef "neomensural-c1"
  77       \key f \major
  78       \time 2/2
  79       c''1.
  80     }
  81   >>
  82   \new Lyrics \lyricsto discantusIncipit { IV- }
  83 >>
  84
  85 discantusNotes = {
  86   \transpose c' c'' {
  87     \clef "treble"
  88     d'2. d'4 |
  89     b e' d'2 |
  90     c'4 e'4.( d'8 c' b |
  91     a4) b a2 |
  92     b4.( c'8 d'4) c'4 |
  93     \once \override NoteHead #'transparent = ##t
  94     c'1 |
  95     b\breve |
  96   }
  97 }
  98
  99 discantusLyrics = \lyricmode {
 100   Ju -- bi -- |
 101   la -- te De -- |
 102   o, om --
 103   nis ter -- |
 104   ra, __ om- |
 105   "..." |
 106   -us. |
 107 }
 108
 109 altusIncipit = <<
 110   \new MensuralVoice = "altusIncipit" <<
 111     \repeat unfold 9 { s1 \noBreak }
 112     {
 113       \clef "neomensural-c3"
 114       \key f \major
 115       \time 2/2
 116       r1 f'1.
 117     }
 118   >>
 119   \new Lyrics \lyricsto altusIncipit { IV- }
 120 >>
 121
 122 altusNotes = {
 123   \transpose c' c'' {
 124     \clef "treble"
 125     % two measures
 126     r2 g2. e4 fis g |
 127     a2 g4 e |
 128     fis g4.( fis16 e fis4) |
 129     g1 |
 130     \once \override NoteHead #'transparent = ##t
 131     g1 |
 132     g\breve |
 133   }
 134 }
 135
 136 altusLyrics = \lyricmode {
 137   % two measures
 138   Ju -- bi -- la -- te |
 139   De -- o, om -- |
 140   nis ter -- ra, |
 141   "..." |
 142   -us. |
 143 }
 144
 145 tenorIncipit = <<
 146   \new MensuralVoice = "tenorIncipit" <<
 147     \repeat unfold 9 { s1 \noBreak }
 148     {
 149       \clef "neomensural-c4"
 150       \key f \major
 151       \time 2/2
 152       r\longa
 153       r\breve
 154       r1 c'1.
 155     }
 156   >>
 157   \new Lyrics \lyricsto tenorIncipit { IV- }
 158 >>
 159
 160 tenorNotes = {
 161   \transpose c' c' {
 162     \once \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-6 . 3)
 163     \clef "treble_8"
 164     R1 |
 165     R1 |
 166     R1 |
 167     % two measures
 168     r2 d'2. d'4 b e' |
 169     \once \override NoteHead #'transparent = ##t
 170     e'1 |
 171     d'\breve |
 172   }
 173 }
 174
 175 tenorLyrics = \lyricmode {
 176   % two measures
 177   Ju -- bi -- la -- te |
 178   "..." |
 179   -us.
 180 }
 181
 182 bassusIncipit = <<
 183   \new MensuralVoice = "bassusIncipit" <<
 184     \repeat unfold 9 { s1 \noBreak }
 185     {
 186       \clef "bass"
 187       \key f \major
 188       \time 2/2
 189       %% incipit
 190       r\maxima
 191       f1.
 192     }
 193   >>
 194   \new Lyrics \lyricsto bassusIncipit { IV- }
 195 >>
 196
 197 bassusNotes = {
 198   \transpose c' c' {
 199     \clef "bass"
 200     R1 |
 201     R1 |
 202     R1 |
 203     R1 |
 204     g2. e4 |
 205     \once \override NoteHead #'transparent = ##t
 206     e1 |
 207     g\breve |
 208   }
 209 }
 210
 211 bassusLyrics = \lyricmode {
 212   Ju -- bi- |
 213   "..." |
 214   -us.
 215 }
 216
 217 \score {
 218   <<
 219     \new StaffGroup = choirStaff <<
 220       \new Voice = "discantusNotes" <<
 221         \global
 222         \set Staff.instrumentName = #"Discantus"
 223         \incipit \discantusIncipit
 224         \discantusNotes
 225       >>
 226       \new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
 227       \new Voice = "altusNotes" <<
 228         \global
 229         \set Staff.instrumentName = #"Altus"
 230         \incipit \altusIncipit
 231         \altusNotes
 232       >>
 233       \new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics }
 234       \new Voice = "tenorNotes" <<
 235         \global
 236         \set Staff.instrumentName = #"Tenor"
 237         \incipit \tenorIncipit
 238         \tenorNotes
 239       >>
 240       \new Lyrics = "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
 241       \new Voice = "bassusNotes" <<
 242         \global
 243         \set Staff.instrumentName = #"Bassus"
 244         \incipit \bassusIncipit
 245         \bassusNotes
 246       >>
 247       \new Lyrics = "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
 248     >>
 249   >>
 250   \layout {
 251     \context {
 252       \Score
 253       %% no bar lines in staves or lyrics
 254       \override BarLine #'transparent = ##t
 255     }
 256     %% the next two instructions keep the lyrics between the bar lines
 257     \context {
 258       \Lyrics
 259       \consists "Bar_engraver"
 260       \consists "Separating_line_group_engraver"
 261     }
 262     \context {
 263       \Voice
 264       %% no slurs
 265       \override Slur #'transparent = ##t
 266       %% Comment in the below "\remove" command to allow line
 267       %% breaking also at those bar lines where a note overlaps
 268       %% into the next measure.  The command is commented out in this
 269       %% short example score, but especially for large scores, you
 270       %% will typically yield better line breaking and thus improve
 271       %% overall spacing if you comment in the following command.
 272       %%\remove "Forbid_line_break_engraver"
 273     }
 274     indent = 6\cm
 275     incipit-width = 4\cm
 276   }
 277 }