diff --git a/SDL2-Bits-And-Pieces/Guile-SDL-Experiment-01/Guile-SDL-Experiment-01.scm b/SDL2-Bits-And-Pieces/Guile-SDL-Experiment-01/Guile-SDL-Experiment-01.scm index f607f9e..ebd5105 100755 --- a/SDL2-Bits-And-Pieces/Guile-SDL-Experiment-01/Guile-SDL-Experiment-01.scm +++ b/SDL2-Bits-And-Pieces/Guile-SDL-Experiment-01/Guile-SDL-Experiment-01.scm @@ -8,15 +8,17 @@ (sdl2 events) (sdl2 input keyboard)) -(define (draw ren) - (set-renderer-draw-color! ren 255 255 255 255) +(define (draw renderer) + (set-renderer-draw-color! renderer 255 255 255 255) + (let* ((surface (load-image "guile.png")) - (texture (surface->texture ren surface))) + (texture (surface->texture renderer surface))) + (do ((event (poll-event) (poll-event))) ((eq? '#t (quit-event? event))) - (clear-renderer ren) - (render-copy ren texture) - (present-renderer ren)))) + (clear-renderer renderer) + (render-copy renderer texture) + (present-renderer renderer)))) (sdl-init)