Re: Tie settings question

[David Nalesnik]

On Tue, Oct 25, 2016 at 10:37 AM, David Nalesnik
<address@hidden> wrote:
> Hi Karol,
>
> On Tue, Oct 25, 2016 at 9:35 AM, Karol Majewski <address@hidden> wrote:
>> OK, I'm trying to write something like this in scheme:
>>
>> if (stem-direction == UP && tie-direction == UP && note-has-a-dot == true)
>> {
>>   \once \override Tie.details.skyline-padding = #5
>>   \once \override Tie.Y-offset = #-0.25
>> }
>>
>> Please, David or Harm, correct my mistakes. So far I've got this:
>>
>> raiseTie =
>> #(lambda
>>   (grob)
>>   (let*
>>     ((ties
>>         (ly:grob-array->list
>>           (ly:grob-object grob 'ties)))
>
> "tie" is not a defined variable.  When you bind "tie-dir" to a
> procedure, it will be evaluated, so "tie" has to be defined.
>
>>       (tie-dir
>>         (ly:grob-property tie 'direction))
>>       (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))
>
> grob = TieColumn.  TieColumn grobs store no reference to augmentation
> dots.  'dot is a part of the rhythmic-head-interface
> (http://lilypond.org/doc/v2.19/Documentation/internals/rhythmic_002dhead_002dinterface)
> which is supported by NoteHead.
>
>>       (dot (ly:grob-object grob 'dot)))
>>     (if
>
> Again, "tie" is not defined.
>
>>       (and (= stem-dir 1) (= tie-dir 1) (ly:grob? dot))
>>       (begin
>

(Sorry, ignore that last admonition...)