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

Improve latex example.

Browse source
This commit is contained in:
David 2019-02-15 16:04:54 +01:00
commit 832804a857
3 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
gifs/latex_basic.gif
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 5.1 KiB

After

Width:  |  Height:  |  Size: 170 KiB

Before After
Before After

14
src/Reanimate/Examples.hs
View file

@ -329,9 +329,15 @@ frequencies = proc () -> do
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 20 20] $ 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}"

6
src/Reanimate/LaTeX.hs
View file

@ -28,7 +28,11 @@ latexToSVG tex = handle (\(e::SomeException) -> return (failedSvg tex)) $ do
appendFile tex_file tex appendFile tex_file tex
appendFile tex_file tex_epilogue appendFile tex_file tex_epilogue
runCmd latex ["-interaction=batchmode", "-halt-on-error", "-output-directory="++tmp_dir, tex_file] runCmd latex ["-interaction=batchmode", "-halt-on-error", "-output-directory="++tmp_dir, tex_file]
runCmd dvisvgm [dvi_file, "-n","-v", "0", "-o",svg_file] runCmd dvisvgm [ dvi_file
, "--exact" -- better bboxes.
, "--bbox=1,1" -- increase bbox size.
, "--no-fonts" -- use glyphs instead of fonts.
,"--verbosity=0", "-o",svg_file]
svg_data <- readFile svg_file svg_data <- readFile svg_file
evaluate (length svg_data) evaluate (length svg_data)
return $ toHtmlRaw $ unlines $ drop 1 $ lines svg_data return $ toHtmlRaw $ unlines $ drop 1 $ lines svg_data