comparison base/methods.lisp @ 89:0b4c624910f1

base/: basic protocol for accessing monodies

darcs-hash:20070723140651-c0ce4-2c828ea984eb92f0ccb73866a6a496131c8fa736.gz

 (cl:in-package #:amuse) 
+
+;;; monody 
+
+(defmethod ensure-monody ((m monody))
+  (let ((result t))
+    (dotimes (i (1- (length m)) result)
+      ;; assumes the events are time ordered which (since monody is a
+      ;; subclass of time-ordered-constituent) they ought to be. 
+      (let ((e1 (elt m i))
+            (e2 (elt m (1+ i))))
+        (unless (or (before e1 e2) (meets e1 e2))
+          (setf result nil))))))
 
 ;;; diatonic pitch 
 
 (defmethod octave ((dp diatonic-pitch))
   (%diatonic-pitch-octave dp))