From fc67e752ede4d7c600e2a7bac5f6235933e9c214 Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 20 Dec 2016 04:16:31 +0100 Subject: [PATCH] updated example. works fine --- examples/example03.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/examples/example03.hs b/examples/example03.hs index 0142593..46f37b0 100644 --- a/examples/example03.hs +++ b/examples/example03.hs @@ -109,7 +109,7 @@ update sec = do vx <- liftIO $ randomRIO (-20, 20) vy <- liftIO $ randomRIO (-20, 20) life <- liftIO $ randomRIO (1, 5) - traceM $ "velocity is: " ++ show vx ++ " " ++ show vy + -- traceM $ "velocity is: " ++ show vx ++ " " ++ show vy putAffection $ ud { coordinates = Just (fromIntegral x, fromIntegral y) , partsys = (partsys ud) @@ -118,6 +118,7 @@ update sec = do , particlePosition = (fromIntegral x, fromIntegral y) , particleRotation = 0 , particleVelocity = (vx, vy) + , particlePitchRate = 0 }) : (psParts $ partsys ud) } }