vector bilerp word
parent
c505c6f261
commit
b73c8a0619
|
@ -58,6 +58,10 @@ IN: math.vectors
|
||||||
: vnlerp ( a b t -- a_t )
|
: vnlerp ( a b t -- a_t )
|
||||||
[ lerp ] curry 2map ;
|
[ lerp ] curry 2map ;
|
||||||
|
|
||||||
|
: vbilerp ( aa ba ab bb {t,u} -- a_tu )
|
||||||
|
[ first vnlerp ] [ second vnlerp ] bi-curry
|
||||||
|
[ 2bi@ ] [ call ] bi* ;
|
||||||
|
|
||||||
HINTS: vneg { array } ;
|
HINTS: vneg { array } ;
|
||||||
HINTS: norm-sq { array } ;
|
HINTS: norm-sq { array } ;
|
||||||
HINTS: norm { array } ;
|
HINTS: norm { array } ;
|
||||||
|
|
Loading…
Reference in New Issue