Hi All,
Thanks for making it more easy to edit, BUT :-)
We have a problem with the latest version.
What if, we have 2 note with ledgerline in 1 melisma
like here: in Sanctus (after Kyrie)
https://drive.google.com/file/d/0B1x9jbJPH9FkbmN1ZVY3VzdsaEk/view
In the last but one version we could change the space after the c
I attached.
Another question in connetction with clef.
How can I do F maior?? like here in Alleluja:
(after Graduale)
https://drive.google.com/file/d/0B1x9jbJPH9FkZkFXQ2hiVklCaHM/view
Thank you!
Sister Judit
2015-01-31 15:35 GMT+01:00 Pierre Perol-Schneider <
pierre.schneider.pa...@gmail.com>:
> Hi All,
>
> I slightly changed stems defs in order to ease the workaround when ledger
> line happend and to make ornament possible to a stemed note.
> See: http://lsr.di.unimi.it/LSR/Item?id=973
>
> Cheers,
> Pierre
>
> _______________________________________________
> lilypond-user mailing list
> lilypond-user@gnu.org
> https://lists.gnu.org/mailman/listinfo/lilypond-user
>
>
%% Works with other sizes:
%#(set-global-staff-size 25)
%#(set-global-staff-size 16)
%%%%% Defs to be saved as "modernGregorian.ily" %%%%%%%%%
%%%% Defining new grobs:
lst = \once\override NoteHead.stencil = #(lambda (grob)
(grob-interpret-markup grob
#{
\markup\concat {
\hspace #-.21
\lower #.1
\override #'(thickness . 1.3)
\draw-line #'(0 . -3.5)
\hspace #-.12
\musicglyph #"noteheads.s2"
\hspace #-.21
}
#}))
tst = \once\override NoteHead.stencil = #(lambda (grob)
(grob-interpret-markup grob
#{
\markup\concat {
\hspace #-.2
\override #'(thickness . 1.3)
\lower #.2
\draw-line #'(0 . 1)
\hspace #-.1
\musicglyph #"noteheads.s2"
\hspace #-.21
}
#}))
sst = \once\override NoteHead.stencil = #(lambda (grob)
(grob-interpret-markup grob
#{
\markup\concat {
\hspace #-.21
\override #'(thickness . 1.3)
\lower #.2
\draw-line #'(0 . 1.5)
\hspace #-.1
\musicglyph #"noteheads.s2"
\hspace #-.21
}
#}))
mst = \once\override NoteHead.stencil = #(lambda (grob)
(grob-interpret-markup grob
#{
\markup\concat {
\hspace #-.21
\override #'(thickness . 1.3)
\lower #.2
\draw-line #'(0 . 2)
\hspace #-.1
\musicglyph #"noteheads.s2"
\hspace #-.21
}
#}))
%{ % old:
%% note head with ledger line
led = {
\once\override NoteHead.stencil = #(lambda (grob)
(grob-interpret-markup grob
#{
\markup\concat {
\hspace #-.26
\musicglyph #"noteheads.s2"
\hspace #-1.62
\override #'(thickness . 2)
\draw-line #'(1.46 . 0)
}
#}))
}
%}
%% Ornament function
orn = #(define-music-function (parser location ornSpacer)
(number?)
#{
\once\override NoteHead.stencil =
#(lambda (grob) (grob-interpret-markup grob
#{
\markup\concat {
\hspace #-.21
\musicglyph #"noteheads.s2"
\hspace #(+ -.6 ornSpacer)
\raise #.17
\fontsize #-6
\rotate #-50
\musicglyph #"brackettips.down"
\hspace #-.21
}
#}))
#})
%% Left aligning lyric :
lal = \once\override LyricText.self-alignment-X = #LEFT
%% Defining grouped note and dedicated context:
gregorianContext = {
\cadenzaOn
\omit Stem
\omit Clef
\omit TimeSignature
\omit StaffSymbol
\omit Dots
\omit Rest
\override SpacingSpanner.packed-spacing = ##t
\override NoteHead.stencil = #(lambda (grob)
(grob-interpret-markup grob
#{
\markup\concat {
\hspace #-.21
\musicglyph #"noteheads.s2"
\hspace #-.21
}
#}))
\override Accidental.extra-offset = #'(-.2 . 0)
\override LedgerLineSpanner.length-fraction = #.6
\override LedgerLineSpanner.minimum-length-fraction = #.6
}
group = #(define-music-function (parser location mus)
(ly:music?)
#{
\once\override NoteHead.stencil = #(lambda (grob)
(grob-interpret-markup grob
#{
\markup\concat {
\hspace #-2
\score {
\transpose c c' { $mus }
\layout {
indent = 0
\context {
\Score
\gregorianContext
}
}
}
}
#}))
#})
melisma = #(define-music-function (parser location mus)
(ly:music?)
#{
{ \group { $mus } b }
#})
\layout {
\context {
\Score
\omit TimeSignature
}
\context {
\Staff
\omit Stem
}
}
%%%%%%%%%%%% end of "modernGregorian.ily" %%%%%%%%%
%%%%%%%%%%% Example %%%%%%%%%%%%%%
%\version "2.18.2"
%\pointAndClickOff
%\inculde "modernGregorian.ily"
\paper {
indent = 0
top-margin = 15
left-margin = 20
right-margin = 20
tagline = ##f
}
\header {
title = \markup { \bold "4b." \normal-text "XV. zsoltár" }
}
\markup\vspace #2 % <= put some vertical space here
myMelody = \transpose c c' {
\clef G
d d d \melisma { f g \lst a } \orn #1 g g \melisma { g a \lst c' }
a \melisma { \lst a \tst g a \lst c' \mst g \lst a \tst g \tst f }
\bar "'"
a c' \melisma { \lst c' \tst b \tst a }
\bar ""\break
\melisma { b c' \lst d' \tst c' \sst a a b \lst c' \tst b \tst a }
\melisma { g a \lst c' \sst a \tst g \lst a }
\melisma { g a \lst c' \sst a }
\bar "|"
f \melisma { a \lst c' } \melisma { c' \lst d' \orn #0 c'} c'
\melisma { c' \lst d' \sst b } \melisma { c' \lst d' }
\melisma { \lst d' \sst b c' \lst d' }
\melisma { a b \lst c' \tst b \tst a \tst g \lst a }
\bar ""\break
\melisma { \lst a \tst g }
\bar "'"
a \melisma { a \lst c' \tst b \sst g } \melisma { c' c' }
\melisma { \lst d' \tst c' \tst b \lst c' \sst a \tst g }
\melisma { \lst a \tst g \lst a \tst g \tst f \lst g }
\melisma { \lst g \tst f }
\bar "|"
f g a \melisma { g \lst a } \orn #1 g g
\bar "" \break
\melisma { g \lst a } \melisma { \lst f \tst e } \melisma { d \lst g }
\melisma { g \lst a \sst f \tst e \tst d }
\melisma {
%% ledger line causes offests, so here's some adjustment:
\override NoteHead.extra-offset = #'(.8 . 0)
d \lst f \sst d
\revert NoteHead.extra-offset
%% and here goes the ledger line:
\tst c %% => see also lyric offsets !!
%%%%%% ? ? %%%%%
\override NoteHead.extra-offset = #'(-.7 . 0)
d \lst f \sst d
\revert NoteHead.extra-offset
}
\bar "'"
g \melisma { g \lst a \tst g \tst f g \lst a }
g \melisma { g a \lst c' \sst a a b \lst c' \tst b \tst a }
\melisma { g a \lst c' \sst a \tst g \lst a } \melisma { \lst a \tst g }
\bar "|." \break
c' c' c' \melisma { c' \lst d' \tst c' \lst c' \sst a \tst g }
\melisma { a \lst c' } c'
\bar "'"
c' c' \melisma { c' c' } \melisma { a \lst c' }
\melisma { g a \lst c' \sst a } \melisma { \lst a \tst g }
\bar "|"
g \melisma { f \lst g }
\bar "" \break
g \melisma { g \lst a } \orn #2 g g
\melisma { a \lst c' \sst a \tst g a \lst c' \sst a }
\melisma { g \lst a \sst f } \melisma { g \lst a }
\melisma { a b c' \lst d' c' \lst c' \tst b \tst a }
\melisma { a \lst c' \sst a \tst g r \lst a \tst g }
\bar "|."
\melisma { f r r a \lst c' r r c' }
\bar "|."
}
myLyrics = \lyricmode {
\set stanza = \markup\box\pad-markup #.5 \bold "4b"
Meg- is- mer- tet- ted
% or:
% Meg -- is -- mer -- tet -- ted
vé- lem,
U- \lal ram az é- let
\lal út- \lal ja- \lal it,
\set stanza = #"*"
\lal be- töl- tesz
vi- gas- sá- gal \lal en-
gem a te szí- \lal ned \lal e- lőtt
gyö- nyö- rű- ség- gel a
te job- bod \lal fe-
%% special lyric offset <= see ledger lines issue:
\lal \once\override LyricText.X-offset = #1 lől
ö- \lal rök- kön \lal ö- \lal rök- ké.
\set stanza = #"V)"
Tarts meg en- \lal gem,
U- ram, mert te- ben- ned \lal bíz- tam,
mon- dám az Úr- nak:
én \lal Is- te- \lal nem \lal vagy \lal te.
\set stanza = #"*"
\lal
Betöltesz.
}
\score {
<<
\cadenzaOn
\new Voice = MyMelody \myMelody
\new Lyrics \lyricsto MyMelody \myLyrics
>>
\layout {
\context {
\Lyrics
\override VerticalAxisGroup.staff-affinity = ##f
}
}
}_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
