big-bang diagram

The model/drawing diagram shows a sequence of current models in the top row. Each horizontal arrow represents a handler (tick, key, or mouse) running using the figure to the left as the old model. Each vertical arrow represents a draw handler running.

Here is an example model/drawing diagram.

The code that would produce the diagram above is:

(define (push x)
  (beside x (square 5 "solid" "orange")))
(define (dh-top-right model)
  (overlay/align "right" "top" model (empty-scene 200 100)))
(big-bang (rectangle 40 5 "solid" "light orange")
  (to-draw dh-top-right)
  (on-tick push))