git.iko.soy/elk
on d9d1dfd help sign in
elk/Examples/elm-happstack/elm_source/clock.elm
13 lines 405 B history raw
2import Time (every)
4hand clr len time =
5 let t = pi * time / 30 - pi / 2 in
6 solid clr $ line [(200,200), (200 + len * cos t, 200 + len * sin t)]
8clock t = collage 400 400 [ filled (rgb 96 176 224) $ ngon 12 110 (200, 200)
9 , hand red 100 t
10 , hand black 100 (t/60)
11 , hand black 60 (t/720) ]
13main = lift clock (every 1)