cpvnormalize_safe ( v1: cpVect -- v2: cpVect )


Vocabulary
chipmunk.ffi

Inputs
v1a cpVect


Outputs
v2a cpVect


Definition
USING: accessors kernel typed ;

IN: chipmunk.ffi

TYPED: cpvnormalize_safe ( v1: cpVect -- v2: cpVect )
dup [ x>> 0.0 = ] [ y>> 0.0 = ] bi and
[ drop cpvzero ] [ cpvnormalize ] if ; inline