Mercurial > hg > amuse

changeset 167:4cb3ec07831f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Finish moving get-applicable from amuse-geerdes darcs-hash:20080101132215-40ec0-ce1cb48a47fc7a5a7e2e51ebf0d74d572771c7fb.gz
author d.lewis <d.lewis@gold.ac.uk>
date Tue, 01 Jan 2008 13:22:15 +0000
parents db4acf840bf0
children f1d0ea63581c
files implementations/geerdes/methods.lisp
diffstat 1 files changed, 0 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- 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