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.39"
   4 \header {
   5   doctitle = "Incipit"
   6   lsrtags = "staff-notation,Ancient notation"
   7   texidoc = "Incipits can be added using the instrument name grob, but
   8 keeping separate the instrument name definition and the incipit definition."
   9 }
  10 % begin verbatim
  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   \skip 1*8 % the actual music
  57
  58   % let finis bar go through all staves
  59   \override Staff.BarLine #'transparent = ##f
  60
  61   % finis bar
  62   \bar "|."
  63 }
  64
  65 discantusIncipit = <<
  66   \new MensuralVoice = discantusIncipit <<
  67     \repeat unfold 9 { s1 \noBreak }
  68     {
  69       \clef "neomensural-c1"
  70       \key f \major
  71       \time 2/2
  72       c''1.
  73     }
  74   >>
  75   \new Lyrics \lyricsto discantusIncipit { IV- }
  76 >>
  77
  78 discantusNotes = {
  79   \transpose c' c'' {
  80     \clef "treble"
  81     d'2. d'4 |
  82     b e' d'2 |
  83     c'4 e'4.( d'8 c' b |
  84     a4) b a2 |
  85     b4.( c'8 d'4) c'4 |
  86     \once \override NoteHead #'transparent = ##t c'1 |
  87     b\breve |
  88   }
  89 }
  90
  91 discantusLyrics = \lyricmode {
  92   Ju -- bi -- |
  93   la -- te De -- |
  94   o, om --
  95   nis ter -- |
  96   ra, __ om- |
  97   "..." |
  98   -us. |
  99 }
 100
 101 altusIncipit = <<
 102   \new MensuralVoice = altusIncipit <<
 103     \repeat unfold 9 { s1 \noBreak }
 104     {
 105       \clef "neomensural-c3"
 106       \key f \major
 107       \time 2/2
 108       r1 f'1.
 109     }
 110   >>
 111   \new Lyrics \lyricsto altusIncipit { IV- }
 112 >>
 113
 114 altusNotes = {
 115   \transpose c' c'' {
 116     \clef "treble"
 117     r2 g2. e4 fis g | % two bars
 118     a2 g4 e |
 119     fis g4.( fis16 e fis4) |
 120     g1 |
 121     \once \override NoteHead #'transparent = ##t g1 |
 122     g\breve |
 123   }
 124 }
 125
 126 altusLyrics = \lyricmode {
 127   Ju -- bi -- la -- te | % two bars
 128   De -- o, om -- |
 129   nis ter -- ra, |
 130   "..." |
 131   -us. |
 132 }
 133
 134 tenorIncipit = <<
 135   \new MensuralVoice = tenorIncipit <<
 136     \repeat unfold 9 { s1 \noBreak }
 137     {
 138       \clef "neomensural-c4"
 139       \key f \major
 140       \time 2/2
 141       r\longa
 142       r\breve
 143       r1 c'1.
 144     }
 145   >>
 146   \new Lyrics \lyricsto tenorIncipit { IV- }
 147 >>
 148
 149 tenorNotes = {
 150   \transpose c' c' {
 151     \once \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-6 . 3)
 152     \clef "treble_8"
 153     R1 |
 154     R1 |
 155     R1 |
 156     r2 d'2. d'4 b e' | % two bars
 157     \once \override NoteHead #'transparent = ##t e'1 |
 158     d'\breve |
 159   }
 160 }
 161
 162 tenorLyrics = \lyricmode {
 163   Ju -- bi -- la -- te | % two bars
 164   "..." |
 165   -us.
 166 }
 167
 168 bassusIncipit = <<
 169   \new MensuralVoice = bassusIncipit <<
 170     \repeat unfold 9 { s1 \noBreak }
 171     {
 172       \clef "bass"
 173       \key f \major
 174       \time 2/2
 175       %% incipit
 176       r\maxima
 177       f1.
 178     }
 179   >>
 180   \new Lyrics \lyricsto bassusIncipit { IV- }
 181 >>
 182
 183 bassusNotes = {
 184   \transpose c' c' {
 185     \clef "bass"
 186     R1 |
 187     R1 |
 188     R1 |
 189     R1 |
 190     g2. e4 |
 191     \once \override NoteHead #'transparent = ##t e1 |
 192     g\breve |
 193   }
 194 }
 195
 196 bassusLyrics = \lyricmode {
 197   Ju -- bi- |
 198   "..." |
 199   -us.
 200 }
 201
 202 \score {
 203   <<
 204     \new StaffGroup = choirStaff <<
 205       \new Voice = "discantusNotes" <<
 206         \global
 207         \set Staff.instrumentName = "Discantus"
 208         \incipit \discantusIncipit
 209         \discantusNotes
 210       >>
 211       \new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
 212       \new Voice = "altusNotes" <<
 213         \global
 214         \set Staff.instrumentName = "Altus"
 215         \incipit \altusIncipit
 216         \altusNotes
 217       >>
 218       \new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics }
 219       \new Voice = "tenorNotes" <<
 220         \global
 221         \set Staff.instrumentName = "Tenor"
 222         \incipit \tenorIncipit
 223         \tenorNotes
 224       >>
 225       \new Lyrics = "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
 226       \new Voice = "bassusNotes" <<
 227         \set Staff.instrumentName = "Bassus"
 228         \incipit \bassusIncipit
 229         \bassusNotes
 230       >>
 231     >>
 232     \new Lyrics = "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
 233     %% Keep the bass lyrics outside of the staff group to avoid bar lines
 234     %% between the lyrics.
 235   >>
 236   \layout {
 237     \context {
 238       \Score
 239       %% no bars in staves
 240       \override BarLine #'transparent = ##t
 241     }
 242     %% the next three instructions keep the lyrics between the barlines
 243     \context {
 244       \Lyrics
 245       \consists "Bar_engraver"
 246       \override BarLine #'transparent = ##t
 247     }
 248     \context { \StaffGroup \consists "Separating_line_group_engraver" }
 249     \context {
 250       \Voice
 251       %% no slurs
 252       \override Slur #'transparent = ##t
 253       %% Comment in the below "\remove" command to allow line
 254       %% breaking also at those barlines where a note overlaps
 255       %% into the next bar.  The command is commented out in this
 256       %% short example score, but especially for large scores, you
 257       %% will typically yield better line breaking and thus improve
 258       %% overall spacing if you comment in the following command.
 259       %%\remove "Forbid_line_break_engraver"
 260     }
 261     indent=6\cm
 262     incipit-width = 4\cm
 263   }
 264 }