(handle-mouse-motion) ( jamshred-gadget mouse-motion -- )


Vocabulary
jamshred

Inputs
jamshred-gadgetan object
mouse-motionan object


Outputs
None

Definition
USING: accessors jamshred.game kernel sequences ;

IN: jamshred

: (handle-mouse-motion) ( jamshred-gadget mouse-motion -- )
dupd [ first swap x>radians ] [ second swap y>radians ] 2bi
rot jamshred>> mouse-moved ;