Mercurial > hg > amuse
changeset 186:03be243f9003
implementations/mtp/classes.lisp: Add BIOI (Basic IOI) as a basic viewpoint.
darcs-hash:20081103124142-c0ce4-272df768ca2816412f1a4f89297e68d4ef35b4fd.gz
| author | Marcus Pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Mon, 03 Nov 2008 12:41:42 +0000 |
| parents | 1d3cdca12aeb |
| children | aa2b33f83ac6 |
| files | implementations/mtp/classes.lisp implementations/mtp/methods.lisp implementations/mtp/package.lisp |
| diffstat | 3 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/mtp/classes.lisp Tue Jul 22 12:20:38 2008 +0100 +++ b/implementations/mtp/classes.lisp Mon Nov 03 12:41:42 2008 +0000 @@ -44,8 +44,9 @@ ((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) onset / (amuse:timepoint ...) - ;;(dur :initarg :dur :accessor %mtp-accidental) interval / (amuse:duration ...) + ;;(onset :initarg :onset :accessor %mtp-onset) time / (amuse:timepoint ...) + ;;(dur :initarg :dur :accessor %mtp-accidental) interval / (amuse:duration ...) + (bioi :initarg :bioi :accessor %mtp-bioi) (deltast :initarg :deltast :accessor %mtp-deltast) (cpitch :initarg :cpitch :accessor %mtp-cpitch) (mpitch :initarg :mpitch :accessor %mtp-mpitch)
--- a/implementations/mtp/methods.lisp Tue Jul 22 12:20:38 2008 +0100 +++ b/implementations/mtp/methods.lisp Mon Nov 03 12:41:42 2008 +0000 @@ -91,7 +91,7 @@ (defun db-event->mtp-event (db-event) (let* ((slots ; the order must match *event-attributes* '(amuse::time amuse::interval deltast cpitch mpitch accidental - keysig mode barlength pulses phrase tempo dyn voice)) + keysig mode barlength pulses phrase tempo dyn voice bioi)) (mtp-event (make-mtp-event :dataset-id (first db-event) :composition-id (second db-event)