diff options
author | David Thompson <dthompson2@worcester.edu> | 2014-10-03 11:57:02 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2014-10-03 11:57:02 -0400 |
commit | 283ec414e995fac7c8fc3024c94fd2113b1b701c (patch) | |
tree | 5dff4041f40ffc756651439463973c080af7fe81 /sly/math | |
parent | 88a9c7cf0a6e0555ec8a5d21deac972a0f05de2e (diff) |
transition: Move interpolation procedures to their relevant module.
* sly/color.scm (color-lerp): New procedure.
* sly/math.scm (make-lerp, lerp): New procedures.
* sly/math/vector.scm (vlerp): New procedure.
* sly/transition.scm (interpolator, number-interpolate,
vector-interpolate, color-interpolate): Delete procedures.
(guess-interpolator): Rewrite with 'match-lambda*'.
Diffstat (limited to 'sly/math')
-rw-r--r-- | sly/math/vector.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/sly/math/vector.scm b/sly/math/vector.scm index b9e0302..717c5f6 100644 --- a/sly/math/vector.scm +++ b/sly/math/vector.scm @@ -33,7 +33,7 @@ vector2? vector3? vector4? vx vy vz vw v+ v- v* vdot vcross - magnitude normalize)) + magnitude normalize vlerp)) (define-record-type <vector2> (vector2 x y) @@ -153,3 +153,5 @@ (vector3 (/ x m) (/ y m) (/ z m))) (($ <vector4> x y z w) (vector4 (/ x m) (/ y m) (/ z m) (/ w m))))))) + +(define vlerp (make-lerp v+ v*)) |