(use ezxdisp srfi-18)

(define ezx (ezx-init 100 100 "Hello, ezxdisp"))

(ezx-set-background ezx (make-ezx-color 1 1 1))
(ezx-fillcircle-2d ezx 50 50 25 (make-ezx-color 1 0 0))
(ezx-redraw ezx)

(let loop ()
  (thread-sleep! 0.25)
  (when (ezx-event-pending ezx)
    (pp (receive (ezx-next-event ezx))) )
  (loop))

(ezx-quit ezx)