# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1298546598 0
# Node ID fb27101cde2bf5243013a2e7209c6348ae67bb14
# Parent  ead979ad3b280fd606823af3e777142a145e5b2b
add composition slot to event (amuse base)

Ignore-this: ef4ef09ad8e7c134e7e3cb5b70345b34

darcs-hash:20090828163617-16a00-eb532b34b175c446e804d90785ef18367ae85971.gz

committer: Jamie Forth <j.forth@gold.ac.uk>

diff -r ead979ad3b28 -r fb27101cde2b base/classes.lisp
--- a/base/classes.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/base/classes.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -80,6 +80,11 @@
 
 (defclass event (anchored-period) ()
   (:documentation "Notelike object"))
+(defclass linked-event (amuse-object)
+  ((composition :reader composition
+		:writer %set-composition
+		:initarg :composition))
+  (:documentation "This provides a composition slot for events."))
 (defclass pitched-event (event pitch) ()
   (:documentation "Event with pitch information"))
 (defclass standard-pitched-event (pitched-event
diff -r ead979ad3b28 -r fb27101cde2b base/package.lisp
--- a/base/package.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/base/package.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -8,6 +8,8 @@
 	   #:monody
            #:standard-monody
 	   #:identifier
+	   #:composition
+	   #:%set-composition
 	   #:composition-identifier
 	   #:constituent-identifier
 	   #:moment
@@ -23,6 +25,7 @@
 	   #:diatonic-pitch   
 	   #:chromatic-pitch-interval
            #:diatonic-pitch-interval
+	   #:linked-event
 	   #:pitched-event
 	   #:standard-pitched-event
 	   #:chromatic-pitched-event