@@ -1,12 +1,13 @@
1−clockColor = rgb (6/16) (11/16) (14/16)
1+
2+import Signal.Time (every)
23
34hand clr len time =
4− let t = Math.PI * time / 30 - Math.PI / 2 in
5+ let t = pi * time / 30 - pi / 2 in
56 solid clr $ line [(200,200), (200 + len * cos t, 200 + len * sin t)]
67
7−clock t = collage 400 400 [ filled clockColor $ ngon 12 110 (200, 200)
8+clock t = collage 400 400 [ filled (rgb 96 176 224) $ ngon 12 110 (200, 200)
89 , hand red 100 t
910 , hand black 100 (t/60)
1011 , hand black 60 (t/720) ]
1112
12−main = lift clock $ Time.every 1
13+main = lift clock (every 1)