From c9a2c09fa5297463743faa8ecac59d5f0ddc35a9 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 5 Dec 2020 15:26:38 -0500
Subject: render: s/render-draw/draw/

---
 doc/api.texi    | 16 ++++++++--------
 sdl2/render.scm | 16 ++++++++--------
 2 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/doc/api.texi b/doc/api.texi
index 488d8f3..f1fa9cf 100644
--- a/doc/api.texi
+++ b/doc/api.texi
@@ -1148,46 +1148,46 @@ Set blend mode of @var{renderer} to @var{blend-mode}. @xref{Blend
 Modes} for more information.
 @end deffn
 
-@deffn {Procedure} render-draw-line renderer x1 y1 x2 y2
+@deffn {Procedure} draw-line renderer x1 y1 x2 y2
 Draw a line from (@var{x1}, @var{y1}) to (@var{x2}, @var{y2}) on the
 current rendering target of @var{renderer}.
 @end deffn
 
-@deffn {Procedure} render-draw-lines renderer points
+@deffn {Procedure} draw-lines renderer points
 Draw a series of connected lines from @var{points} on the current
 rendering target of @var{renderer}.  Optionally, for best performance,
 @var{points} may instead be a bytevector packed with signed 32 bit
 integers, 2 per point (x and y).
 @end deffn
 
-@deffn {Procedure} render-draw-point renderer x y
+@deffn {Procedure} draw-point renderer x y
 Draw a point at (@var{x}, @var{y}) on the current rendering target
 of @var{renderer}.
 @end deffn
 
-@deffn {Procedure} render-draw-points renderer points
+@deffn {Procedure} draw-points renderer points
 Draw a multiple points from @var{points} on the current rendering
 target of @var{renderer}.  Optionally, for best performance,
 @var{points} may instead be a bytevector packed with signed 32 bit
 integers, 2 per point (x and y).
 @end deffn
 
-@deffn {Procedure} render-draw-rect renderer rectangle
+@deffn {Procedure} draw-rect renderer rectangle
 Draw the outline of @var{rectangle} onto renderer.
 @end deffn
 
-@deffn {Procedure} render-draw-rects renderer rects
+@deffn {Procedure} draw-rects renderer rects
 Draw the outline of all rects in 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).
 @end deffn
 
-@deffn {Procedure} render-fill-rect renderer rectangle
+@deffn {Procedure} fill-rect renderer rectangle
 Fill @var{rectangle} onto @var{renderer}.
 @end deffn
 
-@deffn {Procedure} render-fill-rects renderer rects
+@deffn {Procedure} 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 4d83d0c..fbf2c77 100644
--- a/sdl2/render.scm
+++ b/sdl2/render.scm
@@ -194,11 +194,11 @@ disable it."
   "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)
+(define (draw-line renderer x1 y1 x2 y2)
   "Draw line on RENDERER."
   (ffi:sdl-render-draw-line (unwrap-renderer renderer) x1 y1 x2 y2))
 
-(define (render-draw-rect renderer rect)
+(define (draw-rect renderer rect)
   "Draw RECT on RENDERER."
   (ffi:sdl-render-draw-rect
    (unwrap-renderer renderer)
@@ -206,7 +206,7 @@ disable it."
        ((@@ (sdl2 rect) unwrap-rect) rect)
        %null-pointer)))
 
-(define (render-draw-point renderer x y)
+(define (draw-point renderer x y)
   "Draw point on RENDERER."
   (ffi:sdl-render-draw-point (unwrap-renderer renderer) x y))
 
@@ -229,7 +229,7 @@ disable it."
          (s32vector-set! bv (+ (* i 1) 1) y)
          (loop rest (+ i 1)))))))
 
-(define (render-draw-lines renderer points)
+(define (draw-lines renderer points)
   "Draw lines connecting POINTS on RENDERER."
   (if (bytevector? points)
       (ffi:sdl-render-draw-lines (unwrap-renderer renderer)
@@ -240,7 +240,7 @@ disable it."
                                    (bytevector->pointer bv)
                                    (length points)))))
 
-(define (render-draw-points renderer points)
+(define (draw-points renderer points)
   "Draw POINTS on RENDERER."
   (if (bytevector? points)
       (ffi:sdl-render-draw-points (unwrap-renderer renderer)
@@ -260,7 +260,7 @@ disable it."
               rects (iota count))
     bv))
 
-(define (render-draw-rects renderer rects)
+(define (draw-rects renderer rects)
   "Draw RECTS on RENDERER."
   (if (bytevector? rects)
       (ffi:sdl-render-draw-rects (unwrap-renderer renderer)
@@ -271,7 +271,7 @@ disable it."
                                    (bytevector->pointer bv)
                                    (length rects)))))
 
-(define (render-fill-rect renderer rect)
+(define (fill-rect renderer rect)
   "Fill RECT on RENDERER."
   (ffi:sdl-render-fill-rect
    (unwrap-renderer renderer)
@@ -279,7 +279,7 @@ disable it."
        ((@@ (sdl2 rect) unwrap-rect) rect)
        %null-pointer)))
 
-(define (render-fill-rects renderer rects)
+(define (fill-rects renderer rects)
   "Fill RECTS on RENDERER."
   (if (bytevector? rects)
       (ffi:sdl-render-fill-rects (unwrap-renderer renderer)
-- 
cgit v1.2.3