Or I have this definition in my main include file:
scoop = \once \override NoteHead #'stencil = #scoop-stencil
Then I just do \scoop a4 for example.
Paul
To stick to the images, you can also do:
#(define (scp-stencil grob)
(ly:stencil-combine-at-edge
(ly:note-head::print grob) 0 -1
(grob-interpret-markup grob
#{
\markup
\with-dimensions-from \null
\path #0.2 #'((moveto -2 -1.8)(curveto -1.2 -1.8 -.5 -1.28 -.3 -.3))
#} ) 0 ))
scp = \once \override NoteHead.stencil = #scp-stencil
{
\clef F
\key g\major
bes4 \scp a g fis
\repeat unfold 4 { r8 \scp g' }
\repeat unfold 3 { \scp g'4 }
\scp g' fis'!
}
and do:
sc = #(make-left-head-ornementation-event
#{ \markup \path #0.2 #'((moveto -1.3 -1.5)(rcurveto .8 0 1.5 .5 1.8 1.5)) #}
#t #t)
%% Test: %%
{
\clef F
\key g\major
bes4 a\sc g fis
\repeat unfold 4 { r8 g'\sc }
\repeat unfold 3 { g'4\sc }
g'\sc fis'!
}
Cheers,
Pierre