# HG changeset patch
# User d.lewis <d.lewis@gold.ac.uk>
# Date 1199193735 0
# Node ID 4cb3ec07831f4dc2636e0aaa186272647d7ff3a5
# Parent  db4acf840bf05ec489f8e2ec004f96fcbbba2937
Finish moving get-applicable from amuse-geerdes

darcs-hash:20080101132215-40ec0-ce1cb48a47fc7a5a7e2e51ebf0d74d572771c7fb.gz

diff -r db4acf840bf0 -r 4cb3ec07831f implementations/geerdes/methods.lisp
--- a/implementations/geerdes/methods.lisp	Tue Jan 01 12:42:12 2008 +0000
+++ b/implementations/geerdes/methods.lisp	Tue Jan 01 13:22:15 2008 +0000
@@ -150,23 +150,3 @@
 (defmethod crotchet ((object geerdes-object))
   (make-standard-period 1))
 
-(defmethod get-applicable-time-signatures ((anchored-period anchored-period)
-					   (composition midi-composition))
-  (%find-overlapping anchored-period (time-signatures composition)))
-(defmethod get-applicable-tempi ((anchored-period anchored-period)
-				 (composition midi-composition))
-  (%find-overlapping anchored-period (tempi composition)))
-(defmethod get-applicable-key-signatures ((anchored-period anchored-period)
-					  (composition midi-composition))
-  (%find-overlapping anchored-period (key-signatures composition)))
-
-(defparameter *stuff* nil)
-(defun %find-overlapping (period1 period-list)
-  (let ((result-list))
-    (setf *stuff* (cons period1 period-list))
-    (dolist (period2 period-list result-list)
-      (cond
-	((time>= period2 (cut-off period1))
-	 (return-from %find-overlapping (reverse result-list)))
-	((time> (cut-off period2) period1)
-	 (push period2 result-list))))))
\ No newline at end of file