move-player ( GADGET -- )

Vocabulary

pong

Inputs

GADGET

an object

Outputs

None

Definition

USING: accessors math math.order namespaces sequences
ui.gestures ;

IN: pong

:: move-player ( GADGET -- )
    hand-loc get first PADDLE-SIZE 2 / - 10 390 PADDLE-SIZE -
    clamp GADGET player<< ;