|
m@46
|
1 (cl:in-package #:amuse-mtp)
|
|
m@46
|
2
|
|
m@79
|
3 (defclass mtp-after-segmenter (ground-truth-segmenter after-segmenter)
|
|
m@79
|
4 ())
|
|
m@79
|
5
|
|
m@79
|
6 (defclass mtp-before-segmenter (ground-truth-segmenter before-segmenter)
|
|
m@79
|
7 ())
|
|
m@79
|
8
|
|
m@53
|
9 (defclass mtp-dataset-identifier (identifier)
|
|
m@53
|
10 ((dataset-id :initarg :dataset-id :accessor dataset-id)))
|
|
m@53
|
11
|
|
m@46
|
12 (defclass mtp-composition-identifier (identifier)
|
|
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
|
|
m@53
|
16 (defclass mtp-dataset (amuse::list-slot-sequence)
|
|
m@53
|
17 ((dataset-id :initarg :dataset-id :accessor dataset-id)
|
|
m@53
|
18 (description :initarg :description :accessor description)
|
|
m@53
|
19 (timebase :initarg :timebase :accessor dataset-timebase)
|
|
m@53
|
20 (midc :initarg :midc :accessor dataset-midc)))
|
|
m@53
|
21
|
|
m@46
|
22 (defclass mtp-composition (amuse:composition)
|
|
m@46
|
23 ((dataset-id :initarg :dataset-id :accessor dataset-id)
|
|
m@46
|
24 (composition-id :initarg :composition-id :accessor composition-id)
|
|
m@46
|
25 (description :initarg :description :accessor description)))
|
|
m@46
|
26
|
|
m@46
|
27 (defclass mtp-event (amuse:pitched-event)
|
|
m@46
|
28 ((dataset-id :initarg :dataset-id :accessor dataset-id)
|
|
m@46
|
29 (composition-id :initarg :composition-id :accessor composition-id)
|
|
m@46
|
30 (event-id :initarg :event-id :accessor event-id)
|
|
m@53
|
31 ;;(onset :initarg :onset :accessor %mtp-onset) - (amuse:timepoint ...)
|
|
m@53
|
32 ;;(dur :initarg :dur :accessor %mtp-accidental) - (amuse:duration ...)
|
|
m@46
|
33 (deltast :initarg :deltast :accessor %mtp-deltast)
|
|
m@46
|
34 (cpitch :initarg :cpitch :accessor %mtp-cpitch)
|
|
m@46
|
35 (mpitch :initarg :mpitch :accessor %mtp-mpitch)
|
|
m@46
|
36 (accidental :initarg :accidental :accessor %mtp-accidental)
|
|
m@46
|
37 (keysig :initarg :keysig :accessor %mtp-keysig)
|
|
m@46
|
38 (mode :initarg :mode :accessor %mtp-mode)
|
|
m@46
|
39 (barlength :initarg :barlength :accessor %mtp-barlength)
|
|
m@46
|
40 (pulses :initarg :pulses :accessor %mtp-pulses)
|
|
m@46
|
41 (phrase :initarg :phrase :accessor %mtp-phrase)
|
|
m@46
|
42 (tempo :initarg :tempo :accessor %mtp-tempo)
|
|
m@46
|
43 (dyn :initarg :dyn :accessor %mtp-dyn)
|
|
m@46
|
44 (voice :initarg :voice :accessor %mtp-voice)))
|
