Mercurial > hg > amuse

comparison base/constructors.lisp @ 105:7f139c81752e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rename make-pitch-interval to make-chromatic-pitch-interval darcs-hash:20070726092952-dc3a5-5a59469fbb77e74dca807e5fb277c6342bb0891b.gz
author c.rhodes <c.rhodes@gold.ac.uk>
date Thu, 26 Jul 2007 10:29:52 +0100
parents 4e1538df0d10
children 8528c316fbcc
comparison
equal deleted inserted replaced
104:67f96832cfb0 105:7f139c81752e
30 :octave octave)) 30 :octave octave))
31 31
32 (defun make-mips-pitch (cp mp) 32 (defun make-mips-pitch (cp mp)
33 (make-instance 'mips-pitch :cp cp :mp mp)) 33 (make-instance 'mips-pitch :cp cp :mp mp))
34 34
35 (defun make-pitch-interval (span) 35 (defun make-chromatic-pitch-interval (span)
36 (make-instance 'pitch-interval :span span)) 36 (make-instance 'pitch-interval :span span))
37 37
38 ;; Events 38 ;; Events
39 39
40 (defun make-chromatic-pitched-event (pitch-number onset duration) 40 (defun make-chromatic-pitched-event (pitch-number onset duration)