\version "2.24.0" \header { tagline = "" } \paper { indent = 0\cm top-margin = 0\cm right-margin = 0.13\cm % to fit lyric hyphens bottom-margin = 0\cm left-margin = 0\cm paper-width = 11\cm page-breaking = #ly:one-page-breaking system-system-spacing.basic-distance = #11 score-system-spacing.basic-distance = #11 ragged-last = ##f } %% Author: Thomas Morley %% https://lists.gnu.org/archive/html/lilypond-user/2020-05/msg00002.html #(define (line-position grob) "Returns position of @var[grob} in current system: @code{'start}, if at first time-step @code{'end}, if at last time-step @code{'middle} otherwise " (let* ((col (ly:item-get-column grob)) (ln (ly:grob-object col 'left-neighbor)) (rn (ly:grob-object col 'right-neighbor)) (col-to-check-left (if (ly:grob? ln) ln col)) (col-to-check-right (if (ly:grob? rn) rn col)) (break-dir-left (and (ly:grob-property col-to-check-left 'non-musical #f) (ly:item-break-dir col-to-check-left))) (break-dir-right (and (ly:grob-property col-to-check-right 'non-musical #f) (ly:item-break-dir col-to-check-right)))) (cond ((eqv? 1 break-dir-left) 'start) ((eqv? -1 break-dir-right) 'end) (else 'middle)))) #(define (tranparent-at-line-position vctor) (lambda (grob) "Relying on @code{line-position} select the relevant enry from @var{vctor}. Used to determine transparency," (case (line-position grob) ((end) (not (vector-ref vctor 0))) ((middle) (not (vector-ref vctor 1))) ((start) (not (vector-ref vctor 2)))))) noteHeadBreakVisibility = #(define-music-function (break-visibility)(vector?) "Makes @code{NoteHead}s transparent relying on @var{break-visibility}" #{ \override NoteHead.transparent = #(tranparent-at-line-position break-visibility) #}) #(define delete-ledgers-for-transparent-note-heads (lambda (grob) "Reads whether a @code{NoteHead} is transparent. If so this @code{NoteHead} is removed from @code{'note-heads} from @var{grob}, which is supposed to be @code{LedgerLineSpanner}. As a result ledgers are not printed for this @code{NoteHead}" (let* ((nhds-array (ly:grob-object grob 'note-heads)) (nhds-list (if (ly:grob-array? nhds-array) (ly:grob-array->list nhds-array) '())) ;; Relies on the transparent-property being done before ;; Staff.LedgerLineSpanner.after-line-breaking is executed. ;; This is fragile ... (to-keep (remove (lambda (nhd) (ly:grob-property nhd 'transparent #f)) nhds-list))) ;; TODO find a better method to iterate over grob-arrays, similiar ;; to filter/remove etc for lists ;; For now rebuilt from scratch (set! (ly:grob-object grob 'note-heads) '()) (for-each (lambda (nhd) (ly:pointer-group-interface::add-grob grob 'note-heads nhd)) to-keep)))) squashNotes = { \override NoteHead.X-extent = #'(-0.2 . 0.2) \override NoteHead.Y-extent = #'(-0.75 . 0) \override NoteHead.stencil = #(lambda (grob) (let ((pos (ly:grob-property grob 'staff-position))) (begin (if (< pos -7) (display "ERROR: Lower brevis then expected\n") (display "")) (if (<= pos -6) ly:text-interface::print ly:note-head::print)))) } unSquashNotes = { \revert NoteHead.X-extent \revert NoteHead.Y-extent \revert NoteHead.stencil } hideNotes = \noteHeadBreakVisibility #begin-of-line-visible unHideNotes = \noteHeadBreakVisibility #all-visible % work-around for resetting accidentals % https://lilypond.org/doc/v2.23/Documentation/notation/displaying-rhythms#unmetered-music cadenzaMeasure = { \cadenzaOff \partial 1024 s1024 \cadenzaOn } #(define-markup-command (accent layout props text) (markup?) "Underline accented syllable" (interpret-markup layout props #{\markup \override #'(offset . 4.3) \underline { #text }#})) responsum = \markup \concat { "R" \hspace #-1.05 \path #0.1 #'((moveto 0 0.07) (lineto 0.9 0.8)) \hspace #0.05 "." } spaceSize = #0.6828661417322834 % exact space size for TeX Gyre Schola \layout { \context { \Staff \remove "Time_signature_engraver" \override LedgerLineSpanner.after-line-breaking = #delete-ledgers-for-transparent-note-heads } \context { \Lyrics { \override LyricSpace.minimum-distance = \spaceSize \override LyricText.font-name = #"TeX Gyre Schola" \override LyricText.font-size = 1 \override StanzaNumber.font-name = #"TeX Gyre Schola Bold" \override StanzaNumber.font-size = 1 } } \context { \Score \override NoteHead.text = #(lambda (grob) (let ((pos (ly:grob-property grob 'staff-position))) #{\markup { \combine \halign #-0.55 \raise #(if (= pos -6) 0 0.5) \override #'(thickness . 2) \draw-line #'(3.2 . 0) \musicglyph "noteheads.sM1" }#})) } } % magnetic-lyrics.ily % % written by % Jean Abou Samra % Werner Lemberg % % adapted by % Jiri Hon % % Version 2022-Apr-15 % https://www.mail-archive.com/lilypond-user@gnu.org/msg149350.html #(define (Left_hyphen_pointer_engraver context) "Collect syllable-hyphen-syllable occurrences in lyrics and store them in properties. This engraver only looks to the left. For example, if the lyrics input is @code{foo -- bar}, it does the following. @itemize @bullet @item Set the @code{text} property of the @code{LyricHyphen} grob between @q{foo} and @q{bar} to @code{foo}. @item Set the @code{left-hyphen} property of the @code{LyricText} grob with text @q{foo} to the @code{LyricHyphen} grob between @q{foo} and @q{bar}. @end itemize Use this auxiliary engraver in combination with the @code{lyric-@/text::@/apply-@/magnetic-@/offset!} hook." (let ((hyphen #f) (text #f)) (make-engraver (acknowledgers ((lyric-syllable-interface engraver grob source-engraver) (set! text grob))) (end-acknowledgers ((lyric-hyphen-interface engraver grob source-engraver) ;(when (not (grob::has-interface grob 'lyric-space-interface)) (set! hyphen grob)));) ((stop-translation-timestep engraver) (when (and text hyphen) (ly:grob-set-object! text 'left-hyphen hyphen)) (set! text #f) (set! hyphen #f))))) #(define (lyric-text::apply-magnetic-offset! grob) "If the space between two syllables is less than the value in property @code{LyricText@/.details@/.squash-threshold}, move the right syllable to the left so that it gets concatenated with the left syllable. Use this function as a hook for @code{LyricText@/.after-@/line-@/breaking} if the @code{Left_@/hyphen_@/pointer_@/engraver} is active." (let ((hyphen (ly:grob-object grob 'left-hyphen #f))) (when hyphen (let ((left-text (ly:spanner-bound hyphen LEFT))) (when (grob::has-interface left-text 'lyric-syllable-interface) (let* ((common (ly:grob-common-refpoint grob left-text X)) (this-x-ext (ly:grob-extent grob common X)) (left-x-ext (begin ;; Trigger magnetism for left-text. (ly:grob-property left-text 'after-line-breaking) (ly:grob-extent left-text common X))) ;; `delta` is the gap width between two syllables. (delta (- (interval-start this-x-ext) (interval-end left-x-ext))) (details (ly:grob-property grob 'details)) (threshold (assoc-get 'squash-threshold details 0.2))) (when (< delta threshold) (let* (;; We have to manipulate the input text so that ;; ligatures crossing syllable boundaries are not ;; disabled. For languages based on the Latin ;; script this is essentially a beautification. ;; However, for non-Western scripts it can be a ;; necessity. (lt (ly:grob-property left-text 'text)) (rt (ly:grob-property grob 'text)) (is-space (grob::has-interface hyphen 'lyric-space-interface)) (space (if is-space " " "")) (extra-delta (if is-space spaceSize 0)) ;; Append new syllable. (ltrt-space (if (and (string? lt) (string? rt)) (string-append lt space rt) (make-concat-markup (list lt space rt)))) ;; Right-align `ltrt` to the right side. (ltrt-space-markup (grob-interpret-markup grob (make-translate-markup (cons (interval-length this-x-ext) 0) (make-right-align-markup ltrt-space))))) (begin ;; Don't print `left-text`. (ly:grob-set-property! left-text 'stencil #f) ;; Set text and stencil (which holds all collected ;; syllables so far) and shift it to the left. (ly:grob-set-property! grob 'text ltrt-space) (ly:grob-set-property! grob 'stencil ltrt-space-markup) (ly:grob-translate-axis! grob (- (- delta extra-delta)) X)))))))))) #(define (lyric-hyphen::displace-bounds-first grob) ;; Make very sure this callback isn't triggered too early. (let ((left (ly:spanner-bound grob LEFT)) (right (ly:spanner-bound grob RIGHT))) (ly:grob-property left 'after-line-breaking) (ly:grob-property right 'after-line-breaking) (ly:lyric-hyphen::print grob))) squashThreshold = #0.4 \layout { \context { \Lyrics \consists #Left_hyphen_pointer_engraver \override LyricText.after-line-breaking = #lyric-text::apply-magnetic-offset! \override LyricHyphen.stencil = #lyric-hyphen::displace-bounds-first \override LyricText.details.squash-threshold = \squashThreshold \override LyricHyphen.minimum-distance = 0 \override LyricHyphen.minimum-length = \squashThreshold } } squashText = \override LyricText.details.squash-threshold = 9999 unSquashText = \override LyricText.details.squash-threshold = \squashThreshold leftText = \override LyricText.self-alignment-X = #LEFT unLeftText = \revert LyricText.self-alignment-X starOffset = #(lambda (grob) (let ((x_offset (ly:self-alignment-interface::aligned-on-x-parent grob))) (if (= x_offset 0) 0 (+ x_offset 1.2)))) star = #(define-music-function (syllable)(string?) "Append star separator at the end of a syllable" #{ \once \override LyricText.X-offset = #starOffset \lyricmode { \markup { #syllable \override #'((font-name . "TeX Gyre Schola Bold")) \hspace #0.2 \lower #0.65 \larger "*" } } #}) starAccent = #(define-music-function (syllable)(string?) "Append star separator at the end of a syllable and make accent" #{ \once \override LyricText.X-offset = #starOffset \lyricmode { \markup { \accent #syllable \override #'((font-name . "TeX Gyre Schola Bold")) \hspace #0.2 \lower #0.65 \larger "*" } } #}) breath = #(define-music-function (syllable)(string?) "Append breathing indicator at the end of a syllable" #{ \lyricmode { \markup { #syllable "+" } } #}) optionalBreath = #(define-music-function (syllable)(string?) "Append optional breathing indicator at the end of a syllable" #{ \lyricmode { \markup { #syllable "(+)" } } #}) \score { << \new Voice = "melody" { \cadenzaOn \key d \major \relative { a'8 b a fis r4 \cadenzaMeasure \bar "|" d8 d4 d8 \bar "" g g g \bar "" g fis e \cadenzaMeasure \bar "|" fis g a a a4 r \cadenzaMeasure \bar "||" \break } } \new Lyrics \lyricsto "melody" { \lyricmode { \set stanza = \responsum Bla -- ze li -- du, kte -- rý si Ho -- spo -- din vy -- vo -- lil za svůj ma -- je -- tek. } } >> \layout {} } \score { << \new Voice = "melody" { \cadenzaOn \key d \major \relative { \squashNotes b'\breve*1/16 \hideNotes \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \breve*1/16 \bar "" \unHideNotes \unSquashNotes cis8 b \bar "" b a a4 r \cadenzaMeasure \bar "|" \squashNotes g\breve*1/16 \hideNotes \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \breve*1/16 \bar "" \unHideNotes \unSquashNotes a8 g \bar "" fis e e4 r \cadenzaMeasure \bar "||" \break } } \new Lyrics \lyricsto "melody" { \lyricmode { \set stanza = "1." \leftText Bla -- \squashText ze ná -- ro -- du, je -- hož Bo -- \unLeftText \unSquashText hem je \markup \accent Ho -- spo -- \star din, \leftText bla -- \squashText ze li -- du, kte -- rý si vy -- vo -- lil \unLeftText \unSquashText za svůj \markup \accent ma -- je -- tek. } } >> \layout {} } \score { << \new Voice = "melody" { \cadenzaOn \key d \major \relative { \squashNotes b'\breve*1/16 \hideNotes \breve*1/16 \bar "" \unHideNotes \unSquashNotes cis8 b \bar "" b a a4 r \cadenzaMeasure \bar "|" \squashNotes g\breve*1/16 \hideNotes \breve*1/16 \bar "" \unHideNotes \unSquashNotes a8 g \bar "" fis e e e4 r \cadenzaMeasure \bar "||" \break } } \new Lyrics \lyricsto "melody" { \lyricmode { \set stanza = "2." \leftText "Z ne" -- \squashText be \unLeftText \unSquashText shlí -- ží \markup \accent Ho -- spo -- \star din, \leftText vi -- \squashText dí \unLeftText \unSquashText všech -- ny \markup \accent smr -- tel -- ní -- ky. } } >> \layout {} } \score { << \new Voice = "melody" { \cadenzaOn \key d \major \relative { a'8 b a fis r4 \cadenzaMeasure \bar "|" d8 d4 d8 \bar "" g g g \bar "" g fis e \cadenzaMeasure \bar "|" fis g a a a4 r \cadenzaMeasure \bar "||" \break } } \new Lyrics \lyricsto "melody" { \lyricmode { \set stanza = \responsum Bla -- ze li -- du, kte -- rý si Ho -- spo -- din vy -- vo -- lil za svůj ma -- je -- tek. } } >> \layout {} } \score { << \new Voice = "melody" { \cadenzaOn \key d \major \relative { \squashNotes b'\breve*1/16 \hideNotes \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \breve*1/16 \bar "" \unHideNotes \unSquashNotes cis8 b \bar "" b[( a)] a2 \cadenzaMeasure \bar "|" \squashNotes g\breve*1/16 \hideNotes \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \breve*1/16 \bar "" \unHideNotes \unSquashNotes a8 g \bar "" fis[( e)] e4 r \cadenzaMeasure \bar "||" \break } } \new Lyrics \lyricsto "melody" { \lyricmode { \set stanza = "3." \leftText Ho -- \squashText spo -- di -- no -- vo o -- ko bdí nad tě -- mi, kdo \unLeftText \unSquashText se ho \markup \accent bo -- \star jí, \leftText nad \squashText tě -- mi, kdo dou -- fa -- jí \unLeftText \unSquashText "v je" -- ho \markup \accent mi -- lost, } } >> \layout {} } \score { << \new Voice = "melody" { \cadenzaOn \key d \major \relative { \squashNotes b'\breve*1/16 \hideNotes \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \breve*1/16 \bar "" \unHideNotes \unSquashNotes cis8 b \bar "" b a a4 r \cadenzaMeasure \bar "|" \squashNotes g\breve*1/16 \hideNotes \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \breve*1/16 \bar "" \unHideNotes \unSquashNotes a8 g \bar "" fis e e4 r \cadenzaMeasure \bar "||" \break } } \new Lyrics \lyricsto "melody" { \lyricmode { \set stanza = "4." \leftText a -- \squashText by je -- jich du -- še \unLeftText \unSquashText vy -- rval \markup \accent ze smr -- \star ti, \leftText a -- \squashText by jim ži -- vot za -- \unLeftText \unSquashText cho -- val \markup \accent za hla -- du. } } >> \layout {} } \score { << \new Voice = "melody" { \cadenzaOn \key d \major \relative { a'8 b a fis r4 \cadenzaMeasure \bar "|" d8 d4 d8 \bar "" g g g \bar "" g fis e \cadenzaMeasure \bar "|" fis g a a a4 r \cadenzaMeasure \bar "||" \break } } \new Lyrics \lyricsto "melody" { \lyricmode { \set stanza = \responsum Bla -- ze li -- du, kte -- rý si Ho -- spo -- din vy -- vo -- lil za svůj ma -- je -- tek. } } >> \layout {} } \score { << \new Voice = "melody" { \cadenzaOn \key d \major \relative { \squashNotes b'\breve*1/16 \hideNotes \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \breve*1/16 \bar "" \unHideNotes \unSquashNotes cis8 b \bar "" b a a a4 r \cadenzaMeasure \bar "|" \squashNotes g\breve*1/16 \hideNotes \breve*1/16 \breve*1/16 \bar "" \unHideNotes \unSquashNotes a8 g \bar "" fis e e e4 \cadenzaMeasure \bar "||" \break } } \new Lyrics \lyricsto "melody" { \lyricmode { \set stanza = "5." \leftText Na -- \squashText še du -- še vy -- \unLeftText \unSquashText hlí -- ží \markup \accent Ho -- spo -- di -- \star na, \leftText on \squashText sám je \unLeftText \unSquashText na -- še \markup \accent po -- moc a štít. } } >> \layout {} } \score { << \new Voice = "melody" { \cadenzaOn \key d \major \relative { r8 b'8 \squashNotes b\breve*1/16 \hideNotes \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \bar "" \breve*1/16 \breve*1/16 \bar "" \unHideNotes \unSquashNotes cis8 b \bar "" b a a2 \cadenzaMeasure \bar "|" \squashNotes g\breve*1/16 \hideNotes \breve*1/16 \bar "" \unHideNotes \unSquashNotes a8 g \bar "" fis[( e)] e4 r \cadenzaMeasure \bar "||" \break } } \new Lyrics \lyricsto "melody" { \lyricmode { \set stanza = "6." Ať \leftText spo -- \squashText či -- ne na nás, Ho -- spo -- di -- ne, tvé \unLeftText \unSquashText mi -- lo -- \markup \accent sr -- den -- \star ství, \leftText jak \squashText dou -- \unLeftText \unSquashText fá -- me \markup \accent "v te" -- be. } } >> \layout {} } \score { << \new Voice = "melody" { \cadenzaOn \key d \major \relative { a'8 b a fis r4 \cadenzaMeasure \bar "|" d8 d4 d8 \bar "" g g g \bar "" g fis e \cadenzaMeasure \bar "|" fis g a a a4 r \cadenzaMeasure \bar "||" \break } \bar "|." } \new Lyrics \lyricsto "melody" { \lyricmode { \set stanza = \responsum Bla -- ze li -- du, kte -- rý si Ho -- spo -- din vy -- vo -- lil za svůj ma -- je -- tek. } } >> \layout {} }