11 lines
265 B
Scheme
11 lines
265 B
Scheme
(use-modules (agar core)
|
|
(agar gui))
|
|
|
|
(define* (main #:rest args)
|
|
(init-core "Boids Example" 0)
|
|
(init-graphics)
|
|
(let* ([window (window-new &window-main)]
|
|
[label (label-new window 0 "Hello!")])
|
|
(window-show window)
|
|
(event-loop)))
|