Guile SDL Experiment 01

First test of Scheme with graphics. Fun!

SDL2-Bits-And-Pieces/Guile-SDL-Experiment-01/Guile-SDL-Experiment-01.scm

@@ -0,0 +1,27 @@
+#!/usr/bin/guile  -s
+!#
+(use-modules (sdl2)
+             (sdl2 render)
+             (sdl2 surface)
+             (sdl2 video)
+			 (sdl2 image)
+			 (sdl2 events)
+			 (sdl2 input keyboard))
+
+(define (draw ren)
+  (set-renderer-draw-color! ren 255 255 255 255)
+  (let* ((surface (load-image "guile.png"))
+         (texture (surface->texture ren surface)))
+	(do ((event (poll-event) (poll-event)))
+		((eq? '#t (quit-event? event)))
+	  (clear-renderer ren)
+	  (render-copy ren texture)
+	  (present-renderer ren))))
+
+(sdl-init)
+
+(call-with-window (make-window)
+  (lambda (window)
+    (call-with-renderer (make-renderer window) draw)))
+
+(sdl-quit)