updated example. works fine

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