(in-package :cl-colors)
(defun rgb= (rgb1 rgb2 &optional (epsilon 1e-10))
(flet ((eps= (a b)
(<= (abs (- a b)) epsilon)))
(with-slots ((red1 red) (green1 green) (blue1 blue)) rgb1
(with-slots ((red2 red) (green2 green) (blue2 blue)) rgb2
(and (eps= red1 red2) (eps= green1 green2) (eps= blue1 blue2))))))
(defun test-hsv-rgb ()
(let* ((rgb (make-instance 'rgb
:red (random 1d0)
:green (random 1d0)
:blue (random 1d0)))
(hsv (rgb->hsv rgb))
(rgb2 (hsv->rgb hsv))
(result (rgb= rgb rgb2)))
(unless result
(format t "~a does not equal ~a~%" rgb rgb2))
result))
(dotimes (i 1000) (test-hsv-rgb))
(defun test-hue-combination (from to positivep)
(dotimes (i 21)
(format t "~a " (hue-combination from to (/ i 20) positivep))))
