# HG changeset patch
# User David Lewis <d.lewis@gold.ac.uk>
# Date 1185558457 -3600
# Node ID 997bed70ef288d06d6d84a337c35393cfbbf79e8
# Parent  4198b52e612b6be0cb9e62658f2057b717e95bbb
More documentation

darcs-hash:20070727174737-f76cc-47d85624f415f602bd6ae7a4d5d69f46e51c52ed.gz

diff -r 4198b52e612b -r 997bed70ef28 base/classes.lisp
--- a/base/classes.lisp	Fri Jul 27 15:21:54 2007 +0100
+++ b/base/classes.lisp	Fri Jul 27 18:47:37 2007 +0100
@@ -65,10 +65,16 @@
 
 ;; events
 
-(defclass event (anchored-period) ())
-(defclass pitched-event (event pitch-designator) ())
-(defclass chromatic-pitched-event (pitched-event chromatic-pitch) ())
-(defclass percussive-event (event) ())
+(defclass event (anchored-period) ()
+  (:documentation "Notelike object"))
+(defclass pitched-event (event pitch-designator) ()
+  (:documentation "Event with pitch information"))
+(defclass chromatic-pitched-event (pitched-event chromatic-pitch) ()
+  (:documentation "Event with chromatic pitch information"))
+(defclass percussive-event (event) ()
+  (:documentation "Unpitched percussion Event. Is there a reason why
+this is unpitched necessarily, or why I'm not counting piano, etc in
+this? Perhaps what I mean is that it should be renamed?"))
 
 ;;; Range-based `constituents'
 ;; Whilst these are all constituents in the CHARM sense, their