; MouseZSpeed Example
; -------------------

Graphics 640,480,0,2
SetBuffer BackBuffer()

ang#=0

While Not KeyDown(1)

    Cls

    ; MouseZSpeed returns the wheel movement since the last call:
    ; -1 rolled towards you, 0 still, 1 rolled away from you.
    zs=MouseZSpeed()

    ; Spin the radar sweep arm with the wheel
    ang=ang+zs*15

    ; Radar dish: a circle with the rotating sweep arm inside
    Color 0,170,0
    Oval 220,140,200,200,False
    Line 320,240,320+Cos(ang)*95,240+Sin(ang)*95

    Color 255,255,255
    Text 0,0,"Roll the mouse wheel to spin the radar arm   Esc: exit"
    Text 0,20,"MouseZSpeed() this frame: "+zs+"   arm angle: "+Int(ang)

    Flip

Wend

End