-incipit =
-#(define-music-function (parser location incipit-music) (ly:music?)
- #{
- \once \override Staff.InstrumentName.self-alignment-X = #RIGHT
- \once \override Staff.InstrumentName.self-alignment-Y = #UP
- \once \override Staff.InstrumentName.Y-offset =
- #(lambda (grob)
- (+ 4 (system-start-text::calc-y-offset grob)))
- \once \override Staff.InstrumentName.padding = #0.3
- \once \override Staff.InstrumentName.stencil =
- #(lambda (grob)
- (let* ((instrument-name (ly:grob-property grob 'long-text)))
- (set! (ly:grob-property grob 'long-text)
- #{ \markup
- \score
- {
- { \context MensuralStaff \with {
- instrumentName = #instrument-name
- \override VerticalAxisGroup.Y-extent = #'(-4 . 4)
- } $incipit-music
- }
- \layout { $(ly:grob-layout grob)
- line-width = \indent
- indent =
- % primitive-eval is probably easiest for
- % escaping lexical closure and evaluating
- % everything respective to (current-module).
- #(primitive-eval
- '(or (false-if-exception (- indent (* mm incipit-width)))
- (* 0.5 indent)))
- ragged-right = ##f
- ragged-last = ##f
- system-count = #1 }
- }
- #})
- (system-start-text::print grob)))
- #})
-
-%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% A short excerpt from the Jubilate Deo by Orlande de Lassus
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%