# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1406043159 25200
# Node ID 99c18127da0475c54b3e592122e5e98e9f553d4e
# Parent  0ec4f1b68a38f2c2a9d6545448a5751b52f173e7
Add another SDL_RenderCopy binding in the form of copyRect:To

diff -r 0ec4f1b68a38 -r 99c18127da04 modules/sdl.tp
--- a/modules/sdl.tp	Mon Jul 21 20:27:38 2014 -0700
+++ b/modules/sdl.tp	Tue Jul 22 08:32:39 2014 -0700
@@ -153,6 +153,20 @@
 				intret
 			}
 
+			llMessage: copyRect:To withVars: {
+				src <- object ptr
+				dst <- object ptr
+				srcOpaque <- cpointer ptr
+				dstOpaque <- cpointer ptr
+				intret <- obj_int32 ptr
+			} andCode: :src :dst {
+				srcOpaque <- (mcall: _rectPointer 1 src) castTo: (cpointer ptr)
+				dstOpaque <- (mcall: _rectPointer 1 dst) castTo: (cpointer ptr)
+				intret <- make_object: (addr_of: obj_int32_meta) NULL 0
+				intret num!: (SDL_RenderCopy: renderer texture (srcOpaque val) (dstOpaque val))
+				intret
+			}
+
 			llMessage: destroy withVars: {} andCode: {
 				SDL_DestroyTexture: texture
 				true
diff -r 0ec4f1b68a38 -r 99c18127da04 samples/sdl.tp
--- a/samples/sdl.tp	Mon Jul 21 20:27:38 2014 -0700
+++ b/samples/sdl.tp	Tue Jul 22 08:32:39 2014 -0700
@@ -17,6 +17,7 @@
 							}
 							surf free
 							tex copyTo: (sdl rect: 160 120 size: 320 224)
+							tex copyRect: (sdl rect: 80 60 size: 160 120) To: (sdl rect: 40 30 size: 320 224)
 							render present
 							sdl delay: 3000u32
 							tex destroy