diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-06-09 20:48:21 +0200 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2019-06-09 18:15:04 -0400 |
| commit | 0e85e89d730b99472454ca9327c228362dbe136d (patch) | |
| tree | f29b3664704d72c4bb364dc011c8096d2cd02ac9 /sdl2/bindings.scm | |
| parent | a8afc8a54ec96e25767133d6c1e22f53354c8800 (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.scm | 12 |
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)) |