|
m@46
|
1 (cl:in-package #:amuse-mtp)
|
|
m@46
|
2
|
|
m@46
|
3 (defclass mtp-composition-identifier (identifier)
|
|
m@46
|
4 ((dataset-id :initarg :dataset-id :accessor dataset-id)
|
|
m@46
|
5 (composition-id :initarg :composition-id :accessor composition-id)))
|
|
m@46
|
6
|
|
m@46
|
7 (defclass mtp-composition (amuse:composition)
|
|
m@46
|
8 ((dataset-id :initarg :dataset-id :accessor dataset-id)
|
|
m@46
|
9 (composition-id :initarg :composition-id :accessor composition-id)
|
|
m@46
|
10 (description :initarg :description :accessor description)))
|
|
m@46
|
11
|
|
m@46
|
12 (defclass mtp-event (amuse:pitched-event)
|
|
m@46
|
13 ((dataset-id :initarg :dataset-id :accessor dataset-id)
|
|
m@46
|
14 (composition-id :initarg :composition-id :accessor composition-id)
|
|
m@46
|
15 (event-id :initarg :event-id :accessor event-id)
|
|
m@46
|
16 ;;(onset :initarg :onset :accessor %mtp-onset) - (timepoint ...)
|
|
m@46
|
17 ;;(dur :initarg :dur :accessor %mtp-accidental) - (duration ...)
|
|
m@46
|
18 (deltast :initarg :deltast :accessor %mtp-deltast)
|
|
m@46
|
19 (cpitch :initarg :cpitch :accessor %mtp-cpitch)
|
|
m@46
|
20 (mpitch :initarg :mpitch :accessor %mtp-mpitch)
|
|
m@46
|
21 (accidental :initarg :accidental :accessor %mtp-accidental)
|
|
m@46
|
22 (keysig :initarg :keysig :accessor %mtp-keysig)
|
|
m@46
|
23 (mode :initarg :mode :accessor %mtp-mode)
|
|
m@46
|
24 (barlength :initarg :barlength :accessor %mtp-barlength)
|
|
m@46
|
25 (pulses :initarg :pulses :accessor %mtp-pulses)
|
|
m@46
|
26 (phrase :initarg :phrase :accessor %mtp-phrase)
|
|
m@46
|
27 (tempo :initarg :tempo :accessor %mtp-tempo)
|
|
m@46
|
28 (dyn :initarg :dyn :accessor %mtp-dyn)
|
|
m@46
|
29 (voice :initarg :voice :accessor %mtp-voice)))
|
