(xyz>loc) ( x y z -- xyloc zloc )

Vocabulary

game.input.demos.joysticks

Inputs

x	an object
y	an object
z	an object

Outputs

xyloc	an object
zloc	an object

Definition

USING: kernel ;

IN: game.input.demos.joysticks

: (xyz>loc) ( x y z -- xyloc zloc )
    [ [ 0.0 ] unless* ] tri@ [ (xy>loc) ] dip (z>loc) ;