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