notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove multimethod use from the physics libraries

Browse Source
This commit is contained in:
oakes
2014-04-19 18:36:30 -04:00
parent 3bf79d72e4
commit ab1936c84b
3 changed files with 46 additions and 91 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
src/play_clj/physics.clj
View File

@@ -1,49 +0,0 @@
(ns play-clj.physics
(:require [play-clj.utils :as u]))
(defmulti step!
"Runs the physics simulations for a single frame and optionally returns the
`entities` with their positions updated."
(fn [screen & [entities]] (-> screen (u/get-obj :world) class)))
(defmulti add-body!
"Adds the `body` to the `screen` for physics simulations and returns it. For
2D physics, `body` should be a `body-def`, whereas for 3D physics it should be a
`basic-body` or a `rigid-body`."
(fn [screen body] (-> screen (u/get-obj :world) class)))
(defmulti add-joint!
"Adds the `joint` to the `screen` for physics simulations and returns it. For
2D physics, `joint` should be a `joint-def`."
(fn [screen joint] (-> screen (u/get-obj :world) class)))
(defmulti body-position!
"Changes the position of the body in `entity`. For 2D physics, the arguments
should be x, y, and angle, whereas for 3D physics they should be x, y, and z."
(fn [entity a1 a2 a3] (-> entity (u/get-obj :body) class)))
(defmulti body-x!
"Changes the `x` of the body in `entity`."
(fn [entity x] (-> entity (u/get-obj :body) class)))
(defmulti body-y!
"Changes the `y` of the body in `entity`."
(fn [entity y] (-> entity (u/get-obj :body) class)))
(defmulti body-z!
"Changes the `z` of the body in `entity`. Only works with 3D physics."
(fn [entity z] (-> entity (u/get-obj :body) class)))
(defmulti body-angle!
"Changes the `angle` of the body in `entity`. Only works with 2D physics."
(fn [entity angle] (-> entity (u/get-obj :body) class)))
(defmulti first-entity
"Returns the first entity in a contact. May only be used in contact functions,
such as :on-begin-contact."
(fn [screen entities] (-> screen (u/get-obj :world) class)))
(defmulti second-entity
"Returns the second entity in a contact. May only be used in contact functions,
such as :on-begin-contact."
(fn [screen entities] (-> screen (u/get-obj :world) class)))