# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1243181237 -3600
# Node ID 9d3a016dedf9b5dbe0a3ea3cad3683fd38a4a801
# Parent  1499e5d1b8a7bdc3d5a77a471417f41b51de7ec1
add standard-diatonic-pitched-event class to base

Ignore-this: 3f48febb4e5e787a318d6440e7f4ba35

darcs-hash:20090524160717-16a00-4c121b114770e551a5b93775dedcca50b4aada4d.gz

diff -r 1499e5d1b8a7 -r 9d3a016dedf9 base/classes.lisp
--- 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
diff -r 1499e5d1b8a7 -r 9d3a016dedf9 base/package.lisp
--- 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