;; $ chickadee play gc-issue.scm
;;
;; Observation: 'gc-time slowly but steadily grows
;;
;; Notes:
;; - this example is based on chickadee/examples/path.scm
;; - only happens when game window is visible
;; - seems to be specific to (chickadee graphics path), doesn't
;;   affect (chickadee graphics font) for example
;; - observed with past few chickadee versions (though this
;;   example requires v0.8 because it uses `chickadee play`)

(use-modules
 (chickadee)
 (chickadee math vector)
 (chickadee graphics path))

(define canvas (make-empty-canvas))

(define max-gc-time 0)

(define (draw alpha)
  (let ((gc-time (assoc-ref (gc-stats) 'gc-time-taken)))
    (when (> gc-time max-gc-time)
      (set! max-gc-time gc-time)
      (pk 'gc-time gc-time)))

  ;; based on chickadee/examples/path.scm
  (set-canvas-painter! canvas (fill (circle (vec2 100 100) 5)))
  (draw-canvas canvas))

(run-game #:draw draw)