Skip to content

Instantly share code, notes, and snippets.

@jsalonen

jsalonen/myFirstElmProgram.elm

Created August 25, 2014 05:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jsalonen/551c56f3f819422e2338 to your computer and use it in GitHub Desktop.
Save jsalonen/551c56f3f819422e2338 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
myFirstElmProgram.elm
main = lift shittyClock (every second)
isBroken t =
mod (floor (inSeconds t)) 2 == 0
shittyClock t =
if isBroken t then plainText <| show "broken" else clock t
clock t = collage 400 400 [ filled lightGrey (ngon 12 110)
, outlined (solid grey) (ngon 12 110)
, hand orange 100 t
, hand charcoal 100 (t/60)
, hand charcoal 60 (t/720) ]
hand clr len time =
let angle = degrees (90 - 6 * inSeconds time)
in traced (solid clr) <| segment (0,0) (len * cos angle, len * sin angle)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment