implement vectors
This commit is contained in:
@@ -1,5 +1,8 @@
|
||||
|
||||
(define-package interpolation
|
||||
(define-module interpolation
|
||||
:exports (lerp lerper stepped-lerper
|
||||
point-lerp point-lerper
|
||||
bezier2 bezierer2)
|
||||
|
||||
(define-typed (lerp a :number b :number t :number)
|
||||
(+ (* t (- b a)) a))
|
||||
@@ -43,5 +46,5 @@
|
||||
)
|
||||
|
||||
|
||||
(define sl1 (interpolation-> stepped-lerper 0 1 5))
|
||||
(define sl2 (interpolation-> stepped-lerper 10 -10 20))
|
||||
(define sl1 (interpolation::stepped-lerper 0 1 5))
|
||||
(define sl2 (interpolation::stepped-lerper 10 -10 20))
|
||||
|
||||
Reference in New Issue
Block a user