view implementations/geerdes/classes.lisp @ 190:725ce7ce77ba

remove DOS line endings in base/classes.lisp

darcs-hash:20090105150355-16a00-972232fbb3eb8030c3e0c6d3788ba6f389183d8c.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 (composition-identifier geerdes-object) ())
(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 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)
   (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))
  (: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-pitched-event (midi-pitched-event geerdes-object)
  ((id :initarg :id
       :accessor %geerdes-pitched-event-id))
  (:documentation "Only adds a database id to midi-pitched-event"))

(defclass geerdes-percussive-event (midi-percussive-event geerdes-object)
  ((id :initarg :id
       :accessor %geerdes-percussive-event-id))
  (:documentation "Only adds a database id to midi-percussive-event"))