# HG changeset patch
# User Marcus Pearce <m.pearce@gold.ac.uk>
# Date 1248266265 -3600
# Node ID 548f42fb42f5319c22358cad5c33f1aa3fe5b2c2
# Parent  c18f795f4463a9d36a7405c6de91d5d0b8f9dfd2
Handle missing time signature in MTP implementation of GET-APPLICABLE-TIME-SIGNATURES.

darcs-hash:20090722123745-c0ce4-b153c9962f3d9f4cc6ce2a44cf1c3a65951c3ce7.gz

diff -r c18f795f4463 -r 548f42fb42f5 implementations/mtp/methods.lisp
--- a/implementations/mtp/methods.lisp	Sun May 24 17:41:16 2009 +0100
+++ b/implementations/mtp/methods.lisp	Wed Jul 22 13:37:45 2009 +0100
@@ -150,12 +150,17 @@
 
 (defmethod get-applicable-time-signatures ((e mtp-event) c)
   (declare (ignore c))
-  (let ((pulses (%mtp-pulses e))
-        (barlength (%mtp-barlength e))
-        (timebase (* 4 (duration (crotchet e)))))
-    (list 
-     (amuse:make-standard-time-signature-period pulses 
-						(/ timebase (/ barlength pulses))
+  ;(format t "~&GATS ~A ~A ~A: pulses = ~A; barlength = ~A.~%" (dataset-id e) (composition-id e) (event-id e) (%mtp-pulses e) (%mtp-barlength e))
+  (let* ((pulses (%mtp-pulses e))
+         (barlength (%mtp-barlength e))
+         (timebase (* 4 (duration (crotchet e))))
+         (numerator (if (null pulses) 0 pulses))
+         (denominator (if (null barlength)
+                          1
+                          (/ timebase (/ barlength pulses)))))
+    (list
+     (amuse:make-standard-time-signature-period numerator
+                                                denominator
 						(timepoint e) 
 						(duration e)))))