Mercurial > hg > amuse

view implementations/mtp/classes.lisp @ 51:894fb5156603

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Prefix database table names with 'mtp-' darcs-hash:20070620141551-c0ce4-23eb826c6323d1fdac3a8cc9b2b9406c2c39e1e9.gz
author Marcus Pearce <m.pearce@gold.ac.uk>
date Wed, 20 Jun 2007 15:15:51 +0100
parents 34fb42cba5b9
children ce4a90427366
line wrap: on
line source
(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)))