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/bindings.scm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'sdl2/bindings.scm') diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index 8d85c63..7f12b45 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -321,6 +321,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-foreign sdl-get-texture-alpha-mod int "SDL_GetTextureAlphaMod" '(* *)) +(define-foreign sdl-set-texture-blend-mode + int "SDL_SetTextureBlendMode" (list '* int)) + (define-foreign sdl-set-render-draw-blend-mode int "SDL_SetRenderDrawBlendMode" (list '* int)) -- cgit v1.2.3