# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1406079540 25200
# Node ID b01d7c1b4edd3be515f5d0a65ebe28bf7a0b81b2
# Parent  ddf38b66b2e2e5b1aca4ccd01f822686ca9791e6
Add binding for simple form of SDL_RenderCopyEx

diff -r ddf38b66b2e2 -r b01d7c1b4edd modules/sdl.tp
--- a/modules/sdl.tp	Tue Jul 22 18:31:31 2014 -0700
+++ b/modules/sdl.tp	Tue Jul 22 18:39:00 2014 -0700
@@ -167,6 +167,20 @@
 				intret
 			}
 
+			llMessage: copyTo:rotated withVars: {
+				dst <- object ptr
+				angle <- object ptr
+				dstOpaque <- cpointer ptr
+				anglef <- obj_float32 ptr
+				intret <- obj_int32 ptr
+			} andCode: :dst :angle {
+				anglef <- (mcall: f32 1 angle) castTo: (obj_float32 ptr)
+				dstOpaque <- (mcall: _rectPointer 1 dst) castTo: (cpointer ptr)
+				intret <- make_object: (addr_of: obj_int32_meta) NULL 0
+				intret num!: (SDL_RenderCopyEx: renderer texture NULL (dstOpaque val) (anglef num) NULL SDL_FLIP_NONE)
+				intret
+			}
+
 			llMessage: destroy withVars: {} andCode: {
 				SDL_DestroyTexture: texture
 				true
diff -r ddf38b66b2e2 -r b01d7c1b4edd samples/sdl.tp
--- a/samples/sdl.tp	Tue Jul 22 18:31:31 2014 -0700
+++ b/samples/sdl.tp	Tue Jul 22 18:39:00 2014 -0700
@@ -18,6 +18,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)
+							tex copyTo: (sdl rect: 320 240 size: 320 224) rotated: 45.0
 							render present
 							sdl delay: 3000u32
 							tex destroy