1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
use std
use sdl
const main = {
var win, r, tex
var pixels : uint8[64 * 32]
sdl.init(sdl.INIT_VIDEO)
win = sdl.mkwin(("chip\0" : byte#), sdl.WIN_POS_UNSPEC, sdl.WIN_POS_UNSPEC, 640, 480, sdl.WIN_OPENGL)
r = sdl.mkrenderer(win, -1, sdl.RENDERER_ACCEL)
tex = sdl.mktexture(r, sdl.PIXFMT_RGB332, sdl.TEXACCESS_STREAM, 64, 32)
var i
for i = 0; i < 64 * 32; i++;
if std.rand(0, 2) == 1
pixels[i] = 255
else
pixels[i] = 0
;;
;;
sdl.update(tex, (pixels[:] : void#), 64)
sdl.copy(r, tex)
sdl.present(r)
sdl.delay(10000)
sdl.freerenderer(r)
sdl.freewin(win)
sdl.quit()
}
|
