Re: tin-whistle

[Jean Abou Samra]

Bonsoir,

J'ai dû avoir un instant d'absence, car votre exemple semble montrer 
assez clairement que vous voulez produire automatiquement le diagramme à 
partir de la musique.

On peut alors faire quelque chose comme ceci :

\version "2.21.80"

tinWhistle =
#(define-music-function (fingerings music)
                        (list? ly:music?)
   #{
     <<
       { $music }
       \new Dynamics {
         #(music-map
            (lambda (m)
              (if (music-is-of-type? m 'note-event)
                  (make-music
                    'SkipEvent
                    'duration
                    (ly:music-property m 'duration)
                    'articulations
                    (list
                      (make-music
                        'TextScriptEvent
                        'text
                        #{
                          \markup
                          \left-align
                          \override #'(size . 0.5)
                          \woodwind-diagram
                            #'tin-whistle
                            #(list
                               (cons
                                 'cc
                                 (assoc-get
                                   (let ((pitch (ly:music-property m 
'pitch)))
                                     (list
                                       (ly:pitch-notename pitch)
                                       (ly:pitch-alteration pitch)))
                                   fingerings))
                               '(lh . ())
                               '(rh . ()))
                        #})))
                  m))
            music)
       }
     >>
   #})


\tinWhistle
% Liste des doigtés. Les hauteurs sont sous la forme
% (A B) où A est la hauteur brute comptée à partir de
% 0 pour do, et B représente l'altération sous forme
% de fraction d'un ton (par exemple 1/2 pour un dièse
% ou -1/4 pour un demi-bémol).
#'(((0 0) . (one two three four five six))
   ((1 0) . (one two three four five))
   ((2 0) . (one two three four))
   ((4 0) . (one two three))
   ((6 0) . (one)))
\relative {
  c'1
  d
  e4 c g' b
}


Vous devrez entrer la liste des doigtés (je ne les connais pas).

Cordialement,
Jean