bounce-off-wall ( BALL -- )


Vocabulary
pong

Inputs
BALLan object


Outputs
None

Definition
USING: accessors kernel math sequences ;

IN: pong

: bounce-off-wall ( BALL -- ) 0 swap vel>> [ neg ] change-nth ;