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

add a "vmask" vector op to selectively zero out elements

db4
Joe Groff 2009-09-29 18:10:36 -05:00
parent 60a9c49056
commit 5e16592596
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -97,7 +97,9 @@ PRIVATE>
: vunordered? ( u v -- w ) [ unordered? ] { } 2map-as ; : vunordered? ( u v -- w ) [ unordered? ] { } 2map-as ;
: v= ( u v -- w ) [ = ] { } 2map-as ; : v= ( u v -- w ) [ = ] { } 2map-as ;
: v? ( ? u v -- w ) [ ? ] pick 3map-as ; : v? ( ? true false -- w ) [ ? ] pick 3map-as ;
: vmask ( u ? -- u' ) swap dup dup vbitxor v? ;
: vfloor ( u -- v ) [ floor ] map ; : vfloor ( u -- v ) [ floor ] map ;
: vceiling ( u -- v ) [ ceiling ] map ; : vceiling ( u -- v ) [ ceiling ] map ;