Mercurial > hg > amuse
changeset 13:ccb65e2f7382
classes.lisp: make frequency not inherit from pitch.
darcs-hash:20061205151654-aa3d6-d269eda37acd8a1493237b6741ce23b7e0db007c.gz
| author | m.pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Tue, 05 Dec 2006 15:16:54 +0000 |
| parents | f6c08ad94c8a |
| children | 2af5e4f825a8 |
| files | classes.lisp |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/classes.lisp Tue Dec 05 12:35:26 2006 +0000 +++ b/classes.lisp Tue Dec 05 15:16:54 2006 +0000 @@ -23,14 +23,11 @@ ;; pitch-related classes +(defclass frequency () ()) + (defclass pitch (pitch-designator) ()) (defclass chromatic-pitch (pitch) ()) (defclass diatonic-pitch (pitch) ()) -(defclass frequency (pitch) - ;; I'm having serious doubts about this - frequency, `real'-time and - ;; other non- or partially symbolic elements will probably want to be - ;; expressed differently. - ()) (defclass pitch-interval (pitch-interval-designator) ()) @@ -38,4 +35,4 @@ (defclass event (anchored-time-interval-designator) ()) (defclass pitched-event (event pitch-designator) ()) -(defclass percussive-event (event) ()) \ No newline at end of file +(defclass percussive-event (event) ())