Mercurial > hg > amuse
changeset 114:956f4c6f8571
Added crotchet methods for implementations/midi and implementations/geerdes
darcs-hash:20070726114109-f76cc-be9dee7ebaacefde6c44ab214128f529c2ae4b11.gz
| author | David Lewis <d.lewis@gold.ac.uk> |
|---|---|
| date | Thu, 26 Jul 2007 12:41:09 +0100 |
| parents | 3ceaa5a08dc5 |
| children | cf198383852d |
| files | implementations/geerdes/methods.lisp implementations/midi/methods.lisp |
| diffstat | 2 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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