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

darcs-hash:20090722123745-c0ce4-b153c9962f3d9f4cc6ce2a44cf1c3a65951c3ce7.gz

diff -r 6af1f19a4475 -r 2d2bc910c364 implementations/mtp/methods.lisp
--- a/implementations/mtp/methods.lisp	Thu Jul 16 18:02:08 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)))))