Re: Chord glissTweak padding

[Aaron Hill]

On 2020-11-02 11:48 am, Dimitris Marinakis wrote:
> Is it possible to modify this tweak to include padding (left & right) 
> for
> the individual gliss lines?
>
> [...]

\glissTweak needs to be able to handle using 
ly:grob-set-nested-property!:

%%%%
glissTweak =
#(define-music-function
  (parser location lst) (pair?)
  (define (proc grob)
    (let ((gliss-count (ly:grob-property grob 'glissando-index)))
      (for-each
       (lambda (x)
         (let ((gliss-nmbr (car x))
               (property-value-alist (cdr x)))
           (if (eq? gliss-nmbr gliss-count)
               (for-each
                (lambda (y)
                  (let ((prop (car y)) (val (cdr y)))
                    (or (list? prop) (set! prop (list prop)))
                    (ly:grob-set-nested-property! grob prop val)))
                property-value-alist))))
       lst)))
  #{ \once \override Glissando.after-line-breaking = #proc
     <>\glissando #})
%%%%

Then you can do something like this:

%%%%
\glissTweak
  #`((0 . ((style . dashed-line)
          ((bound-details right padding) . 2)
          ((bound-details right arrow) . #t)
          (normalized-endpoints . (0 . -2.1))))
     (1 . ((stencil . #f)))
     (2 . ((stencil . #f)))
     (3 . ((stencil . #f)))
     (4 . ((style . dashed-line)
           ((bound-details left padding) . 2)
           ((bound-details left arrow) . #t)
           (normalized-endpoints . (0 . -1.5)))))
<c' e g bes d>2^"\"some other tweaks\""
<d, a' fis' c' e'>
%%%%


-- Aaron Hill