Mercurial > hg > amuse
changeset 79:dc01096751af
implementations/mtp: implement segmentation for mtp backend
darcs-hash:20070713163437-c0ce4-59959032c152aadf21232af08cf14b5efa062268.gz
author | Marcus Pearce <m.pearce@gold.ac.uk> |
---|---|
date | Fri, 13 Jul 2007 17:34:37 +0100 |
parents | 14e32f4d61d0 |
children | 9f2282a2644e |
files | implementations/mtp/classes.lisp implementations/mtp/methods.lisp implementations/mtp/package.lisp |
diffstat | 3 files changed, 29 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/mtp/classes.lisp Fri Jul 13 17:31:44 2007 +0100 +++ b/implementations/mtp/classes.lisp Fri Jul 13 17:34:37 2007 +0100 @@ -1,5 +1,11 @@ (cl:in-package #:amuse-mtp) +(defclass mtp-after-segmenter (ground-truth-segmenter after-segmenter) + ()) + +(defclass mtp-before-segmenter (ground-truth-segmenter before-segmenter) + ()) + (defclass mtp-dataset-identifier (identifier) ((dataset-id :initarg :dataset-id :accessor dataset-id)))
--- a/implementations/mtp/methods.lisp Fri Jul 13 17:31:44 2007 +0100 +++ b/implementations/mtp/methods.lisp Fri Jul 13 17:34:37 2007 +0100 @@ -208,3 +208,19 @@ ;; (event-accidental e) ;; octave) ) + +;;; Phrase boundaries + +(defmethod boundary-strength ((s mtp-before-segmenter) (e mtp-event) c) + (declare (ignore s c)) + (let ((phrase (%mtp-phrase e))) + (case phrase + (-1 1) + (t 0)))) + +(defmethod boundary-strength ((s mtp-after-segmenter) (e mtp-event) c) + (declare (ignore s c)) + (let ((phrase (%mtp-phrase e))) + (case phrase + (1 1) + (t 0))))
--- a/implementations/mtp/package.lisp Fri Jul 13 17:31:44 2007 +0100 +++ b/implementations/mtp/package.lisp Fri Jul 13 17:34:37 2007 +0100 @@ -1,10 +1,15 @@ (cl:defpackage #:amuse-mtp - (:use #:common-lisp #:amuse #:amuse-utils) + (:use #:common-lisp #:amuse #:amuse-utils #:amuse-segmentation) (:export ;; classes #:mtp-dataset + #:mtp-composition ;; accessors #:get-dataset ;; identifier constructors #:make-mtp-composition-identifier - #:make-mtp-dataset-identifier)) + #:make-mtp-dataset-identifier + ;; phrase boundary classes + #:mtp-after-segmenter + #:mtp-before-segmenter + ))