Mercurial > repos > tabletprog

comparison samples/sdl.tp @ 277:2b58eafa360b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add SDL bindings for creating a renderer, clearing it, presenting it and destroying it
author Michael Pavone <pavone@retrodev.com>
date Sun, 20 Jul 2014 17:30:46 -0700
parents a923b5b7da3d
children 1205c7a43cb4
comparison
equal deleted inserted replaced
276:9f9cc73bf86d 277:2b58eafa360b
4 timer 4 timer
5 ] from: (sdl subsystems) 5 ] from: (sdl subsystems)
6 main <- { 6 main <- {
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 sdl delay: 3000u32 9 (window createRenderer: -1 flags: ((window renderOpts) accelerated)) value: :render {
10 render drawColor!: (sdl r: 0u8 g: 0u8 b: 255u8)
11 render clear
12 render present
13 sdl delay: 3000u32
14 render destroy
15 } none: {
16 print: "Failed to create renderer\n"
17 }
10 window destroy 18 window destroy
11 } none: { 19 } none: {
12 print: "Failed to create window\n" 20 print: "Failed to create window\n"
13 1 21 1
14 } 22 }