Torsten Anders wrote:
Lilypond does not know about multiple-sign accidentals, so I
somehow have to create more horizontal space for these manually.
The following code tries to adjust this spacing automatically.
But I haven't tested it with your font.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#(define (markup-X-extent markup) (lambda (grob)
(ly:stencil-extent (grob-interpret-markup grob markup) X)))
#(define (accidental-text markup) (lambda (grob)
(modify-accidental grob
`((text . ,markup)
(X-extent . ,(markup-X-extent markup))))))
accidental =
#(define-music-function (parser location markup) (markup?)
#{
\once \override Accidental #'text = #$markup
\once \override Accidental #'X-extent = #(markup-X-extent $markup)
#})
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Cheers,
Robin
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
