Mercurial > repos > tabletprog
diff modules/sdl.tp @ 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 |
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