Mercurial > repos > tabletprog
comparison 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 |
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 |