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