annotate implementations/midi/classes.lisp @ 32:5e705b6f94b6
Exported midi accessors
darcs-hash:20061218132331-f76cc-f06a82a1a957a4e0b193272329e9f246a8d6c17b.gz
| author |
David Lewis <d.lewis@gold.ac.uk> |
| date |
Mon, 18 Dec 2006 13:23:31 +0000 |
| parents |
fe73cc3f1605 |
| children |
d1010755f507 |
| rev |
line source |
|
m@25
|
1 (cl:in-package #:amuse-midi)
|
|
m@25
|
2
|
|
m@25
|
3 (defclass midi-message () ;?
|
|
m@25
|
4 ((channel :accessor %midi-message-channel :initarg :channel)
|
|
m@25
|
5 (track :accessor %midi-message-track :initarg :track)))
|
|
m@25
|
6
|
|
m@25
|
7 (defclass midi-pitched-event (chromatic-pitched-event midi-message)
|
|
d@32
|
8 ((velocity :initarg :velocity
|
|
d@32
|
9 :accessor %midi-pitched-event-velocity)
|
|
d@32
|
10 (patch :initarg :patch
|
|
d@32
|
11 :accessor %midi-pitched-event-patch)))
|
|
m@25
|
12
|
|
m@25
|
13 (defclass midi-percussive-event (percussive-event midi-message)
|
|
d@32
|
14 ((velocity :initarg :velocity
|
|
d@32
|
15 :accessor %midi-percussive-event-velocity)
|
|
m@25
|
16 (patch :initarg :patch)
|
|
m@25
|
17 (sound :initarg :sound)))
|
|
m@25
|
18
|
|
m@25
|
19 (defclass midi-key-signature (basic-key-signature)
|
|
m@25
|
20 ;; Is mode ever used in real life? Is it ever accurately used in
|
|
m@25
|
21 ;; real life?
|
|
m@25
|
22 ((mode :accessor %midi-key-signature-mode
|
|
m@25
|
23 :initarg mode)))
|
