annotate implementations/midi/classes.lisp @ 115:cf198383852d
Re-instated get-applicable-x for midi-related implementations and added key-sigs to midi
darcs-hash:20070726144704-f76cc-a24c9e6c07b43c4084a73218f76a0b345fac5369.gz
| author |
David Lewis <d.lewis@gold.ac.uk> |
| date |
Thu, 26 Jul 2007 15:47:04 +0100 |
| parents |
5bec705db9d6 |
| 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
|
