Oups...
2015-02-01 12:44 GMT+01:00 Pierre Perol-Schneider <
pierre.schneider.pa...@gmail.com>:
> Simply add :
>
> melisma = #(define-music-function (parser location mus)
> (ly:music?)
> #{
> { \neume { $mus } h }
> #})
>
> In your file (or replace it in modernGregorian.ily").
>
In fact:
melisma = #(define-music-function (parser location mus)
(ly:music?)
#{
{ \neume { $mus } \omit Accidental h }
#})
Cheers,
Pierre
\version "2.19.15"
\include "modernGregorian.ily"
%\pointAndClickOff
\language "deutsch"
melisma = #(define-music-function (parser location mus)
(ly:music?)
#{
{ \neume { $mus } \omit Accidental h }
#})
\paper {
indent = 0
top-margin = 15
left-margin = 20
right-margin = 20
tagline = ##f
%ragged-right = ##f
%ragged-last = ##t
}
myMelodyModern = \transpose c c' {
\clef G
\key f\major
\omit Stem
\repeat volta 2 {
f f \melisma { g \lst a } a
\once\override Staff.BarLine.bar-extent = #'(0 . 2) \bar "|"
a g \melisma { \lst a g } \melisma { \lst e f }
g \melisma { \lst f e } d d
\hideNotes d
}
}
myMelodyStandard = \transpose c c' {
\clef G
\key f\major
\stemDown
\omit Stem
\repeat volta 2 {
f f \undo\omit Stem <g a> a
\once\override Staff.BarLine.bar-extent = #'(0 . 2) \bar "|"
\omit Stem a g \undo\omit Stem <a \tweak extra-offset #'(2.3 . 0) g>
<\tweak extra-offset #'(2.3 . 0) e f>
\omit Stem g \undo\omit Stem
<f \tweak extra-offset #'(2.3 . 0) e> \omit Stem d d
\hideNotes d
}
}
myLyrics = \lyricmode {
\override LyricHyphen.minimum-distance = #5
\override LyricSpace.minimum-distance = #5
A -- le -- lu -- ja.
\repeat unfold 2 { a -- le -- lu -- ja. }
}
\markuplist {
\italic "Standard notation:"
\vspace #1
}
\score {
<<
\cadenzaOn
\new Voice = MyMelody \myMelodyStandard
\new Lyrics \lyricsto MyMelody \myLyrics
>>
\layout {
system-count = 1
\context {
\Lyrics
\override VerticalAxisGroup.staff-affinity = ##f
}
}
\header {
piece = \markup {
\lower #2.7 \fontsize #9 \bold "551"
\column {
\bold "Alleluja"
"(ÉE 432)"
}
}
}
}
\markuplist {
\italic "With 'modernGregorian':"
\vspace #1
}
\score {
<<
\cadenzaOn
\new Voice = MyMelody \myMelodyModern
\new Lyrics \lyricsto MyMelody \myLyrics
>>
\layout {
system-count = 1
\context {
\Lyrics
\override VerticalAxisGroup.staff-affinity = ##f
}
}
\header {
piece = \markup {
\lower #2.7 \fontsize #9 \bold "551"
\column {
\bold "Alleluja"
"(ÉE 432)"
}
}
}
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
