From 0e85e89d730b99472454ca9327c228362dbe136d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 9 Jun 2019 20:48:21 +0200 Subject: render: Add texture color/alpha mod bindings. * sdl2/bindings.scm (sdl-set-texture-color-mod, sdl-get-texture-color-mod, sdl-set-texture-alpha-mod, sdl-get-texture-alpha-mood): New procedures. * sdl2/render.scm (set-texture-color-mod!, set-texture-alpha-mod!, get-texture-color-mod, get-texture-alpha-mod): New procedures. * doc/api.texi: Document new procedures. --- sdl2/bindings.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'sdl2/bindings.scm') diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index 2ebc2ed..238320c 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -259,6 +259,18 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-foreign sdl-destroy-texture void "SDL_DestroyTexture" '(*)) +(define-foreign sdl-set-texture-color-mod + int "SDL_SetTextureColorMod" (list '* uint8 uint8 uint8)) + +(define-foreign sdl-get-texture-color-mod + int "SDL_GetTextureColorMod" '(* * * *)) + +(define-foreign sdl-set-texture-alpha-mod + int "SDL_SetTextureAlphaMod" (list '* uint8)) + +(define-foreign sdl-get-texture-alpha-mod + int "SDL_GetTextureAlphaMod" '(* *)) + (define-foreign sdl-set-render-draw-color int "SDL_SetRenderDrawColor" (list '* uint8 uint8 uint8 uint8)) -- cgit v1.2.3