diff options
Diffstat (limited to 'sdl2')
| -rw-r--r-- | sdl2/bindings.scm | 3 | ||||
| -rw-r--r-- | sdl2/render.scm | 16 |
2 files changed, 19 insertions, 0 deletions
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)) |