PureBasic

```Purebasic
Procedure Start() 
  ; Création de la fenêtre
  Window = OpenWindow(#PB_Any, 0, 0, ww, wh, "Collision", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
 
  ; Création de la scene et définition de la couleur d'arriere plan
  CreateScene(scene, 0, 0, ww, wh) 
  SceneColor(RGB(119, 136, 153))
  ; scene\collideWorldBounds = #True 
 
  ; Création et positionnement des Sprites
  UsePNGImageDecoder()
  UseJPEGImageDecoder()
 
  AddSprite(ground, LoadImage(#PB_Any, "ground.jpg"))
  ground\sprite\y = wh-100
 
  AddSprite(ball, LoadImage(#PB_Any, "ball.png"))
  ball\sprite\x = 100
  ball\sprite\y = 20
  ball\physics\Static = #False
  ball\physics\speed\x = 3
  ball\physics\speed\y = 3
  ;ball\physics\acceleration\y = 0.1
  ;ball\physics\acceleration\x = -0.1
  ;ball\physics\bounce\x = 0.6
  ;ball\physics\bounce\y = 0.5
 
  Render()
EndProcedure
```