Mercurial > hg > amuse

diff implementations/midi/classes.lisp @ 249:bba5e8571b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Hack in linked-events for the midi package. Some refactoring of the constructors for this and geerdes might be helpful, since neither lend themselves to using initialize-instance for performing the linking.
author Jamie Forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:18 +0000
parents de60993404c1
children
line wrap: on
line diff
--- a/implementations/midi/classes.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/implementations/midi/classes.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -38,14 +38,16 @@
   ((channel :accessor %midi-message-channel :initarg :channel)
    (track :accessor %midi-message-track :initarg :track)))
 
-(defclass midi-pitched-event (standard-chromatic-pitched-event midi-message)
+(defclass midi-pitched-event (standard-chromatic-pitched-event
+			      linked-event midi-message)
   ((velocity :initarg :velocity
 	     :accessor %midi-pitched-event-velocity)
    (patch :initarg :patch
 	  :accessor %midi-pitched-event-patch))
   (:documentation "Adds MIDI information to chromatic-pitched-event"))
 
-(defclass midi-percussive-event (standard-percussive-event midi-message)
+(defclass midi-percussive-event (standard-percussive-event
+				 linked-event midi-message)
   ((velocity :initarg :velocity
 	     :accessor %midi-percussive-event-velocity)
    (patch :initarg :patch