[Denemo-devel] [bug #28047] Pasting Oddities

[Richard Shann]

Follow-up Comment #2, bug #28047 (project denemo):

I have a prototype paste script using the latest git
I would like feedback on how it could be improved.

;;;;;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)


    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?28047>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/