j@286: (cl:in-package #:amuse-meredith)
j@286: 
j@286: ;;; Top-level class
j@286: 
j@286: (defclass meredith-data-object (amuse:amuse-object) ())
j@286: 
j@286: ;;; Identifiers
j@286: 
j@286: (defclass meredith-identifier (meredith-data-object) ())
j@286: 
j@286: (defclass meredith-composition-identifier (composition-identifier
j@286: 					   meredith-identifier)
j@286:   ((composition-id
j@286:    :initarg :composition-id
j@286:    :reader composition-id)))
j@286: 
j@286: (defclass meredith-event-identifier (event-identifier
j@286: 				     meredith-identifier)
j@286:   ((event-id :initarg :event-id
j@286: 	     :reader event-id)))
j@286: 
j@286: ;;; Music objects
j@286: 
j@286: (defclass meredith-music-object (meredith-data-object) ())
j@286: 
j@286: (defclass meredith-composition (amuse:standard-composition
j@286: 				meredith-music-object)
j@286:   ((identifier :initarg :identifier :reader identifier)
j@286:    (description :initarg :description :reader description)))
j@286: 
j@286: (defclass meredith-event (amuse:chromatic-pitched-event
j@286: 			  amuse:diatonic-pitched-event
j@286: 			  amuse:standard-anchored-period
j@299: 			  amuse:linked-event
j@286: 			  meredith-music-object)
j@286:   ((identifier :initarg :identifier :accessor identifier)
j@286:    (tatum-on :initarg :tatum-on :accessor tatum-on)
j@286:    (tatum-dur :initarg :tatum-dur :accessor tatum-dur)
j@286:    (tactus-on :initarg :tactus-on :accessor tactus-on)
j@286:    (tactus-dur :initarg :tactus-dur :accessor tactus-dur)
j@286:    (tatum-on-ms :initarg :tatum-on-ms :accessor tatum-on-ms)
j@286:    (tatum-dur-ms :initarg :tatum-dur-ms :accessor tatum-dur-ms)
j@286:    (beat-on-ms :initarg :beat-on-ms :accessor beat-on-ms)
j@286:    (beat-dur-ms :initarg :beat-dur-ms :accessor beat-dur-ms)
j@286:    (crot-on-ms :initarg :crot-on-ms :accessor crot-on-ms)
j@286:    (crot-dur-ms :initarg :crot-dur-ms :accessor crot-dur-ms)
j@286:    (pitch-name :initarg :pitch-name :accessor pitch-name)
j@286:    (voice :initarg :voice :accessor voice)))
j@286: 
j@286: