Mercurial > hg > amuse
changeset 213:328114b61465
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 | 619194befdd4 |
| children | 545f80a73f03 |
| files | base/classes.lisp base/package.lisp |
| diffstat | 2 files changed, 11 insertions(+), 3 deletions(-) [+] |
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
--- a/base/package.lisp Thu Feb 24 11:23:17 2011 +0000 +++ b/base/package.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -8,8 +8,8 @@ #:monody #:standard-monody #:identifier - #:composition-identifier - #:constituent-identifier + #:composition-identifier + #:constituent-identifier #:moment #:period #:anchored-period @@ -27,6 +27,8 @@ #:standard-pitched-event #:chromatic-pitched-event #:standard-chromatic-pitched-event + #:diatonic-pitched-event + #:standard-diatonic-pitched-event #:percussive-event #:standard-percussive-event #:time-signature @@ -44,7 +46,7 @@ #:standard-tempo #:standard-tempo-period #:get-composition - #:get-constituents + #:get-constituents #:time-signatures #:tempi #:key-signatures