diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-01-04 21:47:06 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-01-04 21:47:06 -0500 |
| commit | f7e5de964d82c036f029a458de14864eaca9e290 (patch) | |
| tree | cecad3aad36cf8bbe0afb2cbf465ff69068085f5 | |
| parent | 240dd224cccfbd224f1e770f1589d6124cf6bb1f (diff) | |
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.
| -rw-r--r-- | doc/api.texi | 4 | ||||
| -rw-r--r-- | 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) |