jyapayne/ace
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add elm mode (fixes #2099)

Browse source
This commit is contained in:
nightwing 2014-09-08 23:44:08 +04:00
commit 52e8bc3082
4 changed files with 233 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
demo/kitchen-sink/docs/elm.elm Normal file
View file

@ -0,0 +1,12 @@
{- Ace {- 4 -} 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 traced (solid clr) <| segment (0,0) (len * cos angle, len * sin angle)