Working on multimedia

2022-10-01 17:07:36 +02:00
parent c85f16f673
commit d866ebb231
5 changed files with 56 additions and 25 deletions
--- a/examples/constant_expressions.core
+++ b/examples/constant_expressions.core
@@ -35,4 +35,5 @@ main :: (): int

  mu: Mu = Start(x = 1280, y = 720)
  Assert(mu.x == 1280 && mu.y == 720)
+
  return 0
--- a/examples/using_multimedia.core
+++ b/examples/using_multimedia.core
@@ -0,0 +1,7 @@
+#import "Multimedia.core"
+
+WinMain :: (hInstance: HINSTANCE, hPrevInstance: HINSTANCE, lpCmdLine: LPSTR, nShowCmd: int): int
+  mu := StartMultimedia(title = "Hello, people!")
+
+  for UpdateMultimedia(&mu)
+    pass