Mercurial > hg > amuse
changeset 222:ead979ad3b28
add chromatic-pitch reader method
Ignore-this: 1aba35b7d196e0994a817609337746e1
darcs-hash:20090828145217-16a00-312e63170f50f0bf2834b8959a72e5c857cba9b8.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 | 317fe3126c6c |
| children | fb27101cde2b |
| files | base/classes.lisp |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/base/classes.lisp Thu Feb 24 11:23:18 2011 +0000 +++ b/base/classes.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -53,9 +53,12 @@ (defclass frequency-pitch (pitch) ()) (defclass chromatic-pitch (pitch) - ((number :accessor %chromatic-pitch-number :initarg :number)) - (:documentation "A pitch represented as a number, with - chromatic pitches having distinct values.")) + ((number :accessor %chromatic-pitch-number + :reader chromatic-pitch-number :initarg :number)) + (:documentation "A pitch represented as a number, with chromatic + pitches having distinct values. FIXME: We should not be using the cl + symbol NUMBER.")) + (defclass diatonic-pitch (pitch) ((cp :initarg :cp :accessor %p-pc :reader diatonic-pitch-cp) (mp :initarg :mp :accessor %p-pm :reader diatonic-pitch-mp))