|
m@3
|
1 (cl:in-package #:amuse)
|
|
m@3
|
2
|
|
m@0
|
3 ;;; Accessors (do we need the get- prefix?)
|
|
m@0
|
4
|
|
m@0
|
5 (defgeneric get-pitch (object &key kind)) ; ?
|
|
m@0
|
6 (defgeneric get-chromatic-pitch (object))
|
|
m@0
|
7 (defgeneric get-diatonic-pitch (object))
|
|
m@0
|
8 (defgeneric get-frequency (object))
|
|
m@0
|
9
|
|
m@0
|
10 (defgeneric get-duration (object))
|
|
m@0
|
11
|
|
m@0
|
12 (defgeneric get-onset (object)) ; get-time?
|
|
m@0
|
13
|
|
m@0
|
14
|
|
m@0
|
15 ;;; Time Protocol (or moments?)
|
|
m@0
|
16
|
|
m@0
|
17 ;; negative times/durations -> ERROR?
|
|
m@0
|
18
|
|
m@0
|
19 ;; time+: <time> <duration> -> <time>
|
|
m@0
|
20 ;; <duration> <time> -> <time> (same as previous?)
|
|
m@0
|
21 ;; <duration> <duration> -> <duration> (or a distinct duration+?)
|
|
m@0
|
22 ;; <time> <time> -> ERROR?
|
|
m@0
|
23 ;;
|
|
m@0
|
24 ;; time-: <time> <time> -> <duration>
|
|
m@0
|
25 ;; <time> <duration> -> <time>
|
|
m@0
|
26 ;; <duration> <duration> -> <duration> (or a distinct duration-?)
|
|
m@0
|
27 ;; <duration> <time> -> ERROR?
|
|
m@0
|
28
|
|
m@0
|
29 (defgeneric time+ (object1 object2))
|
|
m@0
|
30 (defgeneric time- (object1 object2))
|
|
m@0
|
31
|
|
m@0
|
32 (defgeneric time> (object1 object2))
|
|
m@0
|
33 (defgeneric time< (object1 object2))
|
|
m@0
|
34 (defgeneric time>= (object1 object2))
|
|
m@0
|
35 (defgeneric time<= (object1 object2))
|
|
m@0
|
36 (defgeneric time= (object1 object2))
|
|
m@0
|
37 (defgeneric time/= (object1 object2))
|
|
m@0
|
38
|
|
m@0
|
39 ;;; Duration protocol
|
|
m@0
|
40
|
|
m@0
|
41 (defgeneric duration> (object1 object2))
|
|
m@0
|
42 (defgeneric duration< (object1 object2))
|
|
m@0
|
43 (defgeneric duration>= (object1 object2))
|
|
m@0
|
44 (defgeneric duration<= (object1 object2))
|
|
m@0
|
45 (defgeneric duration= (object1 object2))
|
|
m@0
|
46 (defgeneric duration/= (object1 object2))
|
|
m@0
|
47
|
|
m@0
|
48
|
|
m@0
|
49 ;;; Pitch protocol
|
|
m@0
|
50
|
|
m@0
|
51 ;; pitch+: <pitch> <pitch> -> <pitch>
|
|
m@0
|
52 ;; <pitch> <interval> -> <pitch>
|
|
m@0
|
53 ;; <interval> <pitch> -> <pitch> (same as previous?)
|
|
m@0
|
54 ;; <interval> <interval> -> <interval> (or a distinct interval+?)
|
|
m@0
|
55 ;;
|
|
m@0
|
56 ;; pitch-: <pitch> <pitch> -> <interval>
|
|
m@0
|
57 ;; <pitch> <interval> -> <pitch>
|
|
m@0
|
58 ;; <interval> <interval> -> <interval> (or a distinct interval-?
|
|
m@0
|
59 ;; <interval> <pitch> -> ERROR?
|
|
m@0
|
60
|
|
m@0
|
61 (defgeneric pitch+ (object1 object2))
|
|
m@0
|
62 (defgeneric pitch- (object1 object2))
|
|
m@0
|
63
|
|
m@0
|
64 (defgeneric pitch> (object1 object2))
|
|
m@0
|
65 (defgeneric pitch< (object1 object2))
|
|
m@0
|
66 (defgeneric pitch>= (object1 object2))
|
|
m@0
|
67 (defgeneric pitch<= (object1 object2))
|
|
m@0
|
68 (defgeneric pitch= (object1 object2))
|
|
m@0
|
69 (defgeneric pitch/= (object1 object2))
|
|
m@0
|
70
|
|
m@0
|
71 ;;; Interval protocol (emphasise _pitch_ not _time_ interval?)
|
|
m@0
|
72
|
|
m@0
|
73 (defgeneric interval> (object1 object2))
|
|
m@0
|
74 (defgeneric interval< (object1 object2))
|
|
m@0
|
75 (defgeneric interval>= (object1 object2))
|
|
m@0
|
76 (defgeneric interval<= (object1 object2))
|
|
m@0
|
77 (defgeneric interval= (object1 object2))
|
|
m@0
|
78 (defgeneric interval/= (object1 object2))
|
|
m@0
|
79
|
|
m@0
|
80 ;;; Time Signature
|
|
m@0
|
81 ;;; Tempo
|
|
m@0
|
82 ;;; Tonality (Key Signature / Mode)
|
|
m@0
|
83 ;;; Dynamics
|
|
m@0
|
84 ;;; Voice
|
|
m@0
|
85 ;;; Boundary Strength (phrasing)
|
