Mercurial > hg > amuse
comparison base/constructors.lisp @ 282:1499e5d1b8a7
fix make-chromatic-pitched-event constructor
Ignore-this: 93298c4a64a4a65dc948f8473c92a9c8
darcs-hash:20090524152250-16a00-295d43f8c2d16089196ab223b43264ae55f5620b.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Sun, 24 May 2009 16:22:50 +0100 |
| parents | 9b152d515275 |
| children | 51389b0db7fe |
comparison
equal
deleted
inserted
replaced
| 281:4a03a1478c02 | 282:1499e5d1b8a7 |
|---|---|
| 59 (make-instance 'diatonic-pitch-interval :span (list cspan mspan))) | 59 (make-instance 'diatonic-pitch-interval :span (list cspan mspan))) |
| 60 | 60 |
| 61 ;; Events | 61 ;; Events |
| 62 | 62 |
| 63 (defun make-chromatic-pitched-event (pitch-number onset duration) | 63 (defun make-chromatic-pitched-event (pitch-number onset duration) |
| 64 (make-instance 'chromatic-pitched-event | 64 (make-instance 'standard-chromatic-pitched-event |
| 65 :number pitch-number | 65 :number pitch-number |
| 66 :time onset | 66 :time onset |
| 67 :interval duration)) | 67 :interval duration)) |
| 68 | 68 |
| 69 (defun make-standard-time-signature (numerator denominator) | 69 (defun make-standard-time-signature (numerator denominator) |