Mercurial > repos > tabletprog
diff samples/sdl.tp @ 274:a923b5b7da3d
Initial work on an SDL2 binding
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 20 Jul 2014 00:13:01 -0700 |
parents | |
children | 2b58eafa360b |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/samples/sdl.tp Sun Jul 20 00:13:01 2014 -0700 @@ -0,0 +1,20 @@ +#{ + import: [ + video + timer + ] from: (sdl subsystems) + main <- { + if: (sdl init: (video or timer)) = 0 { + (sdl createWindow: "SDL Test" pos: 0 0 size: 640 480 flags: 0u32) value: :window { + sdl delay: 3000u32 + window destroy + } none: { + print: "Failed to create window\n" + 1 + } + } else: { + print: "Failed to initialize SDL\n" + 1 + } + } +} \ No newline at end of file