Mercurial > hg > amuse
comparison tools/segmentation/methods.lisp @ 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 | fd85f52d9f9d |
comparison
equal
deleted
inserted
replaced
| 75:6b2ac9eef629 | 76:4ad1427d46d8 |
|---|---|
| 1 (in-package "AMUSE-SEGMENTATION") | 1 (in-package "AMUSE-SEGMENTATION") |
| 2 | 2 |
| 3 (defmethod boundary-time ((segmenter basic-segmenter) (object anchored-period-designator)) | 3 (defmethod boundary-time (segmenter (object anchored-period-designator)) |
| 4 (if (segments-beforep segmenter) | 4 (if (segments-beforep segmenter) |
| 5 (onset object) | 5 (onset object) |
| 6 (cut-off object))) | 6 (cut-off object))) |
| 7 (defmethod boundary-time (segmenter (object moment-designator)) | 7 (defmethod boundary-time (segmenter (object moment-designator)) |
| 8 object) | 8 object) |