Mercurial > hg > amuse
comparison base/constructors.lisp @ 81:4e1538df0d10
base/: add an implementation of diatonic pitch.
darcs-hash:20070717120206-c0ce4-b18278ab07116658e58839c4fd18972508da6658.gz
| author | Marcus Pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Tue, 17 Jul 2007 13:02:06 +0100 |
| parents | 5bec705db9d6 |
| children | 7f139c81752e |
comparison
equal
deleted
inserted
replaced
| 80:9f2282a2644e | 81:4e1538df0d10 |
|---|---|
| 26 (defun make-diatonic-pitch (name accidental octave) | 26 (defun make-diatonic-pitch (name accidental octave) |
| 27 (make-instance 'diatonic-pitch | 27 (make-instance 'diatonic-pitch |
| 28 :name name | 28 :name name |
| 29 :accidental accidental | 29 :accidental accidental |
| 30 :octave octave)) | 30 :octave octave)) |
| 31 | |
| 32 (defun make-mips-pitch (cp mp) | |
| 33 (make-instance 'mips-pitch :cp cp :mp mp)) | |
| 31 | 34 |
| 32 (defun make-pitch-interval (span) | 35 (defun make-pitch-interval (span) |
| 33 (make-instance 'pitch-interval :span span)) | 36 (make-instance 'pitch-interval :span span)) |
| 34 | 37 |
| 35 ;; Events | 38 ;; Events |