diff options
-rw-r--r-- | sdl2/bindings.scm | 4 | ||||
-rw-r--r-- | sdl2/render.scm | 5 |
2 files changed, 9 insertions, 0 deletions
diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index d333c59..84e49b8 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -1,5 +1,6 @@ ;;; guile-sdl2 --- FFI bindings for SDL2 ;;; Copyright © 2015, 2016 David Thompson <davet@gnu.org> +;;; Copyright © 2018 Eero Leno <eero@leno.fi> ;;; ;;; This file is part of guile-sdl2. ;;; @@ -235,6 +236,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-foreign sdl-create-texture-from-surface '* "SDL_CreateTextureFromSurface" '(* *)) +(define-foreign sdl-set-render-draw-color + int "SDL_SetRenderDrawColor" (list '* uint8 uint8 uint8 uint8)) + ;;; ;;; Events diff --git a/sdl2/render.scm b/sdl2/render.scm index 44df4a4..e2fb05c 100644 --- a/sdl2/render.scm +++ b/sdl2/render.scm @@ -36,6 +36,7 @@ clear-renderer present-renderer render-copy + set-render-draw-color surface->texture)) @@ -101,6 +102,10 @@ color." "Display RENDERER." (ffi:sdl-render-present (unwrap-renderer renderer))) +(define (set-render-draw-color renderer r g b a) + "Set draw color of RENDERER." + (ffi:sdl-set-render-draw-color (unwrap-renderer renderer) r g b a)) + ;;; ;;; Texture |