1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
;;CreateTripletSlurred
(let ((nonprinting (MidiInput?)))
(if (and nonprinting (Appending?))
(begin
(d-MoveCursorLeft)
(if (Music?)
(let ((duration (d-GetNoteBaseDuration)))
(d-StartTriplet)
(d-MoveCursorRight)
(d-ToggleBeginSlur)
(eval-string (string-append "(d-" (number->string duration) ")"))
(if (and nonprinting (not (d-GetMarkedMidiNote)))
(d-SetNonprinting))
(eval-string (string-append "(d-" (number->string duration) ")"))
(if (and nonprinting (not (d-GetMarkedMidiNote)))
(d-SetNonprinting))
(d-ToggleEndSlur)
(d-PlayMidiNote 53 80 9 10)
(d-EndTuplet))
(begin
(d-MoveCursorRight)
(d-ToggleTripleting))))
(d-ToggleTripleting)))
|
