         (.add floor-phy))))
 
 (defn make-brick
-  [loc app]
+  [app loc]
   (let [brick-geo (Geometry. "brick" box)
         brick-phy (RigidBodyControl. (float 2))]
     (doto brick-geo

      (.lookAt (Vector3f. 2 2 0) Vector3f/UNIT_Y))
    (init-wall app)
    (init-floor app)
    (init-cross-hairs (.getGuiNode app))))

(defn -main
  [& args]

                                     (.mult (float 25))))))

(defn init-cross-hairs
  [app]
  (let [gui-node (.getGuiNode app)
        font (load-font "Interface/Fonts/Default.fnt")
        ch (BitmapText. font false)]
    (.detachAllChildren gui-node)
    (doto ch
