1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
;;;ExtendSlur
(if (and (d-IsSlurEnd) (not (d-IsSlurStart)))
(begin
(d-ToggleEndSlur)
(d-NextChord)
(d-ToggleEndSlur)
(if (not (d-IsSlurEnd))
(d-ToggleEndSlur)));;that is, either put the end slur back or put it on the next chord
(begin
(if (d-IsSlurStart)
(begin
(d-NextChord)
(d-ToggleEndSlur))
(if (d-PrevChord)
(if (d-IsSlurEnd)
(begin
(d-ToggleEndSlur)
(d-NextChord)
(d-ToggleEndSlur))
(if (d-IsSlurStart)
(begin
(d-NextChord)
(d-ToggleEndSlur))
(d-NextChord)))))))
|
