comparison base/methods.lisp @ 105:7f139c81752e

rename make-pitch-interval to make-chromatic-pitch-interval

darcs-hash:20070726092952-dc3a5-5a59469fbb77e74dca807e5fb277c6342bb0891b.gz

 		    (object2 pitch-designator)) ;?
   (pitch+ object2 object1))
 
 (defmethod pitch+ ((object1 pitch-interval)
 		   (object2 pitch-interval))
-  (make-pitch-interval (+ (span object1)
-			  (span object2))))
+  (make-chromatic-pitch-interval (+ (span object1) (span object2))))
 
 (defmethod pitch- ((object1 pitch-designator)
 		   (object2 pitch-designator))
-  (make-pitch-interval (- (midi-pitch-number object1)
-			  (midi-pitch-number object2))))
+  (make-chromatic-pitch-interval 
+   (- (midi-pitch-number object1) (midi-pitch-number object2))))
 
 (defmethod pitch- ((object1 pitch-designator)
 		   (object2 pitch-interval))
-  (make-chromatic-pitch (- (midi-pitch-number object1)
-			   (span object2))))
+  (make-chromatic-pitch (- (midi-pitch-number object1) (span object2))))
 
 (defmethod pitch- ((object1 pitch-interval)
 		   (object2 pitch-interval))
-  (make-pitch-interval (- (span object1)
-			  (span object2))))
+  (make-chromatic-pitch-interval (- (span object1) (span object2))))
 
 (defmethod pitch- ((object1 pitch-interval)
 		   (object2 pitch-designator))
   (error 'undefined-action :operation 'pitch-
 	 :datatype (list (class-of object1) (class-of object2))))

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