ball follows the mouse around

ball.elm

import Mouse
import Window

scene (x,y) (w,h) =
  collage w h
    [ 
      circle 10   |> filled blue
                  |> move (x - toFloat w / 2, toFloat h / 2 - y)
    ]

main = scene <~ Mouse.position ~ Window.dimensions