Mercurial > hg > amuse
view implementations/midi/constructors.lisp @ 61:c911d65ae94d
pointy-clicky misspelling correction
darcs-hash:20070627102839-dc3a5-16cb5156dafee4b4a1aa3442274fab6c7260ed9c.gz
author | c.rhodes <c.rhodes@gold.ac.uk> |
---|---|
date | Wed, 27 Jun 2007 11:28:39 +0100 |
parents | 5bec705db9d6 |
children | 70c716a6eb72 |
line wrap: on
line source
(cl:in-package #:amuse-midi) (defun make-midi-pitched-event (pitch-number velocity patch channel track onset duration) (make-instance 'midi-pitched-event :number pitch-number :velocity velocity :patch patch :channel channel :track track :time onset :interval duration)) (defun make-midi-percussive-event (pitch-number velocity patch channel track onset duration) (make-instance 'midi-percussive-event :sound pitch-number :velocity velocity :patch patch :channel channel :track track :time onset :interval duration))