OK, I resign. But stil I don't get something in the code you posted yesterday:
%%%%%%%%%%%%%%%%%%%%%
raiseTie =
#(lambda (grob)
(let* ((ties (ly:grob-array->list (ly:grob-object grob 'ties)))
(notehead (ly:spanner-bound (car ties) LEFT))
(stem (ly:grob-object notehead 'stem))
(stem-dir (ly:grob-property stem 'direction))
(flag (ly:grob-object stem 'flag))
(dot (ly:grob-object notehead 'dot)))
(if (and (= stem-dir 1)(ly:grob? dot))
(for-each
(lambda (tie)
(let ((tie-dir (ly:grob-property tie 'direction)))
(if (= tie-dir 1)
(begin
(ly:grob-set-nested-property! tie '(details skyline-padding)
5)
(ly:grob-set-property! tie 'Y-offset -0.25)))))
ties))))
\layout {
\context {
\Score
\override TieColumn.before-line-breaking = #raiseTie
}
}
{
\time 3/8 \voiceOne
g'4~ g'8~
g'4~ g'8~
g'4.~
g'4~ g'8
}
%%%%%%%%%%%%%%%%%%%%%%%%%
Now, remove 'voiceOne' and a tie disappears. It seems that something is wrong
with (let ((tie-dir (ly:grob-property tie 'direction)))). Is it possible to fix
this?
Best
Karol
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
