From 1054cbd906ced5cb38476b00700aa8c279f6e1c8 Mon Sep 17 00:00:00 2001 From: Leo Prikler Date: Tue, 29 Sep 2020 11:10:32 +0200 Subject: Add blend mode bindings. --- sdl2/render.scm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'sdl2/render.scm') diff --git a/sdl2/render.scm b/sdl2/render.scm index f937eca..6a9c0b2 100644 --- a/sdl2/render.scm +++ b/sdl2/render.scm @@ -41,6 +41,7 @@ set-render-target! get-render-target set-render-draw-color + set-render-draw-blend-mode render-draw-line render-draw-lines render-draw-point @@ -121,6 +122,12 @@ color." "Display RENDERER." (ffi:sdl-render-present (unwrap-renderer renderer))) +(define (set-render-draw-blend-mode renderer blend-mode) + "Set blend mode of RENDERER to BLEND-MODE." + (ffi:sdl-set-render-draw-blend-mode + (unwrap-renderer renderer) + ((@@ (sdl2 blend-mode) blend-mode-bitmask) blend-mode))) + (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)) -- cgit v1.2.3