Subject: note point dans un cercle

From: Martial R <[email-masked]>
Date: Tue, 14 Feb 2023 16:14:21 +0100

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

---

From: Ben <[email-masked]>
Date: Tue, 14 Feb 2023 16:46:17 +0100

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 <[email-masked]> a écrit :
> 
> bonjour
> j'abuse... 
> comment me débarrasser de (string?) qui oblige de mettre un string pour appeler ma fonction. 
> %--------
>                                   \translate #(cons 0.3 0.1) \draw-circle #0.5 #0.1 ##f
>                                   "."
>                                 }
>                               #}))
>     #})
> \relative {

---

From: Martial R <[email-masked]>
Date: Tue, 14 Feb 2023 16:49:15 +0100

ha ben  si simple :-)
 merci beaucoup aussi

-- 
Martial Rameaux