(when (not texture)
(set! texture (sdl2:surface->texture %sdl-renderer image))
(set! w/2 (/ (sdl2:surface-width image) 2))
(when (not texture)
(set! texture (sdl2:surface->texture %sdl-renderer image))
(set! w/2 (/ (sdl2:surface-width image) 2))
(let ((xy (list (to-integer (if (procedure? x) (x) x))
(to-integer (if (procedure? y) (y) y)))))
(display-scene scene #:xy xy)))))
(let ((xy (list (to-integer (if (procedure? x) (x) x))
(to-integer (if (procedure? y) (y) y)))))
(display-scene scene #:xy xy)))))