view base/classes.lisp @ 124:b0a1760ab0dd

base/: amuse-object as top-level class

darcs-hash:20070730133602-c0ce4-2f8758c81a98323e1dca0c6b482e5cdef5c9d3d9.gz

(cl:in-package #:amuse) 

;; top-level amuse object 

(defclass constituent (anchored-period) ())
(defclass time-ordered-constituent (constituent list-slot-sequence)
  ;; this won't work if lisp implementation doesn't support extensible
  ;; sequences.
  ())
(defclass composition (time-ordered-constituent) ())
(defclass monody (composition) ())

;; types of information-specifiers

(defclass identifier () ()) ;; for composition specification
(defclass moment-designator () ()
  (:documentation "Object indicating a point in time"))
(defclass period-designator (amuse-object) ()
  (:documentation "Object indicating a region of time"))
(defclass anchored-period-designator (moment-designator period-designator) ()
  (:documentation "Object indicating a region of time starting at
  a specific point in time"))
(defclass pitch-designator (amuse-object) ()
  (:documentation "Object indicating some sort of pitch"))
(defclass pitch-interval-designator (amuse-object) ()
  (:documentation "Object indicating a distance in pitch space"))

;; time-related classes

(defclass moment (moment-designator) 
  ((time :accessor %moment-time :initarg :time))
  (:documentation "A moment represented on a number line"))

(defclass period (period-designator) 
  ((interval :accessor %period-interval :initarg :interval))
  (:documentation "A number-line-based period"))

(defclass floating-period (period) ()
  (:documentation "A simple numeric period"))
(defclass anchored-period (period moment anchored-period-designator) ()
  (:documentation "Number-line-based anchored period"))

;; pitch-related classes

(defclass frequency () ())

(defclass pitch (pitch-designator) ())
(defclass chromatic-pitch (pitch) 
  ((number :accessor %chromatic-pitch-number :initarg :number))
  (:documentation "A pitch represented as a number, with
  chromatic pitches having distinct values."))
(defclass diatonic-pitch (pitch) 
  ((cp :initarg :cp :accessor %p-pc :reader diatonic-pitch-cp)
   (mp :initarg :mp :accessor %p-pm :reader diatonic-pitch-mp))
  (:documentation "A diatonic pitch, represented using MIPS: cp is an
integer representing chromatic pitch (An0 = 0, middle C = 39); mp is
an integer representing the morphetic pitch (An0 = 0, middle C =
23)."))

(defclass chromatic-pitch-interval (pitch-interval-designator) 
  ((span :accessor %chromatic-pitch-interval-span :initarg :span)))

(defclass diatonic-pitch-interval (pitch-interval-designator)
  ((span :accessor %diatonic-pitch-interval-span :initarg :span :reader span)))

;; events

(defclass event (anchored-period) ()
  (:documentation "Notelike object"))
(defclass pitched-event (event pitch-designator) ()
  (:documentation "Event with pitch information"))
(defclass chromatic-pitched-event (pitched-event chromatic-pitch) ()
  (:documentation "Event with chromatic pitch information"))
(defclass percussive-event (event) ()
  (:documentation "Unpitched percussion Event. Is there a reason why
this is unpitched necessarily, or why I'm not counting piano, etc in
this? Perhaps what I mean is that it should be renamed?"))

;;; Range-based `constituents'
;; Whilst these are all constituents in the CHARM sense, their
;; properties apply to a timed range rather than to a set of
;; events. As such, they can be regarded as anchored-periods with
;; properties.

(defclass time-signature (anchored-period) ()
  (:documentation "Base class for time signature"))

(defclass basic-time-signature (time-signature)
  ((numerator :accessor %basic-time-signature-numerator
	      :initarg :numerator)
   (denominator :accessor %basic-time-signature-denominator
		:initarg :denominator))
  (:documentation "Class with slots for numerator and
  denominator. Can only deal with numeric signatures."))

(defclass key-signature (anchored-period) ()
  (:documentation "Base class for key signature"))

(defclass basic-key-signature (key-signature)
  ((sharp-count :accessor %basic-key-signature-sharp-count
		:initarg :sharp-count))
  (:documentation "Simple class - Only has line-of-fifths
  distance from c, so custom signatures won't work"))

(defclass midi-key-signature (basic-key-signature)
  ((mode :accessor %midi-key-signature-mode
	 :initarg :mode))
  (:documentation "MIDI-based flavour of basic key signature,
  adding a slot for mode: 0 = major key; 1 = minor key"))

(defclass tempo (anchored-period)
  ((bpm :accessor %tempo-bpm
	:initarg :bpm))
  (:documentation "Rather literal reading of absolute tempo.
  accel and rit in symbolic encoding will need other structures,
  as will textual tempo markings."))
   
;; collections of more than one event

(defclass constituent (anchored-period) ())
(defclass time-ordered-constituent (constituent list-slot-sequence)
  ;; this won't work if lisp implementation doesn't support extensible
  ;; sequences.
  ())
(defclass composition (time-ordered-constituent) ())
(defclass monody (composition) ())