[fomus-cvs] CVS update: fomus/split.lisp fomus/util.lisp

[David Psenicka]

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