Pass substance to box polygon

borodust · Apr 12, 2020 · 20638b4 · 20638b4
1 parent 4486efb
commit 20638b4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/physics/2d/shape.lisp b/physics/2d/shape.lisp
@@ -218,7 +218,8 @@
                                                     (vec2 ox (+ oy height))
                                                     (vec2 (+ ox width) (+ oy height))
                                                     (vec2 (+ ox width) oy))
-                                              :body body))
+                                              :body body
+                                              :substance substance))
       (let ((shape (make-instance 'box-shape
                                   :universe universe
                                   :substance substance