mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-15 10:02:45 +00:00
Move towards tree-svg.
This commit is contained in:
parent
b8e7f0cb06
commit
721064a73a
6 changed files with 213 additions and 25 deletions
|
|
@ -58,7 +58,7 @@ bbox1 = defineAnimation $ proc () -> do
|
|||
(x, y, w, h) = boundingBox rotated
|
||||
emit -< do
|
||||
g_ [transform_ $ Lucid.translate x y] $
|
||||
rect_ [num_ width_ w, num_ height_ h, stroke_ "red", fill_opacity_ "0", stroke_width_ "1"]
|
||||
rect_ [num_ width_ w, num_ height_ h, stroke_ "red", fill_opacity_ "0"]
|
||||
g_ [fill_ "white"] $ toHtml rotated
|
||||
where
|
||||
msg = "\\sum_{k=1}^\\infty"
|
||||
|
|
@ -72,7 +72,7 @@ bbox2 = defineAnimation $ proc () -> do
|
|||
(x, y, w, h) = boundingBox rotated
|
||||
emit -< do
|
||||
g_ [transform_ $ Lucid.translate x y] $
|
||||
rect_ [num_ width_ w, num_ height_ h, stroke_ "red", fill_opacity_ "0", stroke_width_ "1"]
|
||||
rect_ [num_ width_ w, num_ height_ h, stroke_ "red", fill_opacity_ "0"]
|
||||
g_ [fill_ "white", fill_opacity_ "0", stroke_width_ "4", stroke_ "white"] $
|
||||
toHtml rotated
|
||||
```
|
||||
|
|
|
|||
Loading…
Reference in a new issue