(collide) ( segment location -- location' )

Vocabulary

terrain

Inputs

segment	an object
location	an object

Outputs

location'

an object

Definition

USING: kernel math math.vectors math.vectors.simd ;

IN: terrain

: (collide) ( segment location -- location' )
    [
        { 0 2 3 3 } vshuffle terrain-height-at PLAYER-HEIGHT +
        -1/0. swap -1/0. -1/0. float-4-boa
    ] keep vmax ; inline