elm/Examples/elm-yesod/elm_source/clock.elm


hand clr len time =
  let t = pi * inSeconds time / 30 - pi / 2 in
  solid clr $ line [(200,200), (200 + len * cos t, 200 + len * sin t)]

clock t = collage 400 400 [ filled (rgb 96 176 224) $ ngon 12 110 (200, 200)
                          , hand  red  100 t
                          , hand black 100 (t/60)
                          , hand black 60  (t/720) ]

main = lift clock (every second)
Fix colors 2012-06-25 11:55:43 +00:00
* updated the elm-yesod example Added a slightly more sophisticated elm-page to the elm-yesod example. 2012-05-28 22:39:25 +00:00			`hand clr len time =`
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			`let t = pi * inSeconds time / 30 - pi / 2 in`
* updated the elm-yesod example Added a slightly more sophisticated elm-page to the elm-yesod example. 2012-05-28 22:39:25 +00:00			`solid clr $ line [(200,200), (200 + len * cos t, 200 + len * sin t)]`

Fix colors 2012-06-25 11:55:43 +00:00			`clock t = collage 400 400 [ filled (rgb 96 176 224) $ ngon 12 110 (200, 200)`
* updated the elm-yesod example Added a slightly more sophisticated elm-page to the elm-yesod example. 2012-05-28 22:39:25 +00:00			`, hand red 100 t`
			`, hand black 100 (t/60)`
			`, hand black 60 (t/720) ]`

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 = lift clock (every second)`