comparison generics.lisp @ 0:92b28dfc3938

Initial import of generics.lisp.

darcs-hash:20061016144327-aa3d6-7ca926f2defa3eae7b9a0a19cd67fd5fec3fe2f0.gz

+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; ======================================================================
+;;;; File:       generics.lisp
+;;;; Author:     Marcus Pearce <[e-mail]>
+;;;; Created:    <2006-10-12 15:14:51 marcusp>
+;;;; Time-stamp: <2006-10-12 16:57:51 marcusp>
+;;;; ======================================================================
+
+;;; Accessors (do we need the get- prefix?) 
+
+(defgeneric get-pitch (object &key kind)) ; ? 
+(defgeneric get-chromatic-pitch (object))
+(defgeneric get-diatonic-pitch (object))
+(defgeneric get-frequency (object))
+
+(defgeneric get-duration (object))
+
+(defgeneric get-onset (object)) ; get-time? 
+
+
+;;; Time Protocol (or moments?)
+
+;; negative times/durations -> ERROR? 
+
+;; time+: <time>      <duration> -> <time>
+;;        <duration>  <time>     -> <time> (same as previous?) 
+;;        <duration>  <duration> -> <duration> (or a distinct duration+?) 
+;;        <time>      <time>     -> ERROR? 
+;; 
+;; time-: <time>      <time>     -> <duration>
+;;        <time>      <duration> -> <time> 
+;;        <duration>  <duration> -> <duration> (or a distinct duration-?) 
+;;        <duration>  <time>     -> ERROR? 
+
+(defgeneric time+ (object1 object2))
+(defgeneric time- (object1 object2))
+
+(defgeneric time> (object1 object2))
+(defgeneric time< (object1 object2))
+(defgeneric time>= (object1 object2)) 
+(defgeneric time<= (object1 object2))
+(defgeneric time= (object1 object2)) 
+(defgeneric time/= (object1 object2)) 
+
+;;; Duration protocol 
+
+(defgeneric duration> (object1 object2))
+(defgeneric duration< (object1 object2))
+(defgeneric duration>= (object1 object2)) 
+(defgeneric duration<= (object1 object2))
+(defgeneric duration= (object1 object2)) 
+(defgeneric duration/= (object1 object2)) 
+
+
+;;; Pitch protocol 
+
+;; pitch+: <pitch>    <pitch>     -> <pitch> 
+;;         <pitch>    <interval>  -> <pitch> 
+;;         <interval> <pitch>     -> <pitch> (same as previous?) 
+;;         <interval> <interval>  -> <interval> (or a distinct interval+?) 
+;; 
+;; pitch-: <pitch>    <pitch>     -> <interval>
+;;         <pitch>    <interval>  -> <pitch> 
+;;         <interval> <interval>  -> <interval> (or a distinct interval-? 
+;;         <interval> <pitch>     -> ERROR? 
+
+(defgeneric pitch+ (object1 object2))
+(defgeneric pitch- (object1 object2))
+
+(defgeneric pitch> (object1 object2))
+(defgeneric pitch< (object1 object2))
+(defgeneric pitch>= (object1 object2)) 
+(defgeneric pitch<= (object1 object2))
+(defgeneric pitch= (object1 object2)) 
+(defgeneric pitch/= (object1 object2)) 
+
+;;; Interval protocol (emphasise _pitch_ not _time_ interval?) 
+
+(defgeneric interval> (object1 object2))
+(defgeneric interval< (object1 object2))
+(defgeneric interval>= (object1 object2)) 
+(defgeneric interval<= (object1 object2))
+(defgeneric interval= (object1 object2)) 
+(defgeneric interval/= (object1 object2)) 
+
+;;; Time Signature 
+;;; Tempo 
+;;; Tonality (Key Signature / Mode) 
+;;; Dynamics 
+;;; Voice 
+;;; Boundary Strength (phrasing)