m@46: (cl:in-package #:amuse-mtp) 
m@46: 
m@79: (defclass mtp-after-segmenter (ground-truth-segmenter after-segmenter)
m@79:   ())
m@79: 
m@79: (defclass mtp-before-segmenter (ground-truth-segmenter before-segmenter)
m@79:   ())
m@79: 
m@53: (defclass mtp-dataset-identifier (identifier)
m@53:   ((dataset-id :initarg :dataset-id :accessor dataset-id)))
m@53:    
m@46: (defclass mtp-composition-identifier (identifier)
m@46:   ((dataset-id :initarg :dataset-id :accessor dataset-id)
m@46:    (composition-id :initarg :composition-id :accessor composition-id)))
m@46: 
m@53: (defclass mtp-dataset (amuse::list-slot-sequence) 
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: 
m@46: (defclass mtp-composition (amuse:composition)
m@46:   ((dataset-id :initarg :dataset-id :accessor dataset-id)
m@46:    (composition-id :initarg :composition-id :accessor composition-id)
m@46:    (description :initarg :description :accessor description)))
m@46:    
m@46: (defclass mtp-event (amuse:pitched-event)
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@53:    ;;(onset :initarg :onset :accessor %mtp-onset)  - (amuse:timepoint ...)
m@53:    ;;(dur :initarg :dur :accessor %mtp-accidental) - (amuse:duration  ...)
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)
m@46:    (voice :initarg :voice :accessor %mtp-voice)))