diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-01-04 21:09:15 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-01-04 21:09:15 -0500 |
| commit | 240dd224cccfbd224f1e770f1589d6124cf6bb1f (patch) | |
| tree | eaa5629a1232241d8e5a3d411dbdb77a869a40cc | |
| parent | 0b1d98247847e4136dae126995591b48ea51bc1b (diff) | |
render: Fix render-copy to use rect objects properly.
| -rw-r--r-- | sdl2/render.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/sdl2/render.scm b/sdl2/render.scm index 79350e5..d5d345a 100644 --- a/sdl2/render.scm +++ b/sdl2/render.scm @@ -466,14 +466,14 @@ TEXTURE." (unwrap-renderer renderer) (unwrap-texture texture) (if srcrect - (make-c-struct ffi:sdl-rect srcrect) + ((@@ (sdl2 rect) unwrap-rect) srcrect) %null-pointer) (if dstrect - (make-c-struct ffi:sdl-rect dstrect) + ((@@ (sdl2 rect) unwrap-rect) dstrect) %null-pointer) angle (if center - (make-c-struct ffi:sdl-point center) + ((@@ (sdl2 rect) unwrap-rect) center) %null-pointer) 0))) (unless (zero? result) |