3 startGroup = #(make-span-event 'NoteGroupingEvent START)
4 stopGroup = #(make-span-event 'NoteGroupingEvent STOP)
7 cr = #(make-span-event 'CrescendoEvent START)
8 decr = #(make-span-event 'DecrescendoEvent START)
9 enddecr = #(make-span-event 'DecrescendoEvent STOP)
10 endcr = #(make-span-event 'CrescendoEvent STOP)
12 startTextSpan = #(make-span-event 'TextSpanEvent START)
13 stopTextSpan = #(make-span-event 'TextSpanEvent STOP)
18 #(ly:export (make-event-chord (list cr)))
19 \set crescendoText = \markup { \italic "cresc." }
20 \set crescendoSpanner = #'dashed-line
25 #(ly:export (make-event-chord (list decr)))
27 \set decrescendoText = \markup { \italic "dim." }
28 \set decrescendoSpanner = #'dashed-line
32 #(ly:export (make-event-chord (list enddecr)))
33 \unset decrescendoText
34 \unset decrescendoSpanner
37 % ah, this is handy: maybe drop resetting of properties in
40 #(ly:export (make-event-chord (list endcr)))
42 \unset crescendoSpanner
48 \set crescendoText = \markup { \italic "cresc." }
49 \set crescendoSpanner = #'dashed-line
52 \set crescendoText = \markup { \italic "decr." }
53 \set crescendoSpanner = #'dashed-line
56 \set crescendoText = \markup { \italic "dim." }
57 \set crescendoSpanner = #'dashed-line
61 \unset crescendoSpanner
66 % better name sustainstart/stop?
67 sustainUp = #(make-span-event 'SustainEvent STOP)
68 sustainDown = #(make-span-event 'SustainEvent START)
70 unaCorda = #(make-span-event 'UnaCordaEvent START)
71 treCorde = #(make-span-event 'UnaCordaEvent STOP)
73 sostenutoDown = #(make-span-event 'SostenutoEvent START)
74 sostenutoUp = #(make-span-event 'SostenutoEvent STOP)
76 %crescpoco = \set crescendoText = "cresc. poco a poco"
77 %decresc = \set crescendoText = "decr."
78 %dim = \set crescendoText = "dim."
81 % for regression testing purposes.
83 #(def-music-function (location l r) (pair? pair?)
84 (let* ((f (check-quant-callbacks l r)))
87 \once \override Beam #'position-callbacks = $f
92 % for regression testing purposes.
94 #(def-music-function (location comp) (procedure?)
95 (let* ((f (check-slope-callbacks comp)))
98 \once \override Beam #'position-callbacks = $f