From 716ce85464ee6d57a424a00d2535b3c2ce6ad9cb Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Thu, 5 Mar 2015 22:55:06 +0100
Subject: Adding a wave move

---
 src/CloudStep.elm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/CloudStep.elm')

diff --git a/src/CloudStep.elm b/src/CloudStep.elm
index 033c3c5..e6bfc96 100644
--- a/src/CloudStep.elm
+++ b/src/CloudStep.elm
@@ -8,7 +8,7 @@ import Geometry (..)
 import Player (..)
 import Board (boardSize, boardDiagonal)
 import Point (..)
-import Physics (getMove)
+import Physics (getMove, getWaveMove)
 import Cloud (..)
 import Config (..)
 
@@ -61,7 +61,7 @@ getNewPoint time seed =
         , initDest = initDest
         , move initTime initPos initDest time =
             let delta = time - initTime
-                move = getMove (pointSpeed delta) (initDest `sub` initPos)
+                move = getWaveMove (pointSpeed delta) (initDest `sub` initPos) 10 10
             in  initPos `add` move
         }
       , seed''
-- 
cgit v1.2.3