initial-state ( gadget -- gadget )


Vocabulary
pong

Inputs
gadgetan object


Outputs
gadgetan object


Definition
USING: accessors kernel ;

IN: pong

: initial-state ( gadget -- gadget )
T{ ball { pos { 50 50 } } { vel { 3 4 } } } clone >>ball
200 >>player 200 >>computer f >>game-over? ;