     [(/ (.getHeight current-world-extent) (.getHeight initial-world-extent)),
      (/ (.getWidth current-world-extent) (.getWidth initial-world-extent))]))
 
+(defn get-canvas-from-scene
+  "Returns canvas associated with a scene."
+  [#^GScene scn]
+  (.. scn getWindow getCanvas))
+
 ;;;
 
 nil

  []
  (GWindow. Color/WHITE))

(defn- initialize-scene
  "Initializies given scene."
  [#^GScene scn]
  (.setUserData scn {:hooks {}})
  scn)

(defn make-scene
  "Makes scene on given window."

  (let [#^GScene scn (GScene. window)]
    (doto scn
      (initialize-scene)
      (add-data-to-scene :hooks {})
      (.shouldZoomOnResize true)
      (.shouldWorldExtentFitViewport false)
      (.setStyle *default-scene-style*))
