Drawing to screen using multimedia

2022-10-01 22:47:20 +02:00
parent 4451553e85
commit 5baff3585e
2 changed files with 17 additions and 3 deletions
--- a/examples/using_multimedia.core
+++ b/examples/using_multimedia.core
@@ -4,4 +4,8 @@ WinMain :: (hInstance: HINSTANCE, hPrevInstance: HINSTANCE, lpCmdLine: LPSTR, nS
  StartMultimedia(title = "Hello, people!")
  for UpdateMultimedia()
    if Mu.key[Key.Escape].is_down
-      Mu.quit = true
+      Mu.quit = true
+
+    for y := 0, y < Mu.y, y+=1
+      for x := 0, x < Mu.x, x+=1
+        Mu.scrn[x + y*Mu.x] = 0xFFFFFF00