nek0/hw
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

make the spheres bigger

Browse source
This commit is contained in:
nek0 2017-09-20 20:37:08 +02:00
parent a3a0ac51cb
commit cec138f9f9
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Init.hs
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)