# HG changeset patch
# User m.pearce <m.pearce@gold.ac.uk>
# Date 1165331814 0
# Node ID ccb65e2f73825108a4d572d8c4e4711a818afea5
# Parent  f6c08ad94c8a6d09e195504deca6c73e93df8f47
classes.lisp: make frequency not inherit from pitch.

darcs-hash:20061205151654-aa3d6-d269eda37acd8a1493237b6741ce23b7e0db007c.gz

diff -r f6c08ad94c8a -r ccb65e2f7382 classes.lisp
--- 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) ())