rotate-with-mouse ( world mouse -- )

Vocabulary

gpu.util.wasd

Inputs

world	an object
mouse	an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: gpu.util.wasd

: rotate-with-mouse ( world mouse -- )
    [
        [ dup wasd-mouse-scale ] [ dx>> ] bi* * [ + ] curry
        change-yaw
    ] [
        [ dup wasd-mouse-scale ] [ dy>> ] bi* * [ + ] curry
        change-pitch clamp-pitch
    ] bi drop ;