From 8682b71b4dc020162ea2c1d6079ef264240da28e Mon Sep 17 00:00:00 2001
From: = <bryce@brycecovertoperations.com>
Date: Mon, 8 Sep 2014 18:58:54 -0700
Subject: [PATCH] fairly accurate text positioning.

---
 desktop/src-common/advent/utils.clj | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 desktop/src-common/advent/utils.clj

diff --git a/desktop/src-common/advent/utils.clj b/desktop/src-common/advent/utils.clj
new file mode 100644
index 00000000..7419e10e
--- /dev/null
+++ b/desktop/src-common/advent/utils.clj
@@ -0,0 +1,9 @@
+(ns advent.utils
+  (:require [play-clj.core :refer :all]
+            [play-clj.ui :refer :all]
+            [play-clj.utils :refer :all]
+            [play-clj.g2d :refer :all]))
+
+(defn log-coords [screen entities]
+  (let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})]
+    (println (:input-x screen) (:input-y screen) "->" x y)))