 (defscreen game-over-screen
            :on-show
            (fn [screen _]
-             (let [camera (orthographic)]
-               (update! screen
-                        :camera camera
-                        :renderer (stage-fit-vp camera)))
+             (init-graphic-settings screen)
+             ; FIX son de Ben
              #_(sound! (u/memo-sound "sound/gameover.wav") :play)
              (label "Game over" (color :red)))
 

           :on-show
           (fn [screen _]
             (let [background (intro-screen-background)
                   music (u/memo-sound "intro-screen-music.mp3")
                   camera (orthographic)]
               (update! screen
                        :renderer (stage-fit-vp camera)
                        :camera camera
                        :bg-width (texture! background :get-region-width)
                        :bg-height (texture! background :get-region-height)
                        :music music)


           :on-timer
           (fn [screen entities]
             (when (= :ambiant-sound (:id screen))
               (when (even? (rand-int 2))
                 (cell/ambiant-sound (cell/find-cell entities)))
               entities)))

(defscreen main-bg-screen
           :on-show
           (fn [screen _]
             (init-graphic-settings screen)
             (u/memo-texture "main-screen-background-1.png"))

           :on-render
           (fn [screen entities]
             #!(clear! 0 1 0 1)
             (render! screen entities))

           :on-resize
