# HG changeset patch
# User David Lewis <d.lewis@gold.ac.uk>
# Date 1183482032 -3600
# Node ID 5b02163ade2a6c3cd526a51dad84d856afe7a727
# Parent  c8f1b0ab0007849fb82c7195a987fde1511b4c8e
inter-onset-intervals bug fix

darcs-hash:20070703170032-f76cc-2d3105245bacbb8eb25a568ac8a710af1a07c7af.gz

diff -r c8f1b0ab0007 -r 5b02163ade2a utils/utils.lisp
--- a/utils/utils.lisp	Thu Jun 28 15:49:00 2007 +0100
+++ b/utils/utils.lisp	Tue Jul 03 18:00:32 2007 +0100
@@ -261,13 +261,13 @@
   ;; here?
   ;; FIXME: Should I (do I) filter out 0s?
   (let ((i-o-i-list) (i-o-i-secs-list) (prev)
-	(hits (make-array (/ 32 rounding-divisor))))
+	(hits (make-array (1+ (/ 32 rounding-divisor)))))
     (loop for event being the elements of composition
        do (progn
 	    (when prev
 	      (let* ((i-o-i-period (inter-onset-interval prev event))
 		     (i-o-i (duration i-o-i-period))
-		     (i-o-i-secs (amuse-utils:beats-to-seconds i-o-i-period composition)))
+		     (i-o-i-secs (beats-to-seconds i-o-i-period composition)))
 		(when (= i-o-i-secs 0)
 		  (format t "~D, ~D -- " (timepoint prev) (timepoint event)))
 		(push i-o-i i-o-i-list)