examples/cube.scm


1
2
3
4
5
6
7
8
9
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)