gistfile1.txt

import Graphics.Element exposing (..)
import Mouse
import Color exposing (..)
import Graphics.Collage exposing (..)
import Window

main : Signal Element
main =
     Signal.map2 scene Mouse.position Window.dimensions

scene : (Int,Int) -> (Int,Int) -> Element
scene (x,y) (w, h) =
  let
    (dx,dy) =
      (toFloat x - toFloat w / 2, toFloat h / 2 - toFloat y)
  in
    collage w h
      [ blueSquare |> move (dx, dy) ]

blueSquare : Form
blueSquare =
  traced (dashed blue) square

square : Path
square =
  path [ (50,50), (50,-50), (-50,-50), (-50,50), (50,50) ]