Mercurial > hg > amuse
changeset 84:7ce34ccdcbda
implementations/mtp: implement ASA-PITCH-STRING for MTP-EVENTs
darcs-hash:20070717154211-c0ce4-ac78fbe5b1cc5ff2fa659783d6ff09925e04a645.gz
| author | Marcus Pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Tue, 17 Jul 2007 16:42:11 +0100 |
| parents | ae06767e84c5 |
| children | c81375b9304f |
| files | implementations/mtp/methods.lisp |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/mtp/methods.lisp Tue Jul 17 16:34:57 2007 +0100 +++ b/implementations/mtp/methods.lisp Tue Jul 17 16:42:11 2007 +0100 @@ -216,6 +216,9 @@ (defmethod diatonic-pitch ((e mtp-event)) (diatonic-pitch (mips-pitch e))) +(defmethod asa-pitch-string ((e mtp-event)) + (asa-pitch-string (mips-pitch e))) + #.(clsql:locally-enable-sql-reader-syntax) (defmethod middle-c ((e mtp-event)) (let ((cpitch (car (clsql:select [midc] :from [dataset]