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

(in-package :user)

(#+symbolics future-common-lisp:defpackage
 #-symbolics defpackage
 "MIKE-UTILS"
 (:nicknames "MU")
 (:use "LISP" "*LISP")

  ;; The following symbols are defined in both scl and *lisp.  To avoid name conflicts,
  ;; we could favor one package over the other, but that might result in obscure
  ;; errors.  Create shadowing symbols instead so that references to these symbols
  ;; in either package must specify the package name explicitly.

 (:shadow "ADD-INITIALIZATION" "DELETE-INITIALIZATION" "BOOLEAN")

 (:import-from "*LX"
  "*DEF-BOOLEAN"
  "*DEF-FIELD"
  "*DEF-SIGNED"
  "WITH-TEMP-PVARS")

 (:import-from "CMV"
  "*READ-RASTER-FROM-CM-GRID"
  "*WRITE-RASTER-TO-CM-GRID"
  "WRITE-RASTER-TO-CM-GRID!!")

 ;; Yuk!
 (:import-from "*LISP-I"
  "*ALL-ALLOCATE!!-PVARS*"
  ;; "*DEFAULT-USER-DEFVARS*"
  ))



;;; UTILITIES to manipulate color screen
(#+symbolics future-common-lisp:defpackage
 #-symbolics defpackage
 "SPECTRAL"
 (:nicknames "SPE")
 (:use "LISP")
 (:import-from "CMV"
  "*FRAME-WIDTH*"
  "*FRAME-HEIGHT*"
  "GRAB-FRAME"
  "MAKE-FRAME-RASTER")

 (:export
   "*COLOR-SCREEN*"
   "*COLOR-SLOT-BITS*"
   "*COLOR-SLOTS*"
   "*COLOR-VALUE-BITS*"
   "*COLOR-VALUES*"
   "*COLOR-WINDOW*"
   "*FRAME-HEIGHT*"
   "*FRAME-WIDTH*"
   "*MAX-COLOR-VALUE*"
   "*OVERLAY-BLUE*"
   "*OVERLAY-GREEN*"
   "*OVERLAY-RED*"
   "BLUE-AND-RED-MAP"
   "CLEAR-WINDOW"
   "COLOR-WINDOW"
   "GRAB-FRAME"
   "GREY-AND-INVERSE-SPECTRAL-MAP"
   "INIT-COLOR-SCREEN"
   "INIT-COLOR-WINDOW"
   "INTENSITY-MAP"
   "INTENSITY-MAP-WITH-COLORS"
   "INVERSE-SPECTRAL-MAP"
   "KILL-COLOR-WINDOW"
   "LINEAR-MAP"
   "MAKE-FRAME-RASTER"
   "OVERLAY-COLOR"
   "OVERLAY-MAP"
   "SHOW-COLOR"
   "SHOW-PALETTE"
   "SPECTRAL-MAP"
   "SPECTRAL-MAP-WITH-COLORS"
   ))