summaryrefslogtreecommitdiff
path: root/sdl2
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2020-12-05 15:26:38 -0500
committerDavid Thompson <dthompson2@worcester.edu>2020-12-05 15:26:38 -0500
commitc9a2c09fa5297463743faa8ecac59d5f0ddc35a9 (patch)
treebe0378b145fa0cb3c2459216b63098c9560d86cf /sdl2
parenta49a27bedec4cdfc4bf52262006702171469a25c (diff)
render: s/render-draw/draw/
Diffstat (limited to 'sdl2')
-rw-r--r--sdl2/render.scm16
1 files changed, 8 insertions, 8 deletions
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)