From faba3b60ca4d4e9d4545cb5d8511db02a332855f Mon Sep 17 00:00:00 2001 From: Pierre-Antoine Rouby Date: Wed, 29 May 2019 22:53:44 +0200 Subject: render: Add SDL_RenderDrawLines binding. * sdl2/bindings.scm (sdl-render-draw-lines): New procedure. * sdl2/render.scm (render-draw-lines): New procedure. * doc/api.texi: Document it. --- sdl2/bindings.scm | 3 +++ sdl2/render.scm | 16 ++++++++++++++++ 2 files changed, 19 insertions(+) (limited to 'sdl2') diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index bf8db7a..900b641 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -252,6 +252,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-foreign sdl-render-draw-line int "SDL_RenderDrawLine" (list '* int int int int)) +(define-foreign sdl-render-draw-lines + int "SDL_RenderDrawLines" (list '* '* int)) + (define-foreign sdl-render-draw-point int "SDL_RenderDrawPoint" (list '* int int)) diff --git a/sdl2/render.scm b/sdl2/render.scm index 326745f..0b92bc4 100644 --- a/sdl2/render.scm +++ b/sdl2/render.scm @@ -39,6 +39,7 @@ render-copy set-render-draw-color render-draw-line + render-draw-lines render-draw-point render-draw-points @@ -115,6 +116,21 @@ color." "Draw line on RENDERER." (ffi:sdl-render-draw-line (unwrap-renderer renderer) x1 y1 x2 y2)) +(define (render-draw-lines renderer points) + "Draw lines connecting POINTS on RENDERER." + (define (fill-bv bv l n) + (match l + (() bv) + (((x y) . r) + (s32vector-set! bv n x) + (s32vector-set! bv (+ n 1) y) + (fill-bv bv r (+ 2 n))))) + (let* ((count (length points)) + (bv (fill-bv (make-s32vector (* count 2)) points 0))) + (ffi:sdl-render-draw-lines (unwrap-renderer renderer) + (bytevector->pointer bv) + count))) + (define (render-draw-point renderer x y) "Draw point on RENDERER." (ffi:sdl-render-draw-point (unwrap-renderer renderer) x y)) -- cgit v1.2.3