Update of /project/fomus/cvsroot/fomus In directory common-lisp.net:/tmp/cvs-serv13174
Modified Files: split.lisp util.lisp Log Message: Testing/bug fixes Date: Sun Jul 31 07:39:32 2005 Author: dpsenicka
Index: fomus/split.lisp diff -u fomus/split.lisp:1.8 fomus/split.lisp:1.9 --- fomus/split.lisp:1.8 Sun Jul 31 01:48:55 2005 +++ fomus/split.lisp Sun Jul 31 07:39:32 2005 @@ -477,7 +477,11 @@ (not (find (event-off e2) (event-nomerge e1))) (equal (list (event-dur* e1) (sort-marks (event-marks e1)) (event-tup e1)) (list (event-dur* e2) (sort-marks (event-marks e2)) (event-tup e2)))) - (cons (copy-event e1 :dur (* (event-dur* e1) 2)) + (cons (copy-event e1 :dur (* (event-dur* e1) 2) + :tup (cons (when (car (event-tup e1)) + (cons (* (caar (event-tup e1)) 2) + (cdr (event-tup e1)))) + (cdr (event-tup e1)))) (delete e1 (delete e2 es))) es))) (when (or (initdivp rl) (basesplitp rl))
Index: fomus/util.lisp diff -u fomus/util.lisp:1.7 fomus/util.lisp:1.8 --- fomus/util.lisp:1.7 Sun Jul 31 01:48:55 2005 +++ fomus/util.lisp Sun Jul 31 07:39:32 2005 @@ -1,7 +1,7 @@ ;; -*- lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;************************************************************************************************** -;; FOMUS v0.1.0 +;; FOMUS ;; util.lisp ;;**************************************************************************************************
@@ -344,7 +344,8 @@ (let ((du (event-dur* event) ) (u (car (event-tup event)))) (split-event event off - (when u (cons (* (first u) (/ (- off (event-off event)) du)) (rest u))) (cdr (event-tup event)) + (when u (cons (* (first u) (/ (- off (event-off event)) du)) (rest u))) + (cdr (event-tup event)) (when u (cons (* (first u) (/ (- (event-endoff event) off) du)) (rest u))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;