cpvrotate ( v1: cpVect v2: cpVect -- v3: cpVect )


Vocabulary
chipmunk.ffi

Inputs
v1a cpVect
v2a cpVect


Outputs
v3a cpVect


Definition
USING: accessors kernel math typed ;

IN: chipmunk.ffi

TYPED: cpvrotate ( v1: cpVect v2: cpVect -- v3: cpVect )
[ [ [ x>> ] bi@ * ] [ [ y>> ] bi@ * ] 2bi - ] [
[ [ x>> ] [ y>> ] bi* * ] [ [ y>> ] [ x>> ] bi* * ] 2bi
+
] 2bi cpv ; inline