From 3d91eb43ace55bbcce85b5fcfd9dc04ba3dfe236 Mon Sep 17 00:00:00 2001 From: Pierre-Antoine Rouby Date: Wed, 22 May 2019 08:27:55 +0200 Subject: 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. --- sdl2/render.scm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'sdl2/render.scm') 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 -- cgit v1.2.3