annotate implementations/midi/classes.lisp @ 51:894fb5156603
Prefix database table names with 'mtp-'
darcs-hash:20070620141551-c0ce4-23eb826c6323d1fdac3a8cc9b2b9406c2c39e1e9.gz
| author |
Marcus Pearce <m.pearce@gold.ac.uk> |
| date |
Wed, 20 Jun 2007 15:15:51 +0100 |
| parents |
5bec705db9d6 |
| children |
cf198383852d |
| 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@33
|
10 (misc-controllers :initarg :controllers
|
|
d@33
|
11 :initform 'nil
|
|
d@33
|
12 :accessor %midi-misc-controllers)))
|
|
d@33
|
13
|
|
m@25
|
14 (defclass midi-message () ;?
|
|
m@25
|
15 ((channel :accessor %midi-message-channel :initarg :channel)
|
|
m@25
|
16 (track :accessor %midi-message-track :initarg :track)))
|
|
m@25
|
17
|
|
m@25
|
18 (defclass midi-pitched-event (chromatic-pitched-event midi-message)
|
|
d@32
|
19 ((velocity :initarg :velocity
|
|
d@32
|
20 :accessor %midi-pitched-event-velocity)
|
|
d@32
|
21 (patch :initarg :patch
|
|
d@32
|
22 :accessor %midi-pitched-event-patch)))
|
|
m@25
|
23
|
|
m@25
|
24 (defclass midi-percussive-event (percussive-event midi-message)
|
|
d@32
|
25 ((velocity :initarg :velocity
|
|
d@32
|
26 :accessor %midi-percussive-event-velocity)
|
|
d@33
|
27 (patch :initarg :patch
|
|
d@33
|
28 :accessor %midi-percussive-event-patch)
|
|
d@33
|
29 (sound :initarg :sound
|
|
d@33
|
30 :accessor %midi-percussive-event-sound)))
|
|
m@25
|
31
|
