1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
;;;;InsertWholeMeasureRest
(let ((duration (d-GetPrevailingDuration)))
(if (or (None?) (zero? (d-GetDurationInTicks)))
(begin
(DenemoWholeMeasureRestCommand)
(d-MoveCursorRight)
(d-GetPrevailingDuration duration))
(begin
(if (d-MoveToMeasureRight)
(if (or (None?) (zero? (d-GetDurationInTicks)))
(DenemoWholeMeasureRestCommand)
(begin
(d-MoveToMeasureLeft)
(let loop ()
(if (d-Directive-chord? DenemoWholeMeasureRestTag)
(DenemoWholeMeasureRestCommand)
(if (d-NextObjectInMeasure)
(loop))))))
(begin
(d-AppendMeasureAllStaffs)
(d-MoveCursorRight)
(DenemoWholeMeasureRestCommand)
(d-GetPrevailingDuration duration)
(d-MoveCursorRight))))))
|
