Mercurial > hg > amuse
view implementations/midi/constructors.lisp @ 68:95dce8c7f08c
midi-key-signature: 0
darcs-hash:20070706094145-c0ce4-eedb2b03b6557c4dba4cdd1170c925c471744a71.gz
author | Marcus Pearce <m.pearce@gold.ac.uk> |
---|---|
date | Fri, 06 Jul 2007 10:41:45 +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))