From cec138f9f9e71f8b10f0dda429da8f637a6abb73 Mon Sep 17 00:00:00 2001 From: nek0 Date: Wed, 20 Sep 2017 20:37:08 +0200 Subject: [PATCH] make the spheres bigger --- src/Init.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Init.hs b/src/Init.hs index 62e97f9..b79940d 100644 --- a/src/Init.hs +++ b/src/Init.hs @@ -146,7 +146,7 @@ initPhysics = do initPhysicsObjects :: [V3 Float] -> IO PhysicsObjects initPhysicsObjects poss = do 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) groundBody <- newRigidBody 0 groundMotionState 0.9 0.5 ground (V3 0 0 0)