changeset 287:b01d7c1b4edd

Add binding for simple form of SDL_RenderCopyEx
author Michael Pavone <pavone@retrodev.com>
date Tue, 22 Jul 2014 18:39:00 -0700
parents ddf38b66b2e2
children a4c2b31acba7
files modules/sdl.tp samples/sdl.tp
diffstat 2 files changed, 15 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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