From 4d42144c4dc35a8e7e7ce544e90b34eb440ed1c5 Mon Sep 17 00:00:00 2001
From: "Jakob L. Kreuze" <zerodaysfordays@sdf.lonestar.org>
Date: Wed, 1 Jan 2020 12:38:35 -0500
Subject: Add initial SDL bindings.

---
 main.myr | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 main.myr

(limited to 'main.myr')

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()
+}
-- 
cgit v1.3