procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Permit non-integral color gradients

Browse source 
* lisp/color.el (color-gradient): Float the step-number.
This commit is contained in:
Mark Oteiza 2017-09-13 09:59:37 -04:00
parent 61b8f9c490
commit 8d433d9b22
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/color.el
View file

@ -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))