fonction de lilypond 2.14 vers 2.18

[Gerard]

Bonjour à tous,

comme je vois beaucoup de savoir sur cette liste (et dont j'en reste moi aussi souvent soufflé !), j'ose poser ma petite question :

Pourquoi la fonction qui suit (en 2 variantes) ne fonctionne-t-elle pas sous Lilypond 2.18 alors que c'est impec sous 2.14 !

Cette fonction (qui m'avait été fournie à l'époque par la communauté Lilypond, je ne me souviens plus qui :-[) est utilisée pour le diato (voir un exemple ici)

la fonction est appelée comme ça : \pg #"5" c4 \tg #"6" d4

Bien le merci d'avance !

Gérard
------------- LA FONCTION
%%fonction pg (poussé SOL) pour colorer les notes poussées sur le rang G à la main droite (mélodie)
%% ColorNotesP est mise en blue

pg = #(define-music-function
(parser location button)
(string?)
(make-music
'TextScriptEvent
'direction 0
'text ( markup #:with-color ColorNotesP #:fontsize 1 button)
))

%%fonction tg (tiré SOL) pour colorer les touches tirées sur le rang G à la main droite (mélodie)
%%ColorNoteT en en rouge, la touche est en rouge cerclé

tg =
#(define-music-function
(parser location button)
(string?)
(make-music
'TextScriptEvent
'direction 0
'text ( markup #:with-color ColorNotesT #:circle #:fontsize 1 button)
))