rotate-with-mouse ( player mouse -- )

Vocabulary

terrain

Inputs

player	an object
mouse	an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: terrain

: rotate-with-mouse ( player mouse -- )
    [ dx>> MOUSE-SCALE * look-horizontally ]
    [ dy>> MOUSE-SCALE * look-vertically ] 2bi ;