Mercurial > hg > amuse

diff base/charm/classes.lisp @ 255:f1e6d10fdb11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
pitched and unpitched Charm event constituent classes
author Jamie Forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:19 +0000
parents b5ffec94ae6d
children 5090d02f7a83
line wrap: on
line diff
--- a/base/charm/classes.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/base/charm/classes.lisp	Thu Feb 24 11:23:19 2011 +0000
@@ -115,3 +115,14 @@
   ()
   (:documentation "Base class for constituents using standard time
    representation."))
+
+(defclass standard-charm-pitched-event-constituent
+    (standard-charm-event-constituent)
+  ()
+  (:documentation "Base class for constituents using standard time
+  representation containing only pitched events."))
+
+(defclass standard-charm-unpitched-event-constituent (standard-charm-event-constituent)
+  ()
+  (:documentation "Base class for constituents using standard time
+   representation containing only unpitched events."))