comparison implementations/geerdes/methods.lisp @ 136:fd85f52d9f9d

Class revolution

* PITCH-DESIGNATOR -> PITCH (PITCH removed)
* MOMENT-DESIGNATOR -> MOMENT , MOMENT -> STANDARD-MOMENT
* PERIOD-DESIGNATOR -> PERIOD , PERIOD -> STANDARD-PERIOD
* ANCHORED-PERIOD-DESIGNATOR -> ANCHORED-PERIOD , ANCHORED-PERIOD -> STANDARD-ANCHORED-PERIOD
* FLOATING-PERIOD removed
* TIME-SIGNATURE-DESIGNATOR -> TIME-SIGNATURE & TIME-SIGNATURE-PERIOD
* TIME-SIGNATURE -> STANDARD-TIME-SIGNATURE & STANDARD-TIME-SIGNATURE-PERIOD
* KEY-SIGNATURE-DESIGNATOR -> KEY-SIGNATURE (& ...-PERIOD)
* KEY-SIGNATURE -> STANDARD-KEY-SIGNATURE (& ...-PERIOD)
* TEMPO now abstract (& TEMPO-PERIOD)
* STANDARD-TEMPO AND STANDARD-TEMPO-PERIOD
* COMPOSITION, CONSTITUENT & TIME-ORDERED-CONSTITUENT all have STANDARD- forms

make-x methods and specialisers changes appropriately

darcs-hash:20070831142943-f76cc-7be0d08963de06d87b36e4922076287d565c7ee2.gz

   (= (midi-channel event) 4))
 
 (defmethod crotchet ((object geerdes-object))
   (make-instance 'floating-period :interval 1))
 
-(defmethod get-applicable-time-signatures ((anchored-period anchored-period) (composition midi-composition))
+(defmethod get-applicable-time-signatures ((anchored-period anchored-period)
+					   (composition midi-composition))
   (%find-overlapping anchored-period (time-signatures composition)))
-(defmethod get-applicable-tempi ((anchored-period anchored-period) (composition midi-composition))
+(defmethod get-applicable-tempi ((anchored-period anchored-period)
+				 (composition midi-composition))
   (%find-overlapping anchored-period (tempi composition)))
-(defmethod get-applicable-key-signatures ((anchored-period anchored-period) (composition midi-composition))
+(defmethod get-applicable-key-signatures ((anchored-period anchored-period)
+					  (composition midi-composition))
   (%find-overlapping anchored-period (key-signatures composition)))
 
 (defparameter *stuff* nil)
 (defun %find-overlapping (period1 period-list)
   (let ((result-list))