Mercurial > hg > amuse
view implementations/midi/constructors.lisp @ 46:34fb42cba5b9
basic mtp amuse implementation
darcs-hash:20070615111202-aa3d6-498f4d035964f6f8e8803de9cbf6f50974affe88.gz
author | m.pearce <m.pearce@gold.ac.uk> |
---|---|
date | Fri, 15 Jun 2007 12:12:02 +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))