Put a slash on acciaccatura beamed eighth notes

[Frédéric Chiasson]

Hello everyone,

I would like to know if anyone has found a way to put a slash on beamed eighth notes in acciaccatura? With the \acciaccatura function, the slash appears on single notes, but not on beamed notes. The ideal engraving would be a slash at the start of the beam, like in Berio's Sequenza IXb for alto saxophone (attachment too large for sending)

I have compared the codes of "\acciaccatura c8" and "\acciaccatura { c8[ d8]}" with \displayMusic. The code requesting the slash is the same :

(make-music 'ContextSpeccedMusic 'context-type 'Bottom 'element
                    (make-music 'OverrideProperty 'pop-first  #t 'grob-property-path (list (quote stroke-style)) 'grob-value "grace" 'symbol 'Stem))))

and later...

(make-music 'ContextSpeccedMusic 'context-type 'Bottom 'element
                    (make-music 'RevertProperty 'grob-property-path (list (quote stroke-style)) 'symbol 'Stem))

No change for the beamed eighth notes, although the slash doesn't appear. No difference either in ly/grace- init.ly. Does anyone know where the denial of this request for beamed notes is programmed? How can I change it?

The complete Scheme procedures for both codes :

;\acciaccatura c8

(make-music 'SequentialMusic 'elements
    (list (make-music 'GraceMusic 'element
            (make-music 'SequentialMusic 'elements
                (list (make-music 'SequentialMusic 'elements
                                                  (list (make-music 'EventChord 'elements
                                                                    (list (make-music 'SkipEvent 'duration (ly:make-duration 0 0 0 1))
                                                                          (make-music 'SlurEvent 'span-direction -1)))
                                                        (make-music 'ContextSpeccedMusic 'context-type 'Bottom 'element
                                                                    (make-music 'OverrideProperty 'pop-first  #t 'grob-property-path
                                                                                (list (quote stroke-style))
                                                                                'grob-value "grace" 'symbol 'Stem))))
                                      (make-music 'EventChord 'elements
                                                  (list (make-music 'NoteEvent 'duration (ly:make-duration 3 0 1 1) 'pitch (ly:make-pitch -1 0 0))))
                                      (make-music 'SequentialMusic 'elements
                                                  (list (make-music 'ContextSpeccedMusic 'context-type 'Bottom 'element
                                                                    (make-music 'RevertProperty 'grob-property-path (list (quote stroke-style)) 'symbol 'Stem))
                                                        (make-music 'EventChord 'elements
                                                                    (list (make-music 'SkipEvent 'duration (ly:make-duration 0 0 0 1))
                                                                          (make-music 'SlurEvent 'span-direction 1))))))))))

;\acciaccatura {c8[ d8]}

(make-music 'SequentialMusic 'elements
            (list (make-music 'GraceMusic 'element
                              (make-music 'SequentialMusic 'elements
                                          (list (make-music 'SequentialMusic 'elements
                                                            (list (make-music 'EventChord 'elements
                                                                              (list (make-music 'SkipEvent 'duration (ly:make-duration 0 0 0 1))
                                                                                    (make-music 'SlurEvent 'span-direction -1)))
                                                                  (make-music 'ContextSpeccedMusic 'context-type 'Bottom 'element
                                                                              (make-music 'OverrideProperty 'pop-first #t 'grob-property-path
                                                                                          (list (quote stroke-style))
                                                                                          'grob-value "grace" 'symbol 'Stem))))
                                                 (make-music 'SequentialMusic 'elements
                                                             (list (make-music 'EventChord 'elements
                                                                               (list (make-music 'NoteEvent 'duration (ly:make-duration 3 0 1 1) 'pitch
                                                                                                 (ly:make-pitch -1 0 0))
                                                                                     (make-music 'BeamEvent 'span-direction -1)))
                                                                   (make-music 'EventChord 'elements
                                                                               (list (make-music 'NoteEvent 'duration (ly:make-duration 3 0 1 1) 'pitch
                                                                                                 (ly:make-pitch -1 1 0))
                                                                                     (make-music 'BeamEvent 'span-direction 1)))))
                                                 (make-music 'SequentialMusic 'elements
                                                             (list (make-music 'ContextSpeccedMusic 'context-type 'Bottom 'element
                                                                               (make-music 'RevertProperty 'grob-property-path (list (quote stroke-style))
                                                                                           'symbol 'Stem))
                                                                   (make-music 'EventChord 'elements
                                                                               (list (make-music 'SkipEvent 'duration (ly:make-duration 0 0 0 1))
                                                                                     (make-music 'SlurEvent 'span-direction 1))))))))))


Regards,

Frédéric Chiasson