view tools/segmentation/classes.lisp @ 74:a98c2adfd420

initial segmentation idea

darcs-hash:20070713100751-f76cc-2cc54f680199ee8f8e7f620c5d46d1e4f059baec.gz

(in-package "AMUSE-SEGMENTATION")

(defclass segmenter () ()
  (:documentation "Base class for identifying segment-boundary
  methods."))

(defclass basic-segmenter (segmenter)
  ((direction :initarg :direction
	      :initform :after
	      :accessor %segmenter-direction)
   (ground-truthp :initarg :ground-truthp
		  :initform nil
		  :accessor %segmenter-ground-truthp)
   (method :initarg :method
	   :accessor %segmenter-method))
  (:documentation "Simple class for giving common segmenter
  info. Method takes a moment-designator and a composition and
  returns a positive number"))