reanimate/examples/counter.hs
David Himmelstrup dfd52961ae Use gifs to improve documentation. (#21)
Former-commit-id: 40e5ccedcf5d1ca8f0d5cc373ba3b3c4cc2d6c6a
2019-09-28 21:35:42 +08:00

11 lines
218 B
Haskell
Executable file

#!/usr/bin/env stack
-- stack runghc --package reanimate
module Main (main) where
import Reanimate
main :: IO ()
main = reanimate $ mkAnimation dur $
mkCircle . fromToS 0 (dur*60-1)
where
dur = 2