Update README code.

This commit is contained in:
David 2019-02-15 16:05:44 +01:00
commit 89f5e41479

View file

@ -163,11 +163,17 @@ scaling = adjustSpeed 2 $ syncAll
```haskell ```haskell
latex_basic :: Ani () latex_basic :: Ani ()
latex_basic = proc () -> do latex_basic = proc () -> do
duration 1 -< () duration 2 -< ()
s <- signalOscillate 0 1 -< ()
emit -< do emit -< do
rect_ [width_ "100%", height_ "100%", fill_ "black"] rect_ [width_ "100%", height_ "100%", fill_ "black"]
g_ [transform_ $ translate 5 50] $ g_ [transform_ $ translate 20 15] $
g_ [transform_ $ scale 4 4, fill_ "white"] $ g_ [transform_ $ scale 4 4, stroke_ "white", fill_opacity_ "0", stroke_width_ "0.1"] $
latex "$\\sum_{k=1}^\\infty {1 \\over k^2} = {\\pi^2 \\over 6}$" text
g_ [transform_ $ translate 20 15] $
g_ [transform_ $ scale 4 4, fill_ "white", num_ fill_opacity_ s] $
text
where
text = latex "\\sum_{k=1}^\\infty {1 \\over k^2} = {\\pi^2 \\over 6}"
``` ```
![Basic LaTeX](gifs/latex_basic.gif) ![Basic LaTeX](gifs/latex_basic.gif)