annotate implementations/midi/classes.lisp @ 37:9aeb5bff013a
Added levenshtein distance with cost functions
darcs-hash:20070516124658-f76cc-8b96080b5c4018f2077650697bec4d1213917505.gz
| author |
David Lewis <d.lewis@gold.ac.uk> |
| date |
Wed, 16 May 2007 13:46:58 +0100 |
| parents |
d1010755f507 |
| children |
5bec705db9d6 |
| 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
|
|
m@25
|
32 (defclass midi-key-signature (basic-key-signature)
|
|
m@25
|
33 ;; Is mode ever used in real life? Is it ever accurately used in
|
|
m@25
|
34 ;; real life?
|
|
m@25
|
35 ((mode :accessor %midi-key-signature-mode
|
|
m@25
|
36 :initarg mode)))
|
