50 lines
1.2 KiB
Plaintext
50 lines
1.2 KiB
Plaintext
|
|
(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))
|
|
|
|
(define-typed (lerper a :number b :number)
|
|
(define-typed (ret t :number)
|
|
(lerp a b t))
|
|
ret)
|
|
|
|
(define-typed (stepped-lerper a :number b :number #steps :number)
|
|
(let ((t 0)
|
|
(dt (/ 1 #steps)))
|
|
(lambda ()
|
|
(let ((res (lerp a b t)))
|
|
(mutate t (+ t dt))
|
|
res))))
|
|
|
|
(define make-point pair)
|
|
(define point->x first)
|
|
(define point->y rest)
|
|
|
|
(define (point-lerp p1 p2 t)
|
|
(make-point (lerp (point->x p1) (point->x p2) t)
|
|
(lerp (point->y p1) (point->y p2) t)))
|
|
|
|
(define (point-lerper p1 p2)
|
|
(lambda (t) (point-lerp p1 p2 t)))
|
|
|
|
(define (bezier2 p1 p2 p3 t)
|
|
(point-lerp (point-lerp p1 p2 t)
|
|
(point-lerp p2 p3 t)
|
|
t))
|
|
|
|
(define (bezierer2 p1 p2 p3)
|
|
(let ((lerper1 (point-lerper p1 p2))
|
|
(lerper2 (point-lerper p2 p3)))
|
|
(lambda (t)
|
|
(point-lerp (lerper1 t)
|
|
(lerper2 t) t))))
|
|
)
|
|
|
|
|
|
(define sl1 (interpolation::stepped-lerper 0 1 5))
|
|
(define sl2 (interpolation::stepped-lerper 10 -10 20))
|