Mercurial > repos > tabletprog
changeset 284:99c18127da04
Add another SDL_RenderCopy binding in the form of copyRect:To
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 22 Jul 2014 08:32:39 -0700 |
parents | 0ec4f1b68a38 |
children | bb1539decd62 |
files | modules/sdl.tp samples/sdl.tp |
diffstat | 2 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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