elm/Examples/elm-yesod/elm_source/mouse.elm


-- Move your mouse around above the canvas!

myBlue  = rgb 0 85 170
myGreen = rgba 28 267 85 0.5

scene (x,y) (w,h) =
  collage w h
    [ rotate (toFloat (x+y) / 1000) (filled myBlue (ngon 4 100 (200,200)))
    , filled myGreen (ngon 5 30 (x,y))
    ]

main = lift2 scene Mouse.position Window.dimensions
Fix colors 2012-06-25 11:56:55 +00:00
			`-- Move your mouse around above the canvas!`

			`myBlue = rgb 0 85 170`
Update Examples/elm-yesod to better match online interactive examples see http://elm-lang.org/edit/examples/ index.elm remove "box" fns (obsolete) disambiguate "link" fns (Text or Graphics) tested against ghc-7.4.1, Elm-0.7.1.1, yesod-1.1.7.1, elm-yesod-0.1.3 2013-03-02 15:24:43 +00:00			`myGreen = rgba 28 267 85 0.5`
* added the elmFile QuasiQuoter for embedding .elm files the elm-yesod example contains an example for how to use the elmFile QQ. Note: No spaces before and after the filename! 2012-05-28 15:24:57 +00:00
			`scene (x,y) (w,h) =`
Update Examples/elm-yesod to better match online interactive examples see http://elm-lang.org/edit/examples/ index.elm remove "box" fns (obsolete) disambiguate "link" fns (Text or Graphics) tested against ghc-7.4.1, Elm-0.7.1.1, yesod-1.1.7.1, elm-yesod-0.1.3 2013-03-02 15:24:43 +00:00			`collage w h`
			`[ rotate (toFloat (x+y) / 1000) (filled myBlue (ngon 4 100 (200,200)))`
			`, filled myGreen (ngon 5 30 (x,y))`
			`]`
* added the elmFile QuasiQuoter for embedding .elm files the elm-yesod example contains an example for how to use the elmFile QQ. Note: No spaces before and after the filename! 2012-05-28 15:24:57 +00:00
Update Examples/elm-yesod to better match online interactive examples see http://elm-lang.org/edit/examples/ index.elm remove "box" fns (obsolete) disambiguate "link" fns (Text or Graphics) tested against ghc-7.4.1, Elm-0.7.1.1, yesod-1.1.7.1, elm-yesod-0.1.3 2013-03-02 15:24:43 +00:00			`main = lift2 scene Mouse.position Window.dimensions`