Re: Tie settings question

[Karol Majewski]

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