;; this file:
;;   https://dataswamp.org/~incal/common-lisp/general-base/color.lisp

(defun random-color-channel (&optional (min 0.0) (max 1.0))
  (+ min (random (- max min))) )

(defun random-color ()
  (let ((r (random-color-channel))
        (g (random-color-channel))
        (b (random-color-channel)) )
    (gl:color r g b) ))