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