(use ezxdisp extras srfi-4)

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

(define points (s32vector 2 2 42 2 42 42 2 42 2 2))

(ezx-set-background ezx (make-ezx-color 1 1 1))
(ezx-lines-2d ezx points (make-ezx-color 1 0 0) 4)
(ezx-redraw ezx)

(let loop ()
  (let ((e (receive (ezx-next-event ezx))))
    (pp e)
    (unless (= (car e) ezx:CLOSE) (loop))))

(ezx-quit ezx)