[Denemo-devel] New Paste script

[Richard Shann]

This is my new script for pasting music in denemo.
The only real annoyance I know of is when you copy a whole measure and
you don't include the measure boundaries, it does not create a new
measure for you. I haven't explored all the idiosyncrasies...
Please test and vote whether it is better than the current built-in, as
I would like to replace it (i.e. use the same name).
Script follows
Richard
;;;;;;;;;;;;;;;;;;;; Paste
(d-PushPosition)
(let loop ((type #f) (staff 0) (count 0))
  (set! type (d-GetClipObjType staff count))
  (format #t "type is ~a staff ~a count ~a~%" type staff count)
   (cond 
    ((= type MEASUREBREAK)      
        (if (= staff 0)
            (d-AddMeasure))
        (loop type staff (1+ count)))
   ((= type STAFFBREAK)
           (d-PopPosition)
           (if (d-StaffDown)
               (begin 
                 (d-PushPosition)
                 (loop type (1+ staff) 0))))
    ((>= type 0)
     (d-PutClipObj staff count)
     (loop type staff (1+ count)))))
(d-PopPushPosition)
(d-PopPosition)
(d-RefreshDisplay)