comparison base/methods.lisp @ 33:d1010755f507

Large upload of local changes. Many additions, such as harmony and piece-level objects

darcs-hash:20070413100909-f76cc-a8aa8dfc07f438dc0c1a7c45cee7ace2ecc1e6a5.gz

   (%pitch-interval-span pitch-interval-designator))
 
 (defmethod duration ((period-designator period))
   (%period-interval period-designator))
 
+(defmethod (setf duration) ((value real) (period-designator period))
+  (setf (%period-interval period-designator) value))
+
 (defmethod timepoint ((moment-designator moment))
   (%moment-time moment-designator))
+
+(defmethod (setf timepoint) ((value real) (moment-designator moment))
+  (setf (%moment-time moment-designator) value))
 
 (defmethod beat-units-per-bar ((time-signature basic-time-signature))
   (%basic-time-signature-numerator time-signature))
 
 (defmethod beat-units ((time-signature basic-time-signature))

 (defmethod ends ((object1 anchored-period)
 		 (object2 anchored-period))
   (time= (cut-off object1) (cut-off object2)))
 
 ;; ...and
+
+(defmethod period= ((object1 anchored-period)
+		     (object2 anchored-period))
+  (and (time= object1 object2)
+       (duration= object1 object2)))
+(defmethod period= ((object1 floating-period)
+		    (object2 floating-period))
+  (duration= object1 object2))
 
 (defmethod period-intersection ((object1 anchored-period)
 				(object2 anchored-period))
   (cond
     ((disjoint object1 object2)

 	    (duration (duration (time- (if (time> (cut-off object2) (cut-off object1))
 					   (cut-off object1)
 					   (cut-off object2))
 				       start))))
        (make-anchored-period (timepoint start) duration)))))
-			   
-
-
-      
+
+