Mercurial > repos > tabletprog
comparison modules/sdl.tp @ 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 | bb1539decd62 |
children | 38bbbf74b735 |
comparison
equal
deleted
inserted
replaced
286:ddf38b66b2e2 | 287:b01d7c1b4edd |
---|---|
165 intret <- make_object: (addr_of: obj_int32_meta) NULL 0 | 165 intret <- make_object: (addr_of: obj_int32_meta) NULL 0 |
166 intret num!: (SDL_RenderCopy: renderer texture (srcOpaque val) (dstOpaque val)) | 166 intret num!: (SDL_RenderCopy: renderer texture (srcOpaque val) (dstOpaque val)) |
167 intret | 167 intret |
168 } | 168 } |
169 | 169 |
170 llMessage: copyTo:rotated withVars: { | |
171 dst <- object ptr | |
172 angle <- object ptr | |
173 dstOpaque <- cpointer ptr | |
174 anglef <- obj_float32 ptr | |
175 intret <- obj_int32 ptr | |
176 } andCode: :dst :angle { | |
177 anglef <- (mcall: f32 1 angle) castTo: (obj_float32 ptr) | |
178 dstOpaque <- (mcall: _rectPointer 1 dst) castTo: (cpointer ptr) | |
179 intret <- make_object: (addr_of: obj_int32_meta) NULL 0 | |
180 intret num!: (SDL_RenderCopyEx: renderer texture NULL (dstOpaque val) (anglef num) NULL SDL_FLIP_NONE) | |
181 intret | |
182 } | |
183 | |
170 llMessage: destroy withVars: {} andCode: { | 184 llMessage: destroy withVars: {} andCode: { |
171 SDL_DestroyTexture: texture | 185 SDL_DestroyTexture: texture |
172 true | 186 true |
173 } | 187 } |
174 } _ptr_init: rendptr texptr | 188 } _ptr_init: rendptr texptr |