annotate implementations/midi/constructors.lisp @ 240:c454b4fc9aad
Add generic ID constructor to midi-db.
Ignore-this: 91554466a43d64ee99fbf840985d7c6b
darcs-hash:20100414185257-16a00-dcfa03eaa450cfdce842c64c3f49214c5c938181.gz
committer: Jamie Forth <j.forth@gold.ac.uk>
| author |
j.forth <j.forth@gold.ac.uk> |
| date |
Thu, 24 Feb 2011 11:23:18 +0000 |
| parents |
e3353261523e |
| children |
2b31a375701b |
| 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)
|
|
j@234
|
8 "FIXME: This is never called."
|
|
m@25
|
9 (make-instance 'midi-pitched-event
|
|
m@25
|
10 :number pitch-number
|
|
m@25
|
11 :velocity velocity
|
|
m@25
|
12 :patch patch
|
|
m@25
|
13 :channel channel
|
|
m@25
|
14 :track track
|
|
m@25
|
15 :time onset
|
|
m@25
|
16 :interval duration))
|
|
m@25
|
17
|
|
j@206
|
18 (defun make-midi-percussive-event (sound velocity patch
|
|
m@25
|
19 channel track onset duration)
|
|
j@234
|
20 "FIXME: This is never called."
|
|
m@25
|
21 (make-instance 'midi-percussive-event
|
|
j@206
|
22 :sound sound
|
|
m@25
|
23 :velocity velocity
|
|
m@25
|
24 :patch patch
|
|
m@25
|
25 :channel channel
|
|
m@25
|
26 :track track
|
|
m@25
|
27 :time onset
|
|
m@25
|
28 :interval duration))
|
|
m@25
|
29
|
|
m@25
|
30
|
