Commit 8d433d9b authored by Mark Oteiza's avatar Mark Oteiza

Permit non-integral color gradients

* lisp/color.el (color-gradient): Float the step-number.
parent 61b8f9c4
......@@ -82,9 +82,10 @@ resulting list."
(let* ((r (nth 0 start))
(g (nth 1 start))
(b (nth 2 start))
(r-step (/ (- (nth 0 stop) r) (1+ step-number)))
(g-step (/ (- (nth 1 stop) g) (1+ step-number)))
(b-step (/ (- (nth 2 stop) b) (1+ step-number)))
(interval (float (1+ step-number)))
(r-step (/ (- (nth 0 stop) r) interval))
(g-step (/ (- (nth 1 stop) g) interval))
(b-step (/ (- (nth 2 stop) b) interval))
result)
(dotimes (_ step-number)
(push (list (setq r (+ r r-step))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment