 (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-resize
           (fn [screen _]
             (size! screen (:bg-width screen) (:bg-height screen)))

           :on-end-contact
           (fn [screen entities]
