 
 (defn make-stage
   "Layout the stage structure"
-  [{:keys [layers
+  [{:keys [layers origins
            ]
       :or {
-           layers [:backdrop :below :world :above :ui :effect]}}]
+           layers [:backdrop :below :world :above :ui :effect]
+           origins {}}}]
 
   ;(.log js/console (str layers))
   (let [

  :expand        if true makes the canvas take the entire window
  :engine        can be :webgl :canvas or :auto (default :auto)
  :layers        A list of keywords to refer to layers, from bottom to top

  and either:


  :height        height of new canvas
  "
  [opts]
  (let [{:keys [renderer canvas layer layers stage
                origins] :or {origins {}} :as world}
        (into (make opts)
              (make-stage opts))]
    ;; add the stages to the canvas
    (doall
     (map
      (fn [[name layer-obj]]
        ;(log "adding to:" (str stage) " layer:" (str layer-obj))
        (.addChild stage layer-obj)
        (center-container! canvas layer-obj (or (origins name) :center)))
      layer))

    ;; do the first render
                                        ;(doall (for [l layers] (.render renderer (l layer))))
    (.render renderer stage)

    (let [
