Skip to content

Instantly share code, notes, and snippets.

@nathan

nathan/Main.elm

Created October 19, 2014 19:37
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 nathan/eef7a8f300ee8a419c01 to your computer and use it in GitHub Desktop.
Save nathan/eef7a8f300ee8a419c01 to your computer and use it in GitHub Desktop.
Download ZIP
The code in the screenshot for elm-editor.
Raw
Main.elm
main = lift clock (every second)
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 segment (0,0) (fromPolar (len,angle))
|> traced (solid clr)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment