annotate implementations/midi/classes.lisp @ 127:dc862a0c7b9c
implementations/mtp/: add mtp-object
darcs-hash:20070730142106-c0ce4-1db39f1d64c3b0f779dacf3474d1385e12b2d1cc.gz
| author |
Marcus Pearce <m.pearce@gold.ac.uk> |
| date |
Mon, 30 Jul 2007 15:21:06 +0100 |
| parents |
cf198383852d |
| children |
b849c4fc4c26 |
| rev |
line source |
|
m@25
|
1 (cl:in-package #:amuse-midi)
|
|
m@25
|
2
|
|
d@33
|
3 (defclass midi-composition (amuse:composition)
|
|
d@33
|
4 ((time-signatures :initarg :time-signatures
|
|
d@33
|
5 :initform 'nil
|
|
d@33
|
6 :accessor %midi-time-signatures)
|
|
d@33
|
7 (tempi :initarg :tempi
|
|
d@33
|
8 :initform 'nil
|
|
d@33
|
9 :accessor %midi-tempi)
|
|
d@115
|
10 (key-signatures :initarg :key-signatures
|
|
d@115
|
11 :initform 'nil
|
|
d@115
|
12 :accessor %midi-key-signatures)
|
|
d@33
|
13 (misc-controllers :initarg :controllers
|
|
d@33
|
14 :initform 'nil
|
|
d@33
|
15 :accessor %midi-misc-controllers)))
|
|
d@33
|
16
|
|
m@25
|
17 (defclass midi-message () ;?
|
|
m@25
|
18 ((channel :accessor %midi-message-channel :initarg :channel)
|
|
m@25
|
19 (track :accessor %midi-message-track :initarg :track)))
|
|
m@25
|
20
|
|
m@25
|
21 (defclass midi-pitched-event (chromatic-pitched-event midi-message)
|
|
d@32
|
22 ((velocity :initarg :velocity
|
|
d@32
|
23 :accessor %midi-pitched-event-velocity)
|
|
d@32
|
24 (patch :initarg :patch
|
|
d@32
|
25 :accessor %midi-pitched-event-patch)))
|
|
m@25
|
26
|
|
m@25
|
27 (defclass midi-percussive-event (percussive-event midi-message)
|
|
d@32
|
28 ((velocity :initarg :velocity
|
|
d@32
|
29 :accessor %midi-percussive-event-velocity)
|
|
d@33
|
30 (patch :initarg :patch
|
|
d@33
|
31 :accessor %midi-percussive-event-patch)
|
|
d@33
|
32 (sound :initarg :sound
|
|
d@33
|
33 :accessor %midi-percussive-event-sound)))
|
|
m@25
|
34
|
