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)