           (log-js (rman/height img))
           (log-js (rman/width img)))))))
 
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 (def pogue-game
   (game/make-game
     (reify 

      (game-close [this]
        this))))


; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; (defonce first-time? (atom true))

; (defn main' []
;   (om/root
;     (fn [game-state owner]
;       (reify
;         om/IWillMount
;         (will-mount [_ ]
;           (go-loop []
;                    (let [dt (<! update-chan) ]
;                      (om/transact! game-state #(update-game % dt))
;                      (recur))))

;         om/IRender
;         (render [_]
;           (dom/div #js {:id "wrapper"}
;                    (dom/div nil (dom/h1 nil (-> game-state :main-app :name)))
;                    (dom/p nil (-> game-state :tick))
;                    ))))
;     app-state
;     {:target (. js/document (getElementById "app"))})

;   (when @first-time?
;     (do
;       (swap! first-time? not)
;       (js/setInterval (fn [] (put! update-chan (/ 1 60))) 16))))




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(enable-console-print!)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defn log-window 
