cpPolyShapeContainsVert ( poly: cpPolyShape v: cpVect -- ? )

Vocabulary

chipmunk.ffi

Inputs

poly	a cpPolyShape
v	a cpVect

Outputs

?

an object

Definition

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

IN: chipmunk.ffi

TYPED: cpPolyShapeContainsVert
    ( poly: cpPolyShape v: cpVect -- ? )
    swap
    [ numVerts>> ]
    [ tAxes>> swap cpPolyShapeAxis <c-direct-array> ] bi swap
    [ [ [ n>> ] dip cpvdot ] [ drop d>> ] 2bi - ] curry
    [ max ] reduce 0.0 <= ; inline