comparison base/classes.lisp @ 244:76a695fe294f

Add floating constituent classes.

Ignore-this: f3afc46c68f8ab3b1c9c482919a7378f

darcs-hash:20100604153709-16a00-5ec4568ef64401cb0cc67a99246a125367ce4734.gz

committer: Jamie Forth <[e-mail]>

 (defclass standard-tempo-period (standard-tempo
 				 tempo-period
 				 standard-anchored-period)
   ()
   (:documentation "Tempo associated with a standard-anchored-period"))
-   
-;; collections of more than one event
+
+
+;;;=====================================================================
+;;; Constituents: collections of more than one event
+;;;=====================================================================
 
 (defclass constituent (anchored-period) ()
   (:documentation "Base class for constituents"))
 
 (defclass standard-constituent (constituent standard-anchored-period) ()

 (defclass monody (composition) ()
   (:documentation "Class for indicating suitability for analysis
   requiring a monody"))
 
 (defclass standard-monody (monody standard-composition) ())
+
+;; Floating Constituents
+
+(defclass floating-constituent (period) ()
+  (:documentation "Base class for non-anchored constituents"))
+
+(defclass standard-floating-constituent (floating-constituent
+					 standard-period) ()
+  (:documentation "Base class for floating constituents using standard
+  time representation"))
+
+(defclass time-ordered-floating-constituent (floating-constituent
+					     list-slot-sequence)
+  ;; this won't work if lisp implementation doesn't support extensible
+  ;; sequences.
+  ())
+
+(defclass standard-time-ordered-floating-constituent
+    (time-ordered-floating-constituent standard-floating-constituent)
+  ;; this won't work if lisp implementation doesn't support extensible
+  ;; sequences.
+  ())
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; Experimental:
 ;;