--- 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