vector bilerp word

2009-05-20 10:26:55 -05:00 · 2009-05-20 10:26:55 -05:00 · b73c8a0619
parent c505c6f261
commit b73c8a0619
1 changed files with 4 additions and 0 deletions
--- a/basis/math/vectors/vectors.factor
+++ b/basis/math/vectors/vectors.factor
@ -58,6 +58,10 @@ IN: math.vectors
 : vnlerp ( a b t -- a_t )
    [ 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: norm-sq { array } ;
 HINTS: norm { array } ;