+ (if (not texture)
+ (set! texture (sdl2:surface->texture %sdl-renderer image)))
+ ;; (set! a (+ a 1))
+ ;; (format #t "~a steps with texture ~a~%" a texture))))))
+ (sdl2:clear-renderer %sdl-renderer)
+ (sdl2:render-copy %sdl-renderer texture)
+ (sdl2:present-renderer %sdl-renderer))))))