Permalink
Browse files

possible fix for multiple init! calls

  • Loading branch information...
1 parent db4de27 commit 6343d6acac12c854125d909a11b2f25f9db8f976 @ztellman committed Jul 16, 2010
Showing with 7 additions and 5 deletions.
  1. +2 −0 src/penumbra/app.clj
  2. +1 −1 test/example/app/async.clj
  3. +4 −4 test/examples.clj
View
2 src/penumbra/app.clj
@@ -288,7 +288,9 @@
(loop-fn
app
(fn [inner-fn]
+ (app/speed! app 0)
(app/init! app)
+ (app/speed! app 1)
(inner-fn)
(app/speed! app 0))
(partial single-thread-main-loop app))
View
2 test/example/app/async.clj
@@ -46,7 +46,7 @@
(rotate (:rot state) 0 1 0)
(call-display-list (:cube state)))
-'(defn start []
+(defn start []
(let [app (app/start* {:init init, :reshape reshape, :display display} {:rot 0})]
(Thread/sleep 5000)
(app/pause! app)
View
8 test/examples.clj
@@ -8,9 +8,9 @@
(ns examples
(:use [clojure.test])
- (:require ;;[example.app.async :as async]
- ;;[example.app.switch :as switch]
- ;;[example.app.nested :as nested]
+ (:require [example.app.async :as async]
+ [example.app.switch :as switch]
+ [example.app.nested :as nested]
[example.opengl.gears :as gears]
[example.opengl.sierpinski :as sierpinski]
[example.opengl.render-to-texture :as rtt]
@@ -57,4 +57,4 @@
(testing "Brian's Brains"
(brian/start))
(testing "Fluid"
- (fluid/start)))
+ (fluid/start)))

0 comments on commit 6343d6a

Please sign in to comment.