# HG changeset patch
# User Marcus Pearce <m.pearce@gold.ac.uk>
# Date 1184326789 -3600
# Node ID 4ad1427d46d85ad6d3ea25d8d463cf933ad1af70
# Parent  6b2ac9eef62930763169d196b3037337900bcb04
tools/segmentation: remove basic-segmenter

* remove last vestiges of basic-segmenter
* export new segmenter subclasses

darcs-hash:20070713113949-c0ce4-6386dbace0783bd252bfc7abf370cb580841f365.gz

diff -r 6b2ac9eef629 -r 4ad1427d46d8 tools/segmentation/methods.lisp
--- 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)))
diff -r 6b2ac9eef629 -r 4ad1427d46d8 tools/segmentation/package.lisp
--- 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))