annotate implementations/midi/constructors.lisp @ 193:c18f795f4463
rollback the amuse.asd generics/classes dependency fix
Ignore-this: be4e0351d31f24f5348cc8dc434477dc
Fix properly this time by moving the specialized get-constituents method from generics to methods.
rolling back:
Wed Jan 23 15:55:34 GMT 2008 Jamie Forth <j.forth@gold.ac.uk>
* Fixed amuse.asd dependency - generics depends on classes.
M ./amuse.asd -2 +2
darcs-hash:20090524164116-16a00-2b561eab1a5829a251eb5e9b40357945af13e6a6.gz
| author |
j.forth <j.forth@gold.ac.uk> |
| date |
Sun, 24 May 2009 17:41:16 +0100 |
| 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
|
