From 5a6ea82c9ad859972c01d2908b2f66fb3addcfbb Mon Sep 17 00:00:00 2001 From: Eero Leno Date: Tue, 21 Aug 2018 15:20:08 +0300 Subject: Add binding for SDL_SetRenderDrawColor. * sdl2/bindings.scm (sdl-set-render-draw-color): New procedure. * sdl2/render.scm (set-render-draw-color): New procedure. --- sdl2/render.scm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'sdl2/render.scm') 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 -- cgit v1.2.3