collide ( world: terrain-world player: player -- )

Vocabulary

terrain

Inputs

world	a terrain-world
player	a player

Outputs

None

Definition

USING: accessors kernel math.vectors typed ;

IN: terrain

TYPED:: collide ( world: terrain-world player: player -- )
    world terrain-segment>> :> segment player location>>
    :> location segment location (collide)
    :> location' location location' = not [
        player location' >>location
        [ BOUNCE v* ] change-velocity drop
    ] when ;