;; this file:
;;   https://dataswamp.org/~incal/cl/general-base/math.lisp

(defun random-limit (&optional (limit 2.0))
  (- (random (* 2 limit)) limit) )

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