[gsharp-cvs] CVS gsharp

[rstrandh]

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv10738

Modified Files:
	play.lisp 
Log Message:
Improved midi-rendering of tied notes.
(thanks to Christophe Rhodes)


--- /project/gsharp/cvsroot/gsharp/play.lisp	2006/02/14 18:16:03	1.3
+++ /project/gsharp/cvsroot/gsharp/play.lisp	2006/02/28 23:49:18	1.4
@@ -24,13 +24,13 @@
 				     :time time
 				     :status (+ #x90 channel)
 				     :key (midi-pitch note) :velocity 100))
-		    (notes element))
+		    (remove-if #'tie-left (notes element)))
 	    (mapcar (lambda (note)
 		      (make-instance 'note-off-message
 				     :time (+ time (* 128 (duration element)))
 				     :status (+ #x80 channel)
 				     :key (midi-pitch note) :velocity 100))
-		    (notes element)))))
+		    (remove-if #'tie-right (notes element))))))
 
 (defun events-from-bar (bar time channel)
   (mapcan (lambda (element)