1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
;SplitMeasure:splits a measure
;leave cursor at the beginning of the new measure (after the barline)
(let split ()
(define count -1)
(d-PushClipboard)
(d-UnsetMark)
(d-SetMark)
(if (d-MeasureRight)
(begin
(d-CursorLeft)
(d-Cut)
(d-CursorRight)
(d-InsertMeasureBefore))
(begin
(d-GoToEnd)
(d-Cut)
(d-AppendMeasure)
(d-MoveToMeasureRight)))
(d-UnsetMark)
(RepeatUntilFail (lambda () (set! count (1+ count)) (d-PutClipObj 0 count)))
(GoToMeasureBeginning)
(d-PopClipboard))
|
