From ba5783e3bdc6a1bd3c53a2bb5605c605e9af9a26 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 13 Dec 2015 22:56:27 -0500 Subject: Replace blank window example with hello example. --- examples/hello.scm | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 examples/hello.scm (limited to 'examples/hello.scm') diff --git a/examples/hello.scm b/examples/hello.scm new file mode 100644 index 0000000..3075102 --- /dev/null +++ b/examples/hello.scm @@ -0,0 +1,37 @@ +;;; guile-sdl2 --- FFI bindings for SDL2 +;;; Copyright © 2015 David Thompson +;;; +;;; This file is part of guile-sdl2. +;;; +;;; Guile-sdl2 is free software; you can redistribute it and/or modify +;;; it under the terms of the GNU Lesser General Public License as +;;; published by the Free Software Foundation; either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; Guile-sdl2 is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; You should have received a copy of the GNU Lesser General Public +;;; License along with guile-sdl2. If not, see +;;; . + +(use-modules (sdl2) + (sdl2 render) + (sdl2 surface) + (sdl2 video)) + +(sdl-init) + +(define window (make-sdl-window)) +(define ren (make-renderer window)) +(define surface (load-bmp "hello.bmp")) +(define texture (surface->texture ren surface)) + +(clear-renderer ren) +(render-copy ren texture) +(present-renderer ren) +(sleep 2) +(close-sdl-window! window) +(sdl-quit) -- cgit v1.2.3