# HG changeset patch
# User Jamie Forth <j.forth@gold.ac.uk>
# Date 1302451164 -3600
# Node ID b75b45d76e459996e5524bbc5b603cdd9e5b8d50
# Parent  5090d02f7a834ffcf0111c985b5ad77ecdd4b9e3
add ioi-from-bar method to amuse-mtp

diff -r 5090d02f7a83 -r b75b45d76e45 implementations/mtp/methods.lisp
--- a/implementations/mtp/methods.lisp	Sun Apr 10 16:58:07 2011 +0100
+++ b/implementations/mtp/methods.lisp	Sun Apr 10 16:59:24 2011 +0100
@@ -315,3 +315,8 @@
     (case phrase
       (1 1)
       (t 0))))
+
+;;; Metre related
+
+(defmethod ioi-from-bar ((event mtp-event))
+  (mod (timepoint event) (%mtp-barlength event)))