Mercurial > hg > amuse
changeset 265:b75b45d76e45
add ioi-from-bar method to amuse-mtp
| author | Jamie Forth <j.forth@gold.ac.uk> |
|---|---|
| date | Sun, 10 Apr 2011 16:59:24 +0100 |
| parents | 5090d02f7a83 |
| children | d605fd37b0ee |
| files | implementations/mtp/methods.lisp |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)))