move-computer-by ( GADGET N -- )

Vocabulary

pong

Inputs

GADGET	an object
N	an object

Outputs

None

Definition

USING: accessors kernel math math.order ;

IN: pong

: move-computer-by ( GADGET N -- )
    [ + 10 390 PADDLE-SIZE - clamp ] curry change-computer drop
    ;