diff options
Diffstat (limited to 'sdl2/render.scm')
| -rw-r--r-- | sdl2/render.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/sdl2/render.scm b/sdl2/render.scm index f937eca..6a9c0b2 100644 --- a/sdl2/render.scm +++ b/sdl2/render.scm @@ -41,6 +41,7 @@ set-render-target! get-render-target set-render-draw-color + set-render-draw-blend-mode render-draw-line render-draw-lines render-draw-point @@ -121,6 +122,12 @@ color." "Display RENDERER." (ffi:sdl-render-present (unwrap-renderer renderer))) +(define (set-render-draw-blend-mode renderer blend-mode) + "Set blend mode of RENDERER to BLEND-MODE." + (ffi:sdl-set-render-draw-blend-mode + (unwrap-renderer renderer) + ((@@ (sdl2 blend-mode) blend-mode-bitmask) blend-mode))) + (define (set-render-draw-color renderer r g b a) "Set draw color of RENDERER." (ffi:sdl-set-render-draw-color (unwrap-renderer renderer) r g b a)) |