Mercurial > hg > amuse

diff base/generics.lisp @ 67:8b31d54c95be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
base/: {TIME-SIGNATURE,KEY-SIGNATURE,TEMPO}-EQUAL moved here from implementations/mtp/ darcs-hash:20070706093228-c0ce4-9ca0951f98303474fb5da95fc20ebdb2c3fa4db0.gz
author Marcus Pearce <m.pearce@gold.ac.uk>
date Fri, 06 Jul 2007 10:32:28 +0100
parents 0f31919a855d
children 9960645779f0
line wrap: on
line diff
--- a/base/generics.lisp	Wed Jul 04 12:00:15 2007 +0100
+++ b/base/generics.lisp	Fri Jul 06 10:32:28 2007 +0100
@@ -221,15 +221,21 @@
 (defgeneric get-applicable-time-signatures (anchored-period composition)
   (:method (ap c) (find-overlapping ap (time-signatures c))))
 
+(defgeneric time-signature-equal (ts1 ts2))
+
 ;;; Tempo 
 
 (defgeneric get-applicable-tempi  (anchored-period composition)
   (:method (ap c) (find-overlapping ap (tempi c))))
 
+(defgeneric tempo-equal (t1 t2))
+
 ;;; Tonality (Key Signature / Mode) 
 
 (defgeneric get-applicable-key-signatures (object1 object2))
 
+(defgeneric key-signature-equal (ks1 ks2))
+
 ;;; Dynamics 
 ;;; Voice 
 ;;; Boundary Strength (phrasing)