Add initial SDL bindings.

1 files changed, 30 insertions, 0 deletions

diff --git a/main.myr b/main.myr
new file mode 100644
index 0000000..a2a54be
--- /dev/null
+++ b/main.myr
@@ -0,0 +1,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()
+}