# HG changeset patch
# User David Lewis <d.lewis@gold.ac.uk>
# Date 1185450069 -3600
# Node ID 956f4c6f857104b40eeaf777d269c689574986cb
# Parent  3ceaa5a08dc5f6cca85facb75e19fed1c7bec6f9
Added crotchet methods for implementations/midi and implementations/geerdes

darcs-hash:20070726114109-f76cc-be9dee7ebaacefde6c44ab214128f529c2ae4b11.gz

diff -r 3ceaa5a08dc5 -r 956f4c6f8571 implementations/geerdes/methods.lisp
--- a/implementations/geerdes/methods.lisp	Thu Jul 26 17:12:41 2007 +0100
+++ b/implementations/geerdes/methods.lisp	Thu Jul 26 12:41:09 2007 +0100
@@ -144,3 +144,6 @@
   (:method (e) (declare (ignore e)) nil))
 (defmethod lead-vocalp ((event geerdes-pitched-event))
   (= (midi-channel event) 4))
+
+(defmethod crotchet ((identifier geerdes-identifier))
+  (make-instance 'floating-period :interval 1))
\ No newline at end of file
diff -r 3ceaa5a08dc5 -r 956f4c6f8571 implementations/midi/methods.lisp
--- a/implementations/midi/methods.lisp	Thu Jul 26 17:12:41 2007 +0100
+++ b/implementations/midi/methods.lisp	Thu Jul 26 12:41:09 2007 +0100
@@ -129,3 +129,12 @@
   (>= (/ (midi-velocity event1)
 	 (midi-velocity event2))
       2))
+
+(defmethod crotchet ((event midi-message))
+  (make-instance 'floating-period :interval 1))
+
+(defmethod crotchet ((composition midi-composition))
+  (make-instance 'floating-period :interval 1))
+
+(defmethod crotchet ((identifier midifile-identifier))
+  (make-instance 'floating-period :interval 1))
\ No newline at end of file