(require-extension g2 extras)

(define d (g2:open-x11 50 50))
(g2:line d 5 5 45 45)
(g2:circle d 25 25 20)

(pp (receive (g2:query-pointer d)))

(let loop ()
  (let-values (((_ _ b) (g2:query-pointer d)))
    (when (< b 256) (loop))))

(g2:close d)