corrade-nucleus-nucleons
| /script-kiddie/002_script_kiddie/script-kiddie/node_modules/ace-builds/demo/kitchen-sink/docs/elm.elm |
|---|
| @@ -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) |