summaryrefslogtreecommitdiff
path: root/sdl2/render.scm
diff options
context:
space:
mode:
authorPierre-Antoine Rouby <contact@parouby.fr>2019-05-22 08:27:55 +0200
committerDavid Thompson <dthompson2@worcester.edu>2019-05-23 09:22:03 -0400
commit3d91eb43ace55bbcce85b5fcfd9dc04ba3dfe236 (patch)
treee1780bb1868407bfc8eb4dea13783d3ded6bd07a /sdl2/render.scm
parent13ed39d65ed2637973c64303e8b90c3eac1b550e (diff)
render: Add SDL_RenderDrawLine binding.
* sdl2/bindings.scm (sdl-render-draw-line): New procedure. * sdl2/render.scm (render-draw-line): New procedure. * doc/api.texi: Document it.
Diffstat (limited to 'sdl2/render.scm')
-rw-r--r--sdl2/render.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/sdl2/render.scm b/sdl2/render.scm
index c91699d..18b800d 100644
--- a/sdl2/render.scm
+++ b/sdl2/render.scm
@@ -37,6 +37,7 @@
present-renderer
render-copy
set-render-draw-color
+ render-draw-line
surface->texture))
@@ -106,6 +107,10 @@ color."
"Set draw color of RENDERER."
(ffi:sdl-set-render-draw-color (unwrap-renderer renderer) r g b a))
+(define (render-draw-line renderer x1 y1 x2 y2)
+ "Draw line on RENDERER."
+ (ffi:sdl-render-draw-line (unwrap-renderer renderer) x1 y1 x2 y2))
+
;;;
;;; Texture