Mercurial > hg > amuse
changeset 283:9d3a016dedf9
add standard-diatonic-pitched-event class to base
Ignore-this: 3f48febb4e5e787a318d6440e7f4ba35
darcs-hash:20090524160717-16a00-4c121b114770e551a5b93775dedcca50b4aada4d.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Sun, 24 May 2009 17:07:17 +0100 |
| parents | 1499e5d1b8a7 |
| children | 435834b86119 |
| files | base/classes.lisp base/package.lisp |
| diffstat | 2 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/base/classes.lisp Sun May 24 16:22:50 2009 +0100 +++ b/base/classes.lisp Sun May 24 17:07:17 2009 +0100 @@ -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 Sun May 24 16:22:50 2009 +0100 +++ b/base/package.lisp Sun May 24 17:07:17 2009 +0100 @@ -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