Mercurial > hg > amuse
comparison base/constructors.lisp @ 40:5bec705db9d6
Move midi-key-signature from implementations/midi to base/
darcs-hash:20070606134940-aa3d6-69b8a531ef8ae393234d065ff6105ed9ecd18434.gz
| author | m.pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Wed, 06 Jun 2007 14:49:40 +0100 |
| parents | d1010755f507 |
| children | 4e1538df0d10 |
comparison
equal
deleted
inserted
replaced
| 39:262aa7a3d500 | 40:5bec705db9d6 |
|---|---|
| 51 (make-instance 'basic-key-signature | 51 (make-instance 'basic-key-signature |
| 52 :sharp-count sharp-count | 52 :sharp-count sharp-count |
| 53 :time onset | 53 :time onset |
| 54 :interval duration)) | 54 :interval duration)) |
| 55 | 55 |
| 56 (defun make-midi-key-signature (sharp-count mode onset duration) | |
| 57 (make-instance 'midi-key-signature | |
| 58 :sharp-count sharp-count | |
| 59 :mode mode | |
| 60 :time onset | |
| 61 :interval duration)) | |
| 62 | |
| 56 (defun make-tempo (bpm onset duration) | 63 (defun make-tempo (bpm onset duration) |
| 57 (make-instance 'tempo | 64 (make-instance 'tempo |
| 58 :bpm bpm | 65 :bpm bpm |
| 59 :time onset | 66 :time onset |
| 60 :interval duration)) | 67 :interval duration)) |