view implementations/geerdes/classes.lisp @ 298:204d6d1f4f6a

add composition slot to event (geerdes)

Ignore-this: 7ece48560d6cc689711c5864e49a0360

darcs-hash:20090828164054-16a00-57b981532296c149640ab1e48439cdb88c41f2cf.gz

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

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

(defclass geerdes-object (property-list-mixin) ())

(defclass geerdes-identifier (geerdes-object) ())

(defclass geerdes-composition-identifier (composition-identifier
					  geerdes-object) ())

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

(defclass geerdes-identifier-file-id (geerdes-composition-identifier)
  ((file-id :initarg :file-id
	    :initform 'nil))
  (:documentation "Define geerdes-file-id as composition-id."))

(defclass geerdes-event-identifier (event-identifier
				    geerdes-identifier)
  ((event-id :initarg :event-id
	     :reader event-id)))

(defclass geerdes-composition (midi-composition geerdes-object)
  ((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)
   (db-cat-id :initarg :cat-id
	      :accessor %db-cat-id)
   (db-file-id :initarg :file-id
	       :accessor %db-file-id))
  (:documentation "MIDI composition with extra slots for Geerdes
  database entries and ids. Because this implementation is for a
  particular need, caching of information is also handled within
  the object, so Geerdes compositions are faster for bar lookups,
  monody-finding and so on. They also make use of interval trees
  for time calculations, which make them faster for window-based
  queries (but slower to import as a result)."))

(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-event (geerdes-object) ()
  (:documentation "Base class for geerdes events."))

(defclass geerdes-pitched-event (midi-pitched-event geerdes-event
						    linked-event)
  ((identifier :initarg :identifier
	       :reader identifier))
  (:documentation "Only adds a database identifier to
  midi-pitched-event"))

(defclass geerdes-percussive-event (midi-percussive-event
				    geerdes-event linked-event)
  ((identifier :initarg :identifier
	       :reader identifier))
  (:documentation "Only adds a database identifier to
  midi-percussive-event"))