[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Denemo-devel] [bug #28047] Pasting Oddities
From: |
Richard Shann |
Subject: |
[Denemo-devel] [bug #28047] Pasting Oddities |
Date: |
Sat, 21 Nov 2009 18:00:15 +0000 |
User-agent: |
Mozilla/5.0 (X11; U; Linux i686; en; rv:1.9.0.15) Gecko/20080528 Epiphany/2.22 |
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/