4 #(define (make-span-event type spandir)
5 (let* ((m (make-music-by-name type)))
6 (ly-set-mus-property! m 'span-direction spandir)
10 groupOpen = #(make-span-event 'NoteGroupingEvent START)
11 groupClose = #(make-span-event 'NoteGroupingEvent STOP)
14 cr = #(make-span-event 'CrescendoEvent START)
15 rc = #(make-span-event 'CrescendoEvent STOP)
16 decr = #(make-span-event 'DecrescendoEvent START)
17 rced = #(make-span-event 'DecrescendoEvent STOP)
19 startTextSpan = #(make-span-event 'TextSpanEvent START)
20 stopTextSpan = #(make-span-event 'TextSpanEvent STOP)
23 #(ly-export (make-event-chord (list cr)))
24 \property Voice.crescendoText = #'((font-shape . italic) "cresc.")
25 \property Voice.crescendoSpanner = #'dashed-line
28 % ah, this is handy: maybe drop resetting of properties in
31 #(ly-export (make-event-chord (list rc)))
32 \property Voice.crescendoText \unset
33 \property Voice.crescendoSpanner \unset
37 #(ly-export (make-event-chord (list decr)))
39 \property Voice.decrescendoText = #"dim."
40 \property Voice.decrescendoSpanner = #'dashed-line
44 #(ly-export (make-event-chord (list rced)))
45 \property Voice.decrescendoText \unset
46 \property Voice.decrescendoSpanner \unset
51 cresc = \spanevent \start "crescendo"
52 endcresc = \spanevent \stop "crescendo"
56 % better name sustainstart/stop?
57 sustainUp = #(make-span-event 'SustainPedalEvent STOP)
59 unaCorda = #(make-span-event 'UnaCordaEvent START)
60 treCorde = #(make-span-event 'UnaCordaEvent STOP)
62 sostenutoDown = #(make-span-event 'SostenutoEvent START)
63 sostenutoUp = #(make-span-event 'SostenutoEvent STOP)
65 %crescpoco = \property Voice.crescendoText = "cresc. poco a poco"
66 %decresc = \property Voice.crescendoText = "decr."
67 %dim = \property Voice.crescendoText = "dim."