# HG changeset patch
# User David Lewis <d.lewis@gold.ac.uk>
# Date 1297848269 0
# Node ID 3d4ea9a180402829acfa812c5c215e880754b9ba
# Parent  22ac5ec1733c281d3b0091c679520b19c28940d3
Staff checking for GSharp sigs

diff -r 22ac5ec1733c -r 3d4ea9a18040 implementations/gsharp/methods.lisp
--- 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))