1 files changed, 5 insertions, 0 deletions
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