From 5c6e723d85f71c8630baf67397c9ffe701f60254 Mon Sep 17 00:00:00 2001
From: David <lemmih@gmail.com>
Date: Thu, 14 Feb 2019 08:20:37 +0100
Subject: [PATCH] Remove unused code.

---
 src/Reanimate/Examples.hs | 38 --------------------------------------
 1 file changed, 38 deletions(-)

diff --git a/src/Reanimate/Examples.hs b/src/Reanimate/Examples.hs
index 88402f3..f901931 100644
--- a/src/Reanimate/Examples.hs
+++ b/src/Reanimate/Examples.hs
@@ -103,41 +103,3 @@ morph_wave_circle = proc t -> do
                   in (xPos, yValue))
     circle = approxFnData 1000 $ \idx ->
       (cos (idx*pi*2+pi/2)*50 + 130, sin (idx*pi*2+pi/2)*50)
-
-superGreeting :: Ani ()
-superGreeting = bg `par` follow
-  [ liangGreetings
-  , proc t -> do
-    duration 3 -< ()
-    emit -< text_   [x_ "160", y_ "110", font_size_ "20"
-                    , text_anchor_ "middle"
-                    , fill_ "black"] "I can even nest animations"
-    annotate (g_ [transform_ $ rotateAround 180 160 90 <> " " <> translate 0 (0), opacity_ "0.5"]) $
-      liangGreetings -< t
-  ]
-  where
-    bg = proc t -> emit -< rect_ [width_ "100%", height_ "100%", fill_ "lightblue"]
-
-liangGreetings :: Ani ()
-liangGreetings = follow
-  [ proc t -> do
-    duration 3 -< ()
-    emit -< text_   [x_ "160", y_ "110", font_size_ "20"
-                    , text_anchor_ "middle"
-                    , fill_ "black"] "Hi Liang"
-  , proc t -> do
-    duration 3 -< ()
-    emit -< text_   [x_ "160", y_ "110", font_size_ "20"
-                    , text_anchor_ "middle"
-                    , fill_ "black"] "I'm learning animations"
-  , sim
-    [ proc t -> do
-      emit -< text_   [x_ "160", y_ "110", font_size_ "20"
-                      , text_anchor_ "middle"
-                      , fill_ "black"] "Look!"
-    , fade 1 $ proc t -> do
-      duration 5 -< ()
-      let radius = pack $ show $ 20 + sin (t*10) * 3
-      emit -< circle_ [cx_ "160", cy_ "150", r_ radius, fill_ "red"]
-    ]
-  ]