changed 'make-it-so' function in core so it takes fast-forward and fps parameters

This commit is contained in:
Richard Harrington 2013-08-16 23:34:30 -04:00
parent a1df709c4f
commit 534872d0a8

View File

@ -17,10 +17,10 @@
(world/init-world 256.0 256.0 (progs)))
(defn combined-worlds []
(world/build-combined-worlds (world)))
(defn sim-worlds []
(animate/build-sim-worlds (combined-worlds) 25))
(defn make-it-so []
(animate/animate (sim-worlds) 25 25 20.0))
(defn sim-worlds [fast-forward]
(animate/build-sim-worlds (combined-worlds) fast-forward))
(defn make-it-so [fast-forward fps]
(animate/animate (sim-worlds fast-forward) 25 25 fps))
(def rr register/read-register)
(def wr register/write-register)