             glyph-image-data glyph-image-data
             fg-image-data fg-image-data
             bg-image-data bg-image-data
-            {:keys [screen-width
-                    screen-height
+            {:keys [frame-buffer-width
+                    frame-buffer-height
                     character-width
                     character-height
                     character->col-row

           (GLFW/glfwMakeContextCurrent window)
           (GLFW/glfwSwapInterval 1)
           (GLFW/glfwShowWindow window)
           (let [capabilities (GL/createCapabilities)]
             (GL11/glViewport 0 0 screen-width screen-height)
             (GLFW/glfwMakeContextCurrent 0)
             ;; Signal to parent that display has been created
             [window capabilities])))
     (throw (RuntimeException. "Failed to create the GLFW window")))))

(defn- load-shader

          destroyed          (atom false)
          gl-lock            (atom true)
          latch              (java.util.concurrent.CountDownLatch. 1)
          {:keys [frame-buffer-width
                  frame-buffer-height
                  character-width
                  character-height
                  font-texture-width
                  font-texture-height
                  font-texture-image]} (get @font-textures (font-key @normal-font))
          _                  (log/info "screen size" (* columns character-width) "x" (* rows character-height))
          _                  (log/info "framebuffer size" frame-buffer-width "x" frame-buffer-height)
          [window
           capabilities
           frame-buffer-width
           frame-buffer-height]
                             (init-display title (* columns character-width) (* rows character-height) icon-paths gl-lock destroyed)
          _                  (log/info "window" window "capabilities" capabilities "fb" frame-buffer-width "x" frame-buffer-height)

          font-texture       (with-gl-context gl-lock window capabilities (texture-id-2d font-texture-image))
          _                  (swap! font-textures update (font-key @normal-font) (fn [m] (assoc m :font-texture font-texture)))
