Mercurial > hg > amuse
diff 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 |
line wrap: on
line diff
--- a/base/constructors.lisp Mon Jul 16 17:33:37 2007 +0100 +++ b/base/constructors.lisp Tue Jul 17 13:02:06 2007 +0100 @@ -29,6 +29,9 @@ :accidental accidental :octave octave)) +(defun make-mips-pitch (cp mp) + (make-instance 'mips-pitch :cp cp :mp mp)) + (defun make-pitch-interval (span) (make-instance 'pitch-interval :span span))