{ $description "Returns a copy of " { $snippet "u" } " with the elements for which the corresponding element of " { $snippet "?" } " is false replaced by zero." } ;
HELP: v?
-{ $values { "?" "a sequence of booleans" } { "true" "a sequence of numbers" } { "false" "a sequence of numbers" } { "w" "a sequence of numbers" } }
-{ $description "Creates a new sequence by selecting elements from the " { $snippet "true" } " and " { $snippet "false" } " sequences based on whether the corresponding element of the " { $snippet "?" } " sequence is true or false." } ;
+{ $values { "mask" "a sequence of booleans" } { "true" "a sequence of numbers" } { "false" "a sequence of numbers" } { "w" "a sequence of numbers" } }
+{ $description "Creates a new sequence by selecting elements from the " { $snippet "true" } " and " { $snippet "false" } " sequences based on whether the corresponding bits of the " { $snippet "mask" } " sequence are set or not." } ;
{ 2map v+ v- v* v/ } related-words
: vunordered? ( u v -- w ) [ unordered? ] { } 2map-as ;
: v= ( u v -- w ) [ = ] { } 2map-as ;
-: v? ( ? true false -- w ) [ ? ] pick 3map-as ;
+: v? ( mask true false -- w )
+ [ vbitand ] [ vbitandn ] bi-curry* bi vbitor ; inline
-: vmask ( u ? -- u' ) swap dup dup vbitxor v? ;
+: vmask ( u ? -- u' ) vbitand ; inline
: vfloor ( u -- v ) [ floor ] map ;
: vceiling ( u -- v ) [ ceiling ] map ;
TYPED:: scale-matrix4 ( factors: float-4 -- matrix: matrix4 )
matrix4 (struct) :> c
- factors { t t t f } vmask :> factors'
+ factors float-4{ t t t f } vmask :> factors'
factors' { 0 3 3 3 } vshuffle
factors' { 3 1 3 3 } vshuffle
matrix4 (struct) :> c
float-4{ 0.0 0.0 0.0 1.0 } :> c4
- { t t t f } offset c4 v? :> offset'
+ float-4{ t t t f } offset c4 v? :> offset'
- offset' { 3 3 3 0 } vshuffle { t f f t } vmask
- offset' { 3 3 3 1 } vshuffle { f t f t } vmask
- offset' { 3 3 3 2 } vshuffle { f f t t } vmask
+ offset' { 3 3 3 0 } vshuffle float-4{ t f f t } vmask
+ offset' { 3 3 3 1 } vshuffle float-4{ f t f t } vmask
+ offset' { 3 3 3 2 } vshuffle float-4{ f f t t } vmask
c4
c set-rows ;
axis2 cc ones axis2 v- v* v+ :> diagonal
axis { 0 0 1 3 } vshuffle axis { 1 2 2 3 } vshuffle v* 1-c v*
- { t t t f } vmask :> triangle-a
+ float-4{ t t t f } vmask :> triangle-a
ss { 2 1 0 3 } vshuffle triangle-sign v* :> triangle-b
triangle-a triangle-b v+ :> triangle-lo
triangle-a triangle-b v- :> triangle-hi
matrix4 (struct) :> c
near near near far + 2 near far * * float-4-boa :> num
- { t t f f } xy near far - float-4-with v? :> denom
+ float-4{ t t f f } xy near far - float-4-with v? :> denom
num denom v/ :> fov
- fov { 0 0 0 0 } vshuffle { t f f f } vmask
- fov { 1 1 1 1 } vshuffle { f t f f } vmask
- fov { 2 2 2 3 } vshuffle { f f t t } vmask
+ fov { 0 0 0 0 } vshuffle float-4{ t f f f } vmask
+ fov { 1 1 1 1 } vshuffle float-4{ f t f f } vmask
+ fov { 2 2 2 3 } vshuffle float-4{ f f t t } vmask
float-4{ 0.0 0.0 -1.0 0.0 }
c set-rows ;