Mercurial > hg > amuse

diff implementations/gsharp/methods.lisp @ 198:3d4ea9a18040

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Staff checking for GSharp sigs
author David Lewis <d.lewis@gold.ac.uk>
date Wed, 16 Feb 2011 09:24:29 +0000
parents 22ac5ec1733c
children
line wrap: on
line diff
--- a/implementations/gsharp/methods.lisp	Wed Feb 16 09:19:12 2011 +0000
+++ b/implementations/gsharp/methods.lisp	Wed Feb 16 09:24:29 2011 +0000
@@ -109,6 +109,10 @@
           (make-standard-anchored-period now (* bar-duration 4))))
       (incf now (* bar-duration 4)))))
 
+(defun really-applicable-p (event signature-period)
+  (and (overlaps event signature-period)
+       (eq (gsharp::staff (note event)) (gsharp::staff (gsh-source signature-period)))))
+
 #+nil ;; There is no AMuSE equivalent to a clef.
 (defmethod get-applicable-clefs (anchored-period (composition gsharp-composition))
   (let ((clefs))