Mercurial > repos > tabletprog

comparison modules/sdl.tp @ 284:99c18127da04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
283:0ec4f1b68a38 284:99c18127da04
151 intret <- make_object: (addr_of: obj_int32_meta) NULL 0 151 intret <- make_object: (addr_of: obj_int32_meta) NULL 0
152 intret num!: (SDL_RenderCopy: renderer texture NULL (dstOpaque val)) 152 intret num!: (SDL_RenderCopy: renderer texture NULL (dstOpaque val))
153 intret 153 intret
154 } 154 }
155 155
156 llMessage: copyRect:To withVars: {
157 src <- object ptr
158 dst <- object ptr
159 srcOpaque <- cpointer ptr
160 dstOpaque <- cpointer ptr
161 intret <- obj_int32 ptr
162 } andCode: :src :dst {
163 srcOpaque <- (mcall: _rectPointer 1 src) castTo: (cpointer ptr)
164 dstOpaque <- (mcall: _rectPointer 1 dst) castTo: (cpointer ptr)
165 intret <- make_object: (addr_of: obj_int32_meta) NULL 0
166 intret num!: (SDL_RenderCopy: renderer texture (srcOpaque val) (dstOpaque val))
167 intret
168 }
169
156 llMessage: destroy withVars: {} andCode: { 170 llMessage: destroy withVars: {} andCode: {
157 SDL_DestroyTexture: texture 171 SDL_DestroyTexture: texture
158 true 172 true
159 } 173 }
160 } _ptr_init: rendptr texptr 174 } _ptr_init: rendptr texptr