cortex: org/util.org comparison

refactored joints

comparison

equal deleted inserted replaced

-:75b6c2ebbf8e
+:33278bf028e7
 (def standard-debug-controls
 {"key-space" (fire-cannon-ball)})
+(defn tap [obj direction force]
+(let [control (.getControl obj RigidBodyControl)]
+(.applyTorque
+control
+(.mult (.getPhysicsRotation control)
+(.mult (.normalize direction) (float force))))))
+(defn with-movement
+[object
+[up down left right roll-up roll-down :as keyboard]
+forces
+[root-node
+keymap
+intilization
+world-loop]]
+(let [add-keypress
+(fn [state keymap key]
+(merge keymap
+{key
+(fn [_ pressed?]
+(reset! state pressed?))}))
+move-up? (atom false)
+move-down? (atom false)
+move-left? (atom false)
+move-right? (atom false)
+roll-left? (atom false)
+roll-right? (atom false)
+directions [(Vector3f. 0 1 0)(Vector3f. 0 -1 0)
+(Vector3f. 0 0 1)(Vector3f. 0 0 -1)
+(Vector3f. -1 0 0)(Vector3f. 1 0 0)]
+atoms [move-left? move-right? move-up? move-down?
+roll-left? roll-right?]
+keymap* (reduce merge
+(map #(add-keypress %1 keymap %2)
+atoms
+keyboard))
+splice-loop (fn []
+(dorun
+(map
+(fn [sym direction force]
+(if @sym
+(tap object direction force)))
+atoms directions forces)))
+world-loop* (fn [world tpf]
+(world-loop world tpf)
+(splice-loop))]
+[root-node
+keymap*
+intilization
+world-loop*]))
 #+end_src

Mercurial > cortex