|
m@46
|
1 (cl:in-package #:amuse-mtp)
|
|
m@46
|
2
|
|
m@128
|
3 ;;; Top-level class
|
|
m@128
|
4
|
|
m@128
|
5 (defclass mtp-object (amuse:amuse-object) ())
|
|
m@128
|
6
|
|
m@127
|
7 ;;; Segmenters
|
|
m@127
|
8
|
|
m@128
|
9 (defclass mtp-after-segmenter (ground-truth-segmenter after-segmenter mtp-object)
|
|
m@79
|
10 ())
|
|
m@79
|
11
|
|
m@128
|
12 (defclass mtp-before-segmenter (ground-truth-segmenter before-segmenter
|
|
m@128
|
13 mtp-object)
|
|
m@79
|
14 ())
|
|
m@79
|
15
|
|
m@127
|
16 ;;; Identifiers
|
|
m@127
|
17
|
|
m@128
|
18 (defclass mtp-dataset-identifier (identifier mtp-object)
|
|
m@53
|
19 ((dataset-id :initarg :dataset-id :accessor dataset-id)))
|
|
m@53
|
20
|
|
d@169
|
21 (defclass mtp-composition-identifier (composition-identifier mtp-object)
|
|
m@46
|
22 ((dataset-id :initarg :dataset-id :accessor dataset-id)
|
|
m@46
|
23 (composition-id :initarg :composition-id :accessor composition-id)))
|
|
m@46
|
24
|
|
m@127
|
25 ;;; Music objects
|
|
m@127
|
26
|
|
m@128
|
27 (defclass mtp-music-object (mtp-object) ())
|
|
m@127
|
28
|
|
m@128
|
29 (defclass mtp-dataset (amuse::list-slot-sequence mtp-music-object)
|
|
m@53
|
30 ((dataset-id :initarg :dataset-id :accessor dataset-id)
|
|
m@53
|
31 (description :initarg :description :accessor description)
|
|
m@53
|
32 (timebase :initarg :timebase :accessor dataset-timebase)
|
|
m@53
|
33 (midc :initarg :midc :accessor dataset-midc)))
|
|
m@53
|
34
|
|
d@136
|
35 (defclass mtp-composition (amuse:standard-composition mtp-music-object)
|
|
m@46
|
36 ((dataset-id :initarg :dataset-id :accessor dataset-id)
|
|
m@46
|
37 (composition-id :initarg :composition-id :accessor composition-id)
|
|
m@46
|
38 (description :initarg :description :accessor description)))
|
|
m@90
|
39
|
|
m@143
|
40 (defclass mtp-monody (amuse:standard-monody mtp-composition)
|
|
m@90
|
41 ())
|
|
m@90
|
42
|
|
d@136
|
43 (defclass mtp-event (amuse:standard-pitched-event mtp-music-object)
|
|
m@46
|
44 ((dataset-id :initarg :dataset-id :accessor dataset-id)
|
|
m@46
|
45 (composition-id :initarg :composition-id :accessor composition-id)
|
|
m@46
|
46 (event-id :initarg :event-id :accessor event-id)
|
|
m@186
|
47 ;;(onset :initarg :onset :accessor %mtp-onset) time / (amuse:timepoint ...)
|
|
m@186
|
48 ;;(dur :initarg :dur :accessor %mtp-accidental) interval / (amuse:duration ...)
|
|
m@186
|
49 (bioi :initarg :bioi :accessor %mtp-bioi)
|
|
m@46
|
50 (deltast :initarg :deltast :accessor %mtp-deltast)
|
|
m@46
|
51 (cpitch :initarg :cpitch :accessor %mtp-cpitch)
|
|
m@46
|
52 (mpitch :initarg :mpitch :accessor %mtp-mpitch)
|
|
m@46
|
53 (accidental :initarg :accidental :accessor %mtp-accidental)
|
|
m@46
|
54 (keysig :initarg :keysig :accessor %mtp-keysig)
|
|
m@46
|
55 (mode :initarg :mode :accessor %mtp-mode)
|
|
m@46
|
56 (barlength :initarg :barlength :accessor %mtp-barlength)
|
|
m@46
|
57 (pulses :initarg :pulses :accessor %mtp-pulses)
|
|
m@46
|
58 (phrase :initarg :phrase :accessor %mtp-phrase)
|
|
m@46
|
59 (tempo :initarg :tempo :accessor %mtp-tempo)
|
|
m@46
|
60 (dyn :initarg :dyn :accessor %mtp-dyn)
|
|
m@46
|
61 (voice :initarg :voice :accessor %mtp-voice)))
|
