;;; -*- Mode: Lisp; Syntax: Common-lisp; Package: User; Base: 10.; -*-

;;; Copyright (c) 1987, Massachusetts Institute of Technology
;;; Author: Walter Gillett

;;; System definition (under Release 7) for stereo code written in *lisp
;;; by Mike Drumheller.

;;;*****************************************************************************
;;; CHANGE HISTORY
;;;
;;; 9/30/87  Created.  (W. Gillett)
;;; 2/25/92  Ported to Lucid & HST. (P. O'Donnell)
;;;*****************************************************************************

(in-package :user)

(hst:define-system MIKE-STEREO7
    (:pretty-name "Mike's Stereo Code (*Lisp)"
     :short-name "mst"
     :default-package mu
     :default-pathname ;#+symbolics "vision:vm; stereo; mike-stereo7;"
		      #+symbolics "mw:/projects/vision/code/stereo/VM/stereo/"
		      #-symbolics "/projects/vision/code/stereo/VM/stereo/"
     :default-module-type :lisp
     :initial-status :experimental
     :maintaining-sites :ai
     :source-category :basic
     :distribute-sources t
     :distribute-binaries t
     )
;  (:module mike-starlisp7 mike-starlisp7 (:type :system))
  (:serial
    (:system mike-starlisp7 "../starlisp/defsystem.lisp")
    "parameters" "grabber" "random-vision" "interpolation" "warping"
    "support" "stereo" "display" "edge" "interface"))

;;; directory in which to save stereo data
(defvar *CALIBRATION-DATA-DIRECTORY* "b:>gillett>data>calibration>")