Mercurial > hg > amuse
changeset 76:4ad1427d46d8
tools/segmentation: remove basic-segmenter
* remove last vestiges of basic-segmenter
* export new segmenter subclasses
darcs-hash:20070713113949-c0ce4-6386dbace0783bd252bfc7abf370cb580841f365.gz
| author | Marcus Pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Fri, 13 Jul 2007 12:39:49 +0100 |
| parents | 6b2ac9eef629 |
| children | edc6633e09ce |
| files | tools/segmentation/methods.lisp tools/segmentation/package.lisp |
| diffstat | 2 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/tools/segmentation/methods.lisp Fri Jul 13 12:23:22 2007 +0100 +++ b/tools/segmentation/methods.lisp Fri Jul 13 12:39:49 2007 +0100 @@ -1,6 +1,6 @@ (in-package "AMUSE-SEGMENTATION") -(defmethod boundary-time ((segmenter basic-segmenter) (object anchored-period-designator)) +(defmethod boundary-time (segmenter (object anchored-period-designator)) (if (segments-beforep segmenter) (onset object) (cut-off object)))
--- a/tools/segmentation/package.lisp Fri Jul 13 12:23:22 2007 +0100 +++ b/tools/segmentation/package.lisp Fri Jul 13 12:39:49 2007 +0100 @@ -1,7 +1,9 @@ (cl:defpackage #:amuse-segmentation (:use #:common-lisp #:amuse #:amuse-utils #:midi) (:export #:segmenter - #:basic-segmenter + #:before-segmenter + #:after-segmenter + #:ground-truth-segmenter #:boundary-strength #:boundary-time #:ground-truth-segmenter-before @@ -9,5 +11,4 @@ #:ground-truth-segmenterp #:segments-beforep #:segments-afterp - #:make-basic-segmenter - #:map-segmenters)) \ No newline at end of file + #:map-segmenters))