From 567863b2398b6832f686b258709396572af0e980 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 2 Oct 2024 21:22:19 -0400
Subject: First commit!

---
 examples/cube.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 examples/cube.scm

(limited to 'examples/cube.scm')

diff --git a/examples/cube.scm b/examples/cube.scm
new file mode 100644
index 0000000..bcd4f01
--- /dev/null
+++ b/examples/cube.scm
@@ -0,0 +1,10 @@
+(use-modules (sdl3)
+             (sdl3 gpu)
+             (sdl3 video))
+
+(define window (make-window "Hello" 640 480))
+(define gpu (make-gpu-device '(spirv)))
+(claim-window-for-gpu-device! gpu window)
+(sleep 3)
+(destroy-gpu-device! gpu)
+(destroy-window! window)
-- 
cgit v1.2.3