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

(in-package :mu)

;;; Copyright (c) 1988, Massachusetts Institute of Technology
;;; Author: Walter E. Gillett

#+symbolics
(defun REQUIRE-SYMBOLICS-COLOR ()
  (if (not (find-package 'color))
      (error "Package color is not defined.  Load the color system.")))

#+symbolics
(defun REQUIRE-COLOR-HARDWARE ()
  (require-symbolics-color)
  (if (not (color:color-exists-p))
      (error "Either no color hardware is available or you need to load the system lxb-color.")))

#+symbolics
(defun REQUIRE-LXB-COLOR ()
  (require-color-hardware)
  (if (not (find-package 'lxb-color))
      (error "Package lxb-color is not defined.  Load the lxb-color system.")))


(defun REQUIRE-SPE-COLOR ()
  #+symbolics (require-lxb-color)
  (if (not (find-package 'spectral))
      (error "Package spectral is not defined.  Load the file cmv:cmv;color.")))

(defun REQUIRE-COLOR-WINDOW ()
  "Make sure that a color window is available on which to draw."
  (require-spe-color)				;check for the necessary software/hardware
  (cond ((not spe:*color-window*)
	 (format t "~%Initializing the color window.")
	 (spe:init-color-window :always t))))