summaryrefslogtreecommitdiff
path: root/sdl2/bindings.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2019-06-09 20:48:21 +0200
committerDavid Thompson <dthompson2@worcester.edu>2019-06-09 18:15:04 -0400
commit0e85e89d730b99472454ca9327c228362dbe136d (patch)
treef29b3664704d72c4bb364dc011c8096d2cd02ac9 /sdl2/bindings.scm
parenta8afc8a54ec96e25767133d6c1e22f53354c8800 (diff)
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.
Diffstat (limited to 'sdl2/bindings.scm')
-rw-r--r--sdl2/bindings.scm12
1 files changed, 12 insertions, 0 deletions
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))