From 031605783e630d46b7294d6ac8bfbf5e4884bb82 Mon Sep 17 00:00:00 2001 From: Leo Prikler Date: Mon, 14 Jun 2021 18:35:33 +0200 Subject: Add support for texture blend modes. * sdl2/bindings.scm (sdl-set-texture-blend-mode): New variable. * sdl2/render.scm (set-texture-blend-mode!): New variable. --- sdl2/render.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'sdl2/render.scm') diff --git a/sdl2/render.scm b/sdl2/render.scm index e12fad1..5c3b9b0 100644 --- a/sdl2/render.scm +++ b/sdl2/render.scm @@ -403,6 +403,12 @@ TEXTURE." (bytevector-uint-ref bv (* 2 (sizeof int)) (native-endianness) (sizeof int)) (bytevector-uint-ref bv (* 3 (sizeof int)) (native-endianness) (sizeof int))))) +(define (set-texture-blend-mode! texture blend-mode) + (unless (zero? (ffi:sdl-set-texture-blend-mode + (unwrap-texture texture) + ((@@ (sdl2 blend-mode) blend-mode-bitmask) blend-mode))) + (sdl-error "set-texure-blend-mode!" "Failed to set texture blend mode"))) + (define (set-texture-color-mod! texture r g b) "Get color mod of TEXTURE as a list of the integers." (unless (zero? (ffi:sdl-set-texture-color-mod (unwrap-texture texture) r g b)) -- cgit v1.2.3