hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-18 03:12:40 +00:00
Code Issues Projects Releases Wiki Activity

Improve haddock documentation. (#20)

Browse source 
* Improve CLI help message.

* Change hackage badge color.

* Add supported platforms.

* Add 'signalOscillate'

* Split SVG module into smaller parts.

Former-commit-id: ad62a06a5442912f6bd0be0e10d02fe53345b846
This commit is contained in:
David Himmelstrup 2019-09-28 16:24:41 +08:00 • committed by GitHub
commit c2af9fbac0
51 changed files with 1474 additions and 1518 deletions
Download patch file Download diff file Expand all files Collapse all files

20
examples/counter.hs
View file

@ -1,21 +1,11 @@
#!/usr/bin/env stack
-- stack runghc --package reanimate
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
module Main (main) where
import Control.Lens
import Data.Text (pack, Text)
import Numeric
import Graphics.SvgTree hiding (Text)
import Reanimate.Driver (reanimate)
import Reanimate.LaTeX
import Reanimate.Monad
import Reanimate.Svg
import Reanimate.Signal
import Reanimate
main :: IO ()
main = reanimate $ mkAnimation 2 $ do
s <- getSignal $ signalFromTo 0 (2*60-1) signalLinear
emit $ mkCircle (Num s)
main = reanimate $ mkAnimation dur $
mkCircle . signalFromTo 0 (dur*60-1) signalLinear
where
dur = 2