From ea7829b6fe338910f47e80890b19205d70fd5fbe Mon Sep 17 00:00:00 2001
From: David Himmelstrup <lemmih@gmail.com>
Date: Sun, 1 Sep 2019 11:04:14 +0800
Subject: [PATCH] Add goo example.

Former-commit-id: c9e484d6fac8c33b80c09eee65c114b2c33a0fbd
---
 examples/goo.hs | 68 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100755 examples/goo.hs

diff --git a/examples/goo.hs b/examples/goo.hs
new file mode 100755
index 0000000..d4cf1ea
--- /dev/null
+++ b/examples/goo.hs
@@ -0,0 +1,68 @@
+#!/usr/bin/env stack
+-- stack --resolver lts-13.14 runghc --package reanimate
+{-# LANGUAGE OverloadedStrings #-}
+module Main (main) where
+
+import           Control.Lens
+
+import           Graphics.SvgTree
+import           Reanimate.Driver (reanimate)
+import           Reanimate.LaTeX
+import           Reanimate.Monad
+import           Reanimate.Svg
+import           Reanimate.Signal
+import           Reanimate.Combinators
+
+main :: IO ()
+main = reanimate $ autoReverse $ mkAnimation 5 $ do
+  s <- getSignal $ signalFromTo 0 2 signalLinear
+  emit $ mkBackground "black"
+  emit $ FilterTree $ mkFilter "blur"
+    [FEGaussianBlur $ defaultSvg
+      & gaussianBlurStdDeviationX .~ Num dev
+      & filterResult .~ Just "blur"
+    ] & filterWidth .~ pure (Percent 3)
+      & filterX .~ pure (Percent (-1))
+      & filterHeight .~ pure (Percent 3)
+      & filterY .~ pure (Percent (-1))
+  emit $ FilterTree $ mkFilter "goo"
+    [FEGaussianBlur $ defaultSvg
+      & gaussianBlurStdDeviationX .~ Num dev
+      & filterResult .~ Just "blur"
+    ,FEColorMatrix $ defaultSvg
+      & colorMatrixType .~ Matrix
+      & colorMatrixValues .~ "1 0 0 0 0 \
+                             \0 1 0 0 0 \
+                             \0 0 1 0 0 \
+                             \0 0 0 " ++ show (sharpness*2) ++ " -" ++ show sharpness
+      & filterResult .~ pure "goo"
+    ,FEComposite $ defaultSvg
+      & compositeIn .~ pure SourceGraphic
+      & compositeIn2 .~ pure (SourceRef "goo")
+      & compositeOperator .~ CompositeAtop
+    ] & filterWidth .~ pure (Percent 3)
+      & filterX .~ pure (Percent (-1))
+      & filterHeight .~ pure (Percent 3)
+      & filterY .~ pure (Percent (-1))
+  emit $ translate 0 (-radius*2) $ withFillColor "red" $ mkGroup
+    [ translate (s*(-radius)) 0 circ
+    , translate (s*radius) 0 circ
+    ]
+  emit $ withFillColor "red" $ mkGroup
+    [ translate (s*(-radius)) 0 circ
+    , translate (s*radius) 0 circ
+    ]
+    & filterRef .~ pure (Ref "goo")
+  emit $ translate 0 (radius*2) $ withFillColor "red" $ set filterRef (pure $ Ref "blur")
+    $ mkGroup [ translate (s*(-radius)) 0 circ
+              , translate (s*radius) 0 circ ]
+  where
+    sharpness = 60
+    dev = 10
+    radius = 30
+    circ = CircleTree $ defaultSvg
+      & circleCenter .~ (Num 0, Num 0)
+      & circleRadius .~ Num radius
+
+mkFilter :: String -> [FilterElement] -> Filter
+mkFilter ident fe = defaultSvg & filterChildren .~ fe & attrId .~ Just ident