%=================================
%
https://lsr.di.unimi.it/LSR/Snippet?id=1068%fonction pour faire un cercle avec un markup
#(define-markup-command
(circled-pattern-iterative layout props radius angle num arg)
(number? number? number? markup?)
(interpret-markup layout props
(let ((rep (abs num)))
(cond
((= num 0) (markup ""))
((= num 1) arg)
(#t (do ((i 0 (1+ i))
(res (markup (#:null))
(markup
(#:combine
(#:rotate
(* i (/ angle rep))
(#:concat (#:null #:hspace radius arg)))
res))))
((= i (1+ rep)) res)))))))
%-----------------------------
%on fabrique les formes - à tester d'autre caractère
Pouce = \markup\epsfile #X #3 "pouce.eps" % ajuster la taille
pouce = #(define-music-function
(note)
(ly:music?)
#{
\override NoteHead.stencil = #ly:text-interface::print
\override NoteHead.text = \markup { \raise #-1.5 \Pouce }
#note
#})
% revenire à une tête de note normale
rNH = \revert NoteHead.stencil
%---------------------------------
\relative c' {
\pouce g4 c e g
}
\markup { \raise #3 \score {
{ \stopStaff \omit Staff.Clef \omit Staff.TimeSignature \pouce d'1 } } "tirer les cordes avec le pouce"
}
%===============================