From 9515c65896a2f5996e68a51758e692ee737f1e39 Mon Sep 17 00:00:00 2001 From: David Date: Thu, 14 Feb 2019 16:57:40 +0100 Subject: [PATCH] Wibble in clip_rect. --- README.md | 4 ++-- src/Reanimate/Examples.hs | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/README.md b/README.md index f1631df..54bc866 100644 --- a/README.md +++ b/README.md @@ -121,8 +121,8 @@ clip_rect = proc () -> do paintStatic nth = proc () -> annotate' (obj "white" (20+nth*10) (20+nth*10)) -< g_ [transform_ $ translate 160 90] - runAni color nth = proc () -> - annotate' (defineAnimation $ circle_clip (obj color (20+nth*10) (20+nth*10))) + runAni color nth = defineAnimation $ proc () -> + annotate' (circle_clip (obj color (20+nth*10) (20+nth*10))) -< g_ [transform_ $ translate 160 90] obj c width height = proc () -> do duration 1 -< () diff --git a/src/Reanimate/Examples.hs b/src/Reanimate/Examples.hs index 7709741..a4aef29 100644 --- a/src/Reanimate/Examples.hs +++ b/src/Reanimate/Examples.hs @@ -157,8 +157,8 @@ clip_rect = proc () -> do paintStatic nth = proc () -> annotate' (obj "white" (20+nth*10) (20+nth*10)) -< g_ [transform_ $ translate 160 90] - runAni color nth = proc () -> - annotate' (defineAnimation $ circle_clip (obj color (20+nth*10) (20+nth*10))) + runAni color nth = defineAnimation $ proc () -> + annotate' (circle_clip (obj color (20+nth*10) (20+nth*10))) -< g_ [transform_ $ translate 160 90] obj c width height = proc () -> do duration 1 -< ()