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

Remove unnecessary attributes.

Browse source
This commit is contained in:
David 2019-02-20 11:56:36 +01:00
commit ee19c1d1b8
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Reanimate/Examples.hs
View file

@ -185,9 +185,8 @@ circle_clip sub = proc () -> do
xPos = pack$show$sin arc * 1000
yPos = pack$show$cos arc * 1000
long = if arc < pi then "1" else "0"
emit -< defs_ $ clipPath_ [id_ $ uniqName] $
path_ [ stroke_ "white", fill_ "white"
, d_ $ "M "<>startX<>" "<>startY<>" A 1000 1000 0 "<>long<>" 1 "
emit -< clipPath_ [id_ $ uniqName] $
path_ [ d_ $ "M "<>startX<>" "<>startY<>" A 1000 1000 0 "<>long<>" 1 "
<>xPos<> " "<>yPos<>" L 0 0 Z"]
annotate' sub -<
g_ [clip_path_ $ "url(#"<>uniqName<>")"]