Mercurial > repos > tabletprog

comparison samples/sdl.tp @ 278:1205c7a43cb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add bindings for SDL_ClearError, SDL_GetError, SDL_LoadBMP, SDL_CreateTextureFromSurface and a partial binding for SDL_RendererCopy
author Michael Pavone <pavone@retrodev.com>
date Mon, 21 Jul 2014 12:51:38 -0700
parents 2b58eafa360b
children eb83863fd33e
comparison
equal deleted inserted replaced
277:2b58eafa360b 278:1205c7a43cb4
7 if: (sdl init: (video or timer)) = 0 { 7 if: (sdl init: (video or timer)) = 0 {
8 (sdl createWindow: "SDL Test" pos: 0 0 size: 640 480 flags: 0u32) value: :window { 8 (sdl createWindow: "SDL Test" pos: 0 0 size: 640 480 flags: 0u32) value: :window {
9 (window createRenderer: -1 flags: ((window renderOpts) accelerated)) value: :render { 9 (window createRenderer: -1 flags: ((window renderOpts) accelerated)) value: :render {
10 render drawColor!: (sdl r: 0u8 g: 0u8 b: 255u8) 10 render drawColor!: (sdl r: 0u8 g: 0u8 b: 255u8)
11 render clear 11 render clear
12 render present 12 (sdl loadBMP: "944.bmp") value: :surf {
13 sdl delay: 3000u32 13 (surf asTexture: render) value: :tex {
14 sdl clearError
15 if: (tex copyTo: render) != 0 {
16 print: "Failed to copy texture to renderer: " . (sdl getError) . "\n"
17 }
18 surf free
19 render present
20 sdl delay: 3000u32
21 tex destroy
22 } none: {
23 surf free
24 }
25 } none: {
26 }
14 render destroy 27 render destroy
15 } none: { 28 } none: {
16 print: "Failed to create renderer\n" 29 print: "Failed to create renderer\n"
17 } 30 }
18 window destroy 31 window destroy