28 lines
639 B
Scheme
28 lines
639 B
Scheme
|
#!/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)
|