make the spheres bigger

This commit is contained in:
nek0 2017-09-20 20:37:08 +02:00
parent a3a0ac51cb
commit cec138f9f9

View file

@ -146,7 +146,7 @@ initPhysics = do
initPhysicsObjects :: [V3 Float] -> IO PhysicsObjects initPhysicsObjects :: [V3 Float] -> IO PhysicsObjects
initPhysicsObjects poss = do initPhysicsObjects poss = do
ground <- newStaticPlaneShape (V3 0 1 0) 1 ground <- newStaticPlaneShape (V3 0 1 0) 1
ball <- newSphereShape 1 ball <- newSphereShape 3
groundMotionState <- newDefaultMotionState (Quaternion 1 (V3 0 0 0)) (V3 0 (-51) 0) groundMotionState <- newDefaultMotionState (Quaternion 1 (V3 0 0 0)) (V3 0 (-51) 0)
groundBody <- newRigidBody 0 groundMotionState 0.9 0.5 ground (V3 0 0 0) groundBody <- newRigidBody 0 groundMotionState 0.9 0.5 ground (V3 0 0 0)