[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lilypond-user
Subject:    Odp: Re: Tie settings question
From:       "Karol Majewski" <karolm2 () wp ! pl>
Date:       2016-10-25 18:54:04
Message-ID: 580faa4caf6d30.09485300 () wp ! pl
[Download RAW message or body]

OK, David, I've combined everything. Hopefully everything is fine now. Here it is:

tweakTie =
#(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
      (>
        (length ties) 1)
      (begin
        (if
          (ly:grob? flag)
          (ly:grob-set-property! flag 'Y-extent
            (cons 4 0)))
        (for-each
          (lambda
            (tie)
            (ly:grob-set-nested-property! tie '(details skyline-padding) 5)) ties)))
    (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))
    (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))))


Thanks for all your help.

Karol



_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
[prev in list] [next in list] [prev in thread] [next in thread]