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