anchor.diff:                wptr (float radius) (float height) 0 m4))))))
   
   
  -(defun make-convex-hull-geometry (world points/mesh
  -                                  &key (tolerance 1s0)
  -                                    (offset-matrix4 (m4:identity)))
  +(defn make-convex-hull-geometry ((world world)
  +                                 (points/mesh (or mesh sequence))
  +                                 &key
  +                                 (tolerance single-float 1f0)
  +                                 (offset-matrix4 (simple-array single-float (16)) (m4:identity)))
  +    convex-hull-geometry
     "Create a ConvexHull primitive from collision from a cloud of
      points. Convex hulls are the solution to collision primitive that can
      not be easily represented by an implicit solid. The implicit solid
  
positive.code:    unnecessarily the material count, and therefore the project
     complexity. The Null collision is a collision object that satisfy all
     this conditions without having to change the engine philosophy."
    (let ((wptr (%world-ptr world)))
      (%init-data
       (%make-null
        :ptr (newtoncreatenull wptr)))))
  
  (defun make-box-geometry (world &key (dimensions (v! 1s0 1s0 1s0))
                                    (offset-matrix4 (m4:identity)))
    "Create a box primitive for collision."
    (let ((wptr (%world-ptr world)))
      (with-foreign-array (m4 offset-matrix4 '(:array :float 16))
  
negative.code:         :ptr (newtoncreatecylinder
                wptr (float radius-0) (float radius-1) (float height) 0 m4))))))
  
  (defn make-chamfer-cylinder-geometry ((world world)
                                        &key
                                        (radius single-float 1f0)
                                        (height single-float 1f0)
                                        (offset-matrix4 (simple-array single-float (16)) (m4:identity)))
      chamfer-cylinder-geometry
    "Create a ChamferCylinder primitive for collision."
    (declare (optimize (speed 3) (safety 1) (debug 1)))
    (let ((wptr (%world-ptr world)))
      (with-foreign-array (m4 offset-matrix4 '(:array :float 16))
        (%init-data
  