2012-06-25 11:55:43 +00:00
|
|
|
|
|
|
|
import Signal.Time (every)
|
2012-05-28 22:39:25 +00:00
|
|
|
|
|
|
|
hand clr len time =
|
2012-06-25 11:55:43 +00:00
|
|
|
let t = pi * time / 30 - pi / 2 in
|
2012-05-28 22:39:25 +00:00
|
|
|
solid clr $ line [(200,200), (200 + len * cos t, 200 + len * sin t)]
|
|
|
|
|
2012-06-25 11:55:43 +00:00
|
|
|
clock t = collage 400 400 [ filled (rgb 96 176 224) $ ngon 12 110 (200, 200)
|
2012-05-28 22:39:25 +00:00
|
|
|
, hand red 100 t
|
|
|
|
, hand black 100 (t/60)
|
|
|
|
, hand black 60 (t/720) ]
|
|
|
|
|
2012-06-25 11:55:43 +00:00
|
|
|
main = lift clock (every 1)
|