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) } }