# HG changeset patch
# User Marcus Pearce <m.pearce@gold.ac.uk>
# Date 1225716102 0
# Node ID 03be243f9003818d761d865f0b270b79e2878095
# Parent  1d3cdca12aebd62867288b2a420f3acf5c5c9ec8
implementations/mtp/classes.lisp: Add BIOI (Basic IOI) as a basic viewpoint.

darcs-hash:20081103124142-c0ce4-272df768ca2816412f1a4f89297e68d4ef35b4fd.gz

diff -r 1d3cdca12aeb -r 03be243f9003 implementations/mtp/classes.lisp
--- 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)
diff -r 1d3cdca12aeb -r 03be243f9003 implementations/mtp/methods.lisp
--- 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)
diff -r 1d3cdca12aeb -r 03be243f9003 implementations/mtp/package.lisp
--- a/implementations/mtp/package.lisp	Tue Jul 22 12:20:38 2008 +0100
+++ b/implementations/mtp/package.lisp	Mon Nov 03 12:41:42 2008 +0000
@@ -2,6 +2,7 @@
   (:use #:common-lisp #:amuse #:amuse-utils #:amuse-segmentation)
   (:export 
    ;; classes 
+   #:mtp-event
    #:mtp-dataset
    #:mtp-composition
    ;; accessors