            :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
+                   music (u/memo-sound "intro-screen-music.mp3")]
+               (update! (init-graphic-settings screen)
                         :bg-width (texture! background :get-region-width)
                         :bg-height (texture! background :get-region-height)
                         :music music)


           :on-resize
           (fn [screen _]
             (size! screen u/w-width u/w-height))

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

   (key-code :dpad-right) :right})

(defn coliding-entities [screen entities]
  (let [entities (filter #(contains? % :body) entities)
        coliding-entities [(first-entity screen entities) (second-entity screen entities)]]
    {:enemy       (cell/find-enemy coliding-entities)
     :player      (cell/find-cell coliding-entities)
     :plante-zone (cell/find-plante-zone coliding-entities)
