(save-name "passive-collision-weirdness.scm")

(clear)

(collisions 1)
(ground-plane (vector 0 1 0) -4)

(push)
(translate (vector -3 3 0))
(define cube-a (build-cube))
(active-box cube-a)
(pop)

(push)
(translate (vector 3 3 0))
(define cube-b (build-cube))
(passive-box cube-b)
(pop)

(define (update)
  (if (has-collided cube-b) (begin
    (grab cube-b)
    (colour (vector (flxrnd) (flxrnd) (flxrnd)))
    (ungrab)
  ))
)

(every-frame (update))