On 2022-06-17 3:35 pm, Jean Abou Samra wrote:
Le 18/06/2022 à 00:24, Leo Correia de Verdier a écrit :
#(define elongate (lambda (grob amt)
(let ((stil (ly:grob-property grob 'stencil)))
(ly:grob-set-property! grob 'stencil
(ly:stencil-scale stil 1 amt)))))
{ \override Accidental.before-line-breaking = #(lambda (grob)
(elongate grob 2))
cis'2 }
#(define (elongate amt)
(grob-transformer
'stencil
(lambda (grob original)
(ly:stencil-scale original 1 amt))))
{ \override Accidental.stencil = #(elongate 2)
cis'2 }
Also consider expressing this as music function:
%%%%
elongate =
#(define-music-function
(grob-path amount) (key-list? number?)
(define proc
(grob-transformer 'stencil
(lambda (grob orig)
(ly:stencil-scale orig 1 amount))))
#{ \override $grob-path . stencil = #proc #})
{ \elongate Staff.TimeSignature -1.5
\once \elongate Accidental 2 cis'2 ees' }
%%%%
-- Aaron Hill