mirror of
https://github.com/filebrowser/filebrowser.git
synced 2025-05-09 11:42:57 +00:00
0afb9e732c
Former-commit-id: bdede6ed1b6f578f2ef046c338caf02d0b29d453 [formerly 7187de361b53e9c8ec121df379b762f2db736ea2] Former-commit-id: 447d58460fbbfd05ffe08428a1288e392637561d
12 lines
487 B
Elm
12 lines
487 B
Elm
{- 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) |