Mercurial > hg > amuse

annotate implementations/midi/constructors.lisp @ 176:cddf83554c08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
export fn correction darcs-hash:20080313112536-40ec0-eaf1212341070c8e768ede8e68464d3bb0c3a174.gz
author d.lewis <d.lewis@gold.ac.uk>
date Thu, 13 Mar 2008 11:25:36 +0000
parents 70c716a6eb72
children 1f3873585a5d 819277b20b98
rev   line source
m@25 1 (cl:in-package #:amuse-midi)
m@25 2
m@144 3 (defun make-midifile-identifier (pathname)
m@144 4 (make-instance 'midifile-identifier :path pathname))
m@144 5
m@25 6 (defun make-midi-pitched-event (pitch-number velocity patch
m@25 7 channel track onset duration)
m@25 8 (make-instance 'midi-pitched-event
m@25 9 :number pitch-number
m@25 10 :velocity velocity
m@25 11 :patch patch
m@25 12 :channel channel
m@25 13 :track track
m@25 14 :time onset
m@25 15 :interval duration))
m@25 16
m@25 17 (defun make-midi-percussive-event (pitch-number velocity patch
m@25 18 channel track onset duration)
m@25 19 (make-instance 'midi-percussive-event
m@25 20 :sound pitch-number
m@25 21 :velocity velocity
m@25 22 :patch patch
m@25 23 :channel channel
m@25 24 :track track
m@25 25 :time onset
m@25 26 :interval duration))
m@25 27
m@25 28