Ne fonctionne plus sous lilypond 2.21

[Gloops]

%Bonjour !
%Visiblement la version 2.21 change la façon de faire les \note ou #:note...
%En effet elle n'appelle plus une string mais une duration !


%%%%
\version "2.20.0"
#(define-public (format-time-sig-note grob)
   (let* ((frac (ly:grob-property grob 'fraction))
          (num (if (pair? frac) (car frac) 4))
          (den (if (pair? frac) (cdr frac) 4))
          (m (markup #:override '(baseline-skip . 0.5)
                     #:center-column (#:number (number->string num)
                                               #:override '(style . default)
                                               #:note (number->string den)
DOWN))))
     (grob-interpret-markup grob m)))

\new Staff {
\override Staff.TimeSignature.stencil = #format-time-sig-note
  \time 3/8
  \relative c'' { c8 c c }
 }

%Pas d'erreur mais résultat incorrect
%%%%
% \version "2.21.0"
% #(define-public (format-time-sig-note grob)
%    (let* ((frac (ly:grob-property grob 'fraction))
%           (num (if (pair? frac) (car frac) 4))
%           (den (if (pair? frac) (cdr frac) 4))
%           (m (markup #:override '(baseline-skip . 0.5)
%                      #:center-column (#:number (number->string num)
%                                                #:override '(style .
default)
%                                                #:note (ly:make-duration
den) DOWN))))
%      (grob-interpret-markup grob m)))
% 
% \new Staff {
% \override Staff.TimeSignature.stencil = #format-time-sig-note
%   \time 3/8
%   \relative c'' { c8 c c }
%  }



--
Sent from: http://lilypond-french-users.1298960.n2.nabble.com/