     :setup setup
     ;:update update-state
     :draw draw-state
+    :key-typed key-press
     :features [:keep-on-top]
     :middleware [m/fun-mode] ))
 
 ;(-main)
 
 (defn create-pixel-ship-quil []
-  (psc/color-pixel-ship (psc/create-pixel-ship (assoc bollinger/model :seed Integer/MAX_VALUE))));(rand-int Integer/MAX_VALUE)))))
+  (psc/color-pixel-ship (psc/create-pixel-ship (assoc bollinger/model :seed (rand-int Integer/MAX_VALUE)))))
 
 (def p-per-c 20)
 

      (doseq [pixel cockpit-pixels]
        (draw-rect pixel))
    )))

(defn -main
  []

        cockpit-pixels ((comp :cockpit :pixels) (:pixel-ship state))]
    (q/with-translation [200
                         (- (q/height) 200)]
      (doseq [pixel hull-pixels]
        (draw-rect pixel))
      (doseq [pixel solid-pixels]
