m@46: (cl:in-package #:amuse-mtp) m@46: m@128: ;;; Top-level class m@128: m@128: (defclass mtp-object (amuse:amuse-object) ()) m@128: m@127: ;;; Segmenters m@127: m@128: (defclass mtp-after-segmenter (ground-truth-segmenter after-segmenter mtp-object) m@79: ()) m@79: m@128: (defclass mtp-before-segmenter (ground-truth-segmenter before-segmenter m@128: mtp-object) m@79: ()) m@79: m@127: ;;; Identifiers m@127: m@128: (defclass mtp-dataset-identifier (identifier mtp-object) m@53: ((dataset-id :initarg :dataset-id :accessor dataset-id))) m@53: d@169: (defclass mtp-composition-identifier (composition-identifier mtp-object) m@46: ((dataset-id :initarg :dataset-id :accessor dataset-id) m@46: (composition-id :initarg :composition-id :accessor composition-id))) m@46: m@127: ;;; Music objects m@127: m@128: (defclass mtp-music-object (mtp-object) ()) m@127: m@128: (defclass mtp-dataset (amuse::list-slot-sequence mtp-music-object) m@53: ((dataset-id :initarg :dataset-id :accessor dataset-id) m@53: (description :initarg :description :accessor description) m@53: (timebase :initarg :timebase :accessor dataset-timebase) m@53: (midc :initarg :midc :accessor dataset-midc))) m@53: d@136: (defclass mtp-composition (amuse:standard-composition mtp-music-object) m@46: ((dataset-id :initarg :dataset-id :accessor dataset-id) m@46: (composition-id :initarg :composition-id :accessor composition-id) marcus@326: (timebase :initarg :timebase :accessor composition-timebase) m@46: (description :initarg :description :accessor description))) m@90: m@143: (defclass mtp-monody (amuse:standard-monody mtp-composition) m@90: ()) m@90: d@136: (defclass mtp-event (amuse:standard-pitched-event mtp-music-object) m@46: ((dataset-id :initarg :dataset-id :accessor dataset-id) m@46: (composition-id :initarg :composition-id :accessor composition-id) m@46: (event-id :initarg :event-id :accessor event-id) m@186: ;;(onset :initarg :onset :accessor %mtp-onset) time / (amuse:timepoint ...) m@186: ;;(dur :initarg :dur :accessor %mtp-accidental) interval / (amuse:duration ...) m@186: (bioi :initarg :bioi :accessor %mtp-bioi) m@46: (deltast :initarg :deltast :accessor %mtp-deltast) m@46: (cpitch :initarg :cpitch :accessor %mtp-cpitch) m@46: (mpitch :initarg :mpitch :accessor %mtp-mpitch) m@46: (accidental :initarg :accidental :accessor %mtp-accidental) m@46: (keysig :initarg :keysig :accessor %mtp-keysig) m@46: (mode :initarg :mode :accessor %mtp-mode) m@46: (barlength :initarg :barlength :accessor %mtp-barlength) m@46: (pulses :initarg :pulses :accessor %mtp-pulses) m@46: (phrase :initarg :phrase :accessor %mtp-phrase) m@46: (tempo :initarg :tempo :accessor %mtp-tempo) m@46: (dyn :initarg :dyn :accessor %mtp-dyn) marcus@326: (ornament :initarg :ornament :accessor %mtp-ornament) marcus@326: (comma :initarg :comma :accessor %mtp-comma) marcus@326: (articulation :initarg :articulation :accessor %mtp-articulation) m@46: (voice :initarg :voice :accessor %mtp-voice)))