comparison implementations/mtp/classes.lisp @ 46:34fb42cba5b9

basic mtp amuse implementation

darcs-hash:20070615111202-aa3d6-498f4d035964f6f8e8803de9cbf6f50974affe88.gz

+(cl:in-package #:amuse-mtp) 
+
+(defclass mtp-composition-identifier (identifier)
+  ((dataset-id :initarg :dataset-id :accessor dataset-id)
+   (composition-id :initarg :composition-id :accessor composition-id)))
+
+(defclass mtp-composition (amuse:composition)
+  ((dataset-id :initarg :dataset-id :accessor dataset-id)
+   (composition-id :initarg :composition-id :accessor composition-id)
+   (description :initarg :description :accessor description)))
+   
+(defclass mtp-event (amuse:pitched-event)
+  ((dataset-id :initarg :dataset-id :accessor dataset-id)
+   (composition-id :initarg :composition-id :accessor composition-id)
+   (event-id :initarg :event-id :accessor event-id)
+   ;;(onset :initarg :onset :accessor %mtp-onset)  - (timepoint ...)
+   ;;(dur :initarg :dur :accessor %mtp-accidental) - (duration  ...)
+   (deltast :initarg :deltast :accessor %mtp-deltast)
+   (cpitch :initarg :cpitch :accessor %mtp-cpitch)
+   (mpitch :initarg :mpitch :accessor %mtp-mpitch)
+   (accidental :initarg :accidental :accessor %mtp-accidental)
+   (keysig :initarg :keysig :accessor %mtp-keysig)
+   (mode :initarg :mode :accessor %mtp-mode)
+   (barlength :initarg :barlength :accessor %mtp-barlength)
+   (pulses :initarg :pulses :accessor %mtp-pulses)
+   (phrase :initarg :phrase :accessor %mtp-phrase)
+   (tempo :initarg :tempo :accessor %mtp-tempo)
+   (dyn :initarg :dyn :accessor %mtp-dyn)
+   (voice :initarg :voice :accessor %mtp-voice)))