cpPolyShapeContainsVertPartial ( poly: cpPolyShape v: cpVect n: cpVect -- ? )

Vocabulary

chipmunk.ffi

Inputs

poly	a cpPolyShape
v	a cpVect
n	a cpVect

Outputs

?

an object

Definition

USING: accessors alien.data kernel locals.backend math
math.order sequences typed ;

IN: chipmunk.ffi

TYPED: cpPolyShapeContainsVertPartial
    ( poly: cpPolyShape v: cpVect n: cpVect -- ? )
    rot
    [ numVerts>> ]
    [ tAxes>> swap cpPolyShapeAxis <c-direct-array> ] bi -rot [
        3 load-locals -2 get-local n>> 0 get-local cpvdot 0.0 <
        0 [ 0.0 ] -2 get-local -1 get-local [
            2 load-locals -1 get-local n>> 0 get-local cpvdot
            -1 get-local d>> - 2 drop-locals
        ] curry curry if 3 drop-locals
    ] 2curry [ max ] reduce 0.0 <= ; inline