git.iko.soy/elk
on 29dfd5a help sign in
elk/Examples/elm-happstack/elm_source/clock.elm
12 lines 432 B history raw
1clockColor = rgb (6/16) (11/16) (14/16)
3hand clr len time =
4 let t = Math.PI * time / 30 - Math.PI / 2 in
5 solid clr $ line [(200,200), (200 + len * cos t, 200 + len * sin t)]
7clock t = collage 400 400 [ filled clockColor $ ngon 12 110 (200, 200)
8 , hand red 100 t
9 , hand black 100 (t/60)
10 , hand black 60 (t/720) ]
12main = lift clock $ Time.every 1