Re: note point dans un cercle

[Ben]

Bonjour Martial, 

Simplement avec des parenthèses vides?

\version "2.25.1"
cx =#(define-music-function ()()
  #{
    \once\override NoteHead.stencil =
    #(lambda (grob)
       (grob-interpret-markup grob
                              #{
                                % \markup \raise #-.8 { \combine "Ͼ"  "Ͽ" }
                                \markup{
                                  \combine
                                  \translate #(cons 0.3 0.1) \draw-circle #0.5 
#0.1 ##f
                                  "."
                                }
                              #}))
    #})
\relative {
  \cx g''4 \cx c, e, \cx e
}

Au plaisir, 

Ben


> Le 14 févr. 2023 à 16:14, Martial R <martialr@gmail.com> a écrit :
> 
> bonjour
> j'abuse... 
> il me faudrait à la place d'une croix dans un cercle ( #'xcircle)
> un point dans un cercle .  
> Ceci marche mais ce n'est pas très propre
> comment me débarrasser de (string?) qui oblige de mettre un string pour 
> appeler ma fonction. 
> %--------
> cx =#(define-music-function
>   (null) (string?)
>   #{
>     \once\override NoteHead.stencil =
>     #(lambda (grob)
>        (grob-interpret-markup grob
>                               #{
>                                 % \markup \raise #-.8 { \combine "Ͼ"  "Ͽ" }
>                                 \markup{
>                                   \combine
>                                   \translate #(cons 0.3 0.1) \draw-circle 
> #0.5 #0.1 ##f
>                                   "."
>                                 }
>                               #}))
>     #})
> \relative {
>   \cx"" g''4 \cx"" c, e, \cx"" e
> }
> %--------
> 
> Merci 
> -- 
> Martial Rameaux
>