USING: accessors kernel math typed ;

IN: chipmunk.ffi

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