cpArbiterGetNormal ( arb: cpArbiter i -- n: cpVect )

Vocabulary

chipmunk.ffi

Inputs

arb	a cpArbiter
i	an object

Outputs

n

a cpVect

Definition

USING: accessors alien.c-types alien.data classes.struct kernel
sequences typed ;

IN: chipmunk.ffi

TYPED: cpArbiterGetNormal ( arb: cpArbiter i -- n: cpVect )
    [
        swap
        [ numContacts>> ]
        [ contacts>> swap void* <c-direct-array> ] bi nth
        cpContact memory>struct n>>
    ] [ drop swappedColl>> 0 = [ cpvneg ] unless ] 2bi ; inline