view implementations/geerdes/classes.lisp @ 116:b4f4df48337d

Addition of viewpointable classes and methods

These may be in the wrong place, but are designed to facilitate pluggability of viewpoints for well-behaved implementations

darcs-hash:20070726160347-f76cc-6e6da5d488b3f252d0575e42daa566130481f955.gz

(cl:in-package #:amuse-geerdes)

(defclass property-list-mixin ()
  ((properties :initarg :properties :accessor properties :initform nil)))

(defclass geerdes-identifier (identifier) ())
(defclass geerdes-identifier-cat-id (geerdes-identifier)
  ((cat-id :initarg :cat-id
	   :initform 'nil)))
(defclass geerdes-identifier-file-id (geerdes-identifier)
  ((file-id :initarg :file-id
	    :initform 'nil)))

(defclass geerdes-composition (midi-composition property-list-mixin)
  ((db-entry :initarg :db-entry
	     :initform nil
	     :accessor %db-entry)
   (bar-numbers :initform nil
		:accessor %bar-numbers)
   (monody :initform nil
	   :accessor %monody)
   (caches :initform nil
	   :accessor %caches)
   (midi-constituents :initarg :constituents
		      :accessor %midi-constituents)
   (midi-events :initarg :midi-events
		:accessor %midi-events)
   (midi-timebase :initarg :midi-timebase
		  :accessor %midi-timebase)
   (identifier :initarg :id
	       :accessor %fast-identifier)
   (db-cat-id :initarg :cat-id
	      :accessor %db-cat-id)
   (db-file-id :initarg :file-id
	       :accessor %db-file-id)))

(defclass geerdes-monody (monody geerdes-composition)
  ;; FIXME: necessary slots? Do we even use them?
  ((inter-onset-intervals :initarg :i-o-i
			  :initform nil
			  :accessor %i-o-i)
   (inter-onset-interval-mode :initarg :ioi-mode
			      :initform 0
			      :accessor %ioi-mode)))

(defclass geerdes-pitched-event (midi-pitched-event property-list-mixin)
  ((id :initarg :id
       :accessor %geerdes-pitched-event-id)))

(defclass geerdes-percussive-event (midi-percussive-event property-list-mixin)
  ((id :initarg :id
       :accessor %geerdes-percussive-event-id)))