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
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
