Re: can you globally set different padding values for different Script grobs?

[Thomas Morley]

2013/7/3 Kieren MacMillan <address@hidden>:
> Hi all,
>
> I want to redefine the way certain Script grobs are padded, independently — 
> e.g., I might want
>
>     staccato.padding = #0.5
>     tenuto.padding = #0.6
>     fermata.padding = #1.1
>     etc.
>
> Is there an elegant way of doing this?
>
> Thanks,
> Kieren.
> _______________________________________________
> lilypond-user mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/lilypond-user

Hi Kieran,

sometime ago David Nalesnik and I were working on it.
Originally, it was 2.14.2-code but still works with 2.17.21.

\version "2.17.21"

#(define ((custom-script-tweaks ls) grob)
   (let* ((type (ly:prob-property (assoc-ref (ly:grob-properties grob)
'cause) 'articulation-type))
          (tweaks (assoc-ref ls type)))
     (if tweaks
         (for-each (lambda (x) (ly:grob-set-property! grob (car x)
(cdr x))) tweaks)
         '())))

% Examples:

#(define ls-1 '(
    ("staccato" . ((color . (0 1 0))(padding . 0.5)))
    ("accent" . ((font-size . 4)(color . (1 0 0))))
    ("tenuto" . ((rotation . (45 0 0)) (padding . 2)(font-size . 10)))
    ("staccatissimo" . ((padding . -10) (color . (0 0 1))))
    ))

#(define ls-2 '(
    ("staccato" . ((color . (0 1 0))))
    ("accent" . ((font-size . 4)(color . (0 1 0))(padding . 1.5)))
    ("tenuto" . ((rotation . (-45 0 0)) (padding . 2)(font-size . 10)))

    ("staccatissimo" . ((padding . -10) (color . (0 0 1))))
    ("coda" . ((color . (0 0 1))))
    ))

% Kieran's list:
#(define ls-3 '(
    ("staccato" . ((padding . 0.5)))
    ("tenuto" . ((padding . 0.6)))
    ("fermata" . ((padding . 1.1)))
    ))


one =
\relative c'' {
  f1--
  f1--
  \override  Voice.Script #'before-line-breaking = #(custom-script-tweaks ls-1)
  f-. f-| f-> f-> f-- f-|
  \revert Script #'before-line-breaking
  f-> f-.
}

two =
\relative c' {
  f1--->
  f1--
  \override  Voice.Script #'before-line-breaking = #(custom-script-tweaks ls-2)
  f-. f-| f-> f-> f---> f-|
  %\revert Script #'before-line-breaking
  f-> f-.\coda
}

three =
\relative c' {
  \override  Voice.Script #'before-line-breaking = #(custom-script-tweaks ls-3)
  f1-. f-. f\fermata f \bar "||"
  \revert Script #'before-line-breaking
  <>^\markup "reverted"
  f1-. f-. f\fermata f
}



\new Staff <<
   \new Voice { \voiceOne \one }
   \new Voice { \voiceTwo \two }
   >>

\new Staff = "Kieran" \three



HTH,
  Harm