Allow retreival of surface velocity for 2d collisions

borodust · Apr 12, 2020 · 5ba6cb1 · 5ba6cb1
1 parent 20638b4
commit 5ba6cb1
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 0 deletions.
diff --git a/physics/2d/contact.lisp b/physics/2d/contact.lisp
@@ -16,6 +16,11 @@
     (%cp:arbiter-set-surface-velocity *arbiter* vec))
   value)
 
+(defmethod simulation-engine-collision-surface-velocity ((engine chipmunk-engine))
+  (with-cp-vect (vec)
+    (%cp:arbiter-get-surface-velocity vec *arbiter*)
+    (init-bodge-vec (vec2) vec)))
+
 (defmethod simulation-engine-contact-normal ((engine chipmunk-engine))
   (declare (ignore engine)))
 (defmethod simulation-engine-contact-point ((engine chipmunk-engine))

diff --git a/physics/api.lisp b/physics/api.lisp
@@ -322,6 +322,10 @@
   (setf (simulation-engine-collision-surface-velocity *engine*) value))
 
 
+(defun collision-surface-velocity ()
+  (simulation-engine-collision-surface-velocity *engine*))
+
+
 (defun has-next-shape-contact ())
 
 

diff --git a/physics/backend/backend.lisp b/physics/backend/backend.lisp
@@ -94,6 +94,7 @@
 (defgeneric (setf simulation-engine-collision-friction) (value engine))
 (defgeneric (setf simulation-engine-collision-elasticity) (value engine))
 (defgeneric (setf simulation-engine-collision-surface-velocity) (value engine))
+(defgeneric simulation-engine-collision-surface-velocity (engine))
 
 (defgeneric simulation-engine-contact-normal (engine))
 (defgeneric simulation-engine-contact-point (engine))