[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8d433d9 1/2: Permit non-integral color gradients
From: |
Mark Oteiza |
Subject: |
[Emacs-diffs] master 8d433d9 1/2: Permit non-integral color gradients |
Date: |
Wed, 13 Sep 2017 10:01:51 -0400 (EDT) |
branch: master
commit 8d433d9b22d2c5f209cb27e80c13576e6d1bf9b7
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>
Permit non-integral color gradients
* lisp/color.el (color-gradient): Float the step-number.
---
lisp/color.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/color.el b/lisp/color.el
index 6dbf3d5..ddd0fdb 100644
--- a/lisp/color.el
+++ b/lisp/color.el
@@ -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))