steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

clean up vector lerp functions to be better vectorizable

db4
Joe Groff 2009-10-20 14:36:36 -05:00
parent b212e8edd0
commit 34344be636
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/math/vectors/vectors.factor
View File

@ -167,20 +167,20 @@ PRIVATE>
: bilerp ( aa ba ab bb {t,u} -- a_tu ) : bilerp ( aa ba ab bb {t,u} -- a_tu )
[ first lerp ] [ second lerp ] bi-curry [ first lerp ] [ second lerp ] bi-curry
[ 2bi@ ] [ call ] bi* ; [ 2bi@ ] [ call ] bi* ; inline
: vlerp ( a b t -- a_t ) : vlerp ( a b t -- a_t )
[ lerp ] 3map ; [ over v- ] dip v* v+ ; inline
: vnlerp ( a b t -- a_t ) : vnlerp ( a b t -- a_t )
[ lerp ] curry 2map ; [ over v- ] dip v*n v+ ; inline
: vbilerp ( aa ba ab bb {t,u} -- a_tu ) : vbilerp ( aa ba ab bb {t,u} -- a_tu )
[ first vnlerp ] [ second vnlerp ] bi-curry [ first vnlerp ] [ second vnlerp ] bi-curry
[ 2bi@ ] [ call ] bi* ; [ 2bi@ ] [ call ] bi* ; inline
: v~ ( a b epsilon -- ? ) : v~ ( a b epsilon -- ? )
[ ~ ] curry 2all? ; [ ~ ] curry 2all? ; inline
HINTS: vneg { array } ; HINTS: vneg { array } ;
HINTS: norm-sq { array } ; HINTS: norm-sq { array } ;