Mercurial > hg > amuse

annotate implementations/midi/constructors.lisp @ 39:262aa7a3d500

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix (?) for vector-correlation darcs-hash:20070525165241-40ec0-3fccec4b7b3b87ed31c3ea29a872ae6b63c2cf15.gz
author d.lewis <d.lewis@gold.ac.uk>
date Fri, 25 May 2007 17:52:41 +0100
parents fe73cc3f1605
children 5bec705db9d6
rev   line source
m@25 1 (cl:in-package #:amuse-midi)
m@25 2
m@25 3 (defun make-midi-pitched-event (pitch-number velocity patch
m@25 4 channel track onset duration)
m@25 5 (make-instance 'midi-pitched-event
m@25 6 :number pitch-number
m@25 7 :velocity velocity
m@25 8 :patch patch
m@25 9 :channel channel
m@25 10 :track track
m@25 11 :time onset
m@25 12 :interval duration))
m@25 13
m@25 14 (defun make-midi-percussive-event (pitch-number velocity patch
m@25 15 channel track onset duration)
m@25 16 (make-instance 'midi-percussive-event
m@25 17 :sound pitch-number
m@25 18 :velocity velocity
m@25 19 :patch patch
m@25 20 :channel channel
m@25 21 :track track
m@25 22 :time onset
m@25 23 :interval duration))
m@25 24
m@25 25 (defun make-midi-key-signature (sharp-count mode onset duration)
m@25 26 (make-instance 'midi-key-signature
m@25 27 :sharp-count sharp-count
m@25 28 :mode mode
m@25 29 :time onset
m@25 30 :interval duration))
m@25 31