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

        (.add brick-phy))))

(defn make-brick-rows
  [j startpt height app]
  (when (> j 0)
    (doseq [i (range 6)]
      (make-brick (Vector3f. (+ startpt (* i brick-length 2))
                             (+ brick-height height)
                             0)
                  app))
    (make-brick-rows (- j 1) (- startpt) (+ height (* brick-height 2)) app)))

(defn init-wall
  [app]
  (make-brick-rows 15 (/ brick-length 4) 0 app))

(defn make-cannon-ball
  [app]

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

(defn -main
  [& args]
