Fix valentine preset.

Former-commit-id: 36cb89e3c6e82c15cd6bf89ceb538c995d656e15
This commit is contained in:
David 2019-02-28 14:27:10 +01:00
commit 86019b191a
2 changed files with 4 additions and 5 deletions

View file

@ -191,8 +191,10 @@ animation =
emit $ scale n $ scale 2 $ withFillColor "white" $ withFillOpacity o txt
drawHeart = emit $ withFillColor "red" $ heartShape
hex n = if n < 0x10 then "0" ++ showHex (round n) ""
else showHex (round n) ""`;
heartShape =
center $ rotateAroundCenter 225 $ mkPathString
"M0.0,40.0 v-40.0 h40.0a20.0 20.0 90.0 0 1 0.0,40.0a20.0 20.0 90.0 0 1 -40.0,0.0 Z"`;
export default [
{ name: "Examples"