summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sly/math.scm14
1 files changed, 7 insertions, 7 deletions
diff --git a/sly/math.scm b/sly/math.scm
index 90545ac..0f55671 100644
--- a/sly/math.scm
+++ b/sly/math.scm
@@ -114,13 +114,13 @@ actually less than MAX."
(* x x))
(define (make-lerp + *)
- "Return a new procedure that accepts three arguments: A, B, and
-ALPHA. The returned procedure uses the procedures + and * to linearly
-interpolate a value between A and B. ALPHA should always be in the
-range [0, 1]."
- (lambda (a b alpha)
- (+ (* a (- 1 alpha))
- (* b alpha))))
+ "Return a new procedure that accepts three arguments: START, END,
+and ALPHA. The returned procedure uses the procedures + and * to
+linearly interpolate a value between START and END. ALPHA should
+always be in the range [0, 1]."
+ (lambda (start end alpha)
+ (+ (* start (- 1 alpha))
+ (* end alpha))))
(define lerp (make-lerp + *))