From f7e5de964d82c036f029a458de14864eaca9e290 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 4 Jan 2023 21:47:06 -0500 Subject: render: Change fill-rect to render-fill-rect. This is to avoid a name collision with fill-rect in the (sdl2 surface) module. Rename fill-rects to render-fill-rects, too, for consistency. --- doc/api.texi | 4 ++-- sdl2/render.scm | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/doc/api.texi b/doc/api.texi index edd111c..96f5623 100644 --- a/doc/api.texi +++ b/doc/api.texi @@ -1249,11 +1249,11 @@ instead be a bytevector packed with signed 32 bit integers, 4 per rect (x, y, width, height). @end deffn -@deffn {Procedure} fill-rect renderer rectangle +@deffn {Procedure} render-fill-rect renderer rectangle Fill @var{rectangle} onto @var{renderer}. @end deffn -@deffn {Procedure} fill-rects renderer rects +@deffn {Procedure} render-fill-rects renderer rects Fill the list @var{rects} onto @var{renderer}. Optionally, for best performance, @var{rects} may instead be a bytevector packed with signed 32 bit integers, 4 per rect (x, y, width, height). diff --git a/sdl2/render.scm b/sdl2/render.scm index d5d345a..dc39bf6 100644 --- a/sdl2/render.scm +++ b/sdl2/render.scm @@ -57,8 +57,8 @@ draw-points draw-rect draw-rects - fill-rect - fill-rects + render-fill-rect + render-fill-rects texture-color-mod texture-alpha-mod @@ -284,7 +284,7 @@ disable it." (bytevector->pointer bv) (length rects))))) -(define (fill-rect renderer rect) +(define (render-fill-rect renderer rect) "Fill RECT on RENDERER." (ffi:sdl-render-fill-rect (unwrap-renderer renderer) @@ -292,7 +292,7 @@ disable it." ((@@ (sdl2 rect) unwrap-rect) rect) %null-pointer))) -(define (fill-rects renderer rects) +(define (render-fill-rects renderer rects) "Fill RECTS on RENDERER." (if (bytevector? rects) (ffi:sdl-render-fill-rects (unwrap-renderer renderer) -- cgit v1.2.3