Guile agar

examples/boids.scm

@@ -0,0 +1,10 @@
+(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)))