annotate implementations/midi/constructors.lisp @ 30:c770decb8fa7
amuse.asd: oops #2 - remove .lisp file extensions.
darcs-hash:20061215163732-aa3d6-f0c27ac6023c602fabb6ac2db6075cbf8f76a76e.gz
| author |
m.pearce <m.pearce@gold.ac.uk> |
| date |
Fri, 15 Dec 2006 16:37:32 +0000 |
| 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
|
