Mercurial > hg > amuse
changeset 45:0f31919a855d
Implement and export KEY-SIGNATURE-MODE, export {MAKE-,}MIDI-KEY-SIGNATURE.
darcs-hash:20070614181742-aa3d6-8a81a04b3df6db990c71a8aef653b69249e331c8.gz
| author | m.pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Thu, 14 Jun 2007 19:17:42 +0100 |
| parents | 085c1728480c |
| children | 34fb42cba5b9 |
| files | base/generics.lisp base/methods.lisp base/package.lisp |
| diffstat | 3 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/base/generics.lisp Thu Jun 14 17:02:42 2007 +0100 +++ b/base/generics.lisp Thu Jun 14 19:17:42 2007 +0100 @@ -65,6 +65,7 @@ (t (/ 4 (beat-units ts)))))) (defgeneric key-signature-sharps (key-signature)) +(defgeneric key-signature-mode (ks)) (defgeneric bpm (tempo)) ;; in bpm (defgeneric microseconds-per-crotchet (tempo)
--- a/base/methods.lisp Thu Jun 14 17:02:42 2007 +0100 +++ b/base/methods.lisp Thu Jun 14 19:17:42 2007 +0100 @@ -33,6 +33,9 @@ (defmethod key-signature-sharps ((key-signature basic-key-signature)) (%basic-key-signature-sharp-count key-signature)) +(defmethod key-signature-mode ((ks midi-key-signature)) + (%midi-key-signature-mode ks)) + (defmethod bpm ((tempo tempo)) (%tempo-bpm tempo))
--- a/base/package.lisp Thu Jun 14 17:02:42 2007 +0100 +++ b/base/package.lisp Thu Jun 14 19:17:42 2007 +0100 @@ -25,6 +25,7 @@ #:basic-time-signature #:key-signature #:basic-key-signature + #:midi-key-signature #:tempo #:get-composition #:time-signatures @@ -45,6 +46,7 @@ #:time-signature-denominator #:tactus-duration #:key-signature-sharps + #:key-signature-mode #:bpm #:microseconds-per-crotchet #:anchored-period @@ -105,5 +107,6 @@ #:make-chromatic-pitched-event #:make-basic-time-signature #:make-basic-key-signature + #:make-midi-key-signature #:make-tempo ))