Mercurial > hg > amuse

diff base/classes.lisp @ 213:328114b61465

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add standard-diatonic-pitched-event class to base Ignore-this: 3f48febb4e5e787a318d6440e7f4ba35 darcs-hash:20090524160717-16a00-4c121b114770e551a5b93775dedcca50b4aada4d.gz committer: Jamie Forth <j.forth@gold.ac.uk>
author j.forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:18 +0000
parents 725ce7ce77ba
children d8f650e3796e
line wrap: on
line diff
--- a/base/classes.lisp	Thu Feb 24 11:23:17 2011 +0000
+++ b/base/classes.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -82,6 +82,12 @@
 					    standard-anchored-period) ()
   (:documentation "Event with chromatic pitch information and
   standard-period"))
+(defclass diatonic-pitched-event (pitched-event diatonic-pitch) ()
+  (:documentation "Event with diatonic pitch information"))
+(defclass standard-diatonic-pitched-event (diatonic-pitched-event
+					   standard-anchored-period) ()
+  (:documentation "Event with diatonic pitch information and
+  standard-period"))
 (defclass percussive-event (event) ()
   (:documentation "Unpitched percussion Event. There's an issue
 with this name - is there a reason why this is unpitched