;;;; raylib [core] example - basic window
;;;;
;;;; examples/core/core_basic_window.c, line for line. Nothing here needed
;;;; anything the language did not already have, which is the point of doing it
;;;; first: if this one does not run, none of the others will either.
;;;;
;;;; The one structural difference from the C is the loop: the C writes
;;;; `while (!WindowShouldClose())` and Flan has `until`, which is the same
;;;; thing without the negation. sand.flan does likewise.
;;;;
;;;; `defer` closes the window. It is function-scoped — it runs when `main`
;;;; returns and not at the end of any inner block — which is exactly what the
;;;; C's trailing CloseWindow() means here.

(import rl "vendor:raylib")

(defconst screen-width  800)
(defconst screen-height 450)

(defn main [] ()
  (rl/init-window screen-width screen-height
                  "raylib [core] example - basic window")
  (defer (rl/close-window))

  (rl/set-target-fps 60)

  (until (rl/window-should-close?)
    (rl/begin-drawing)
    (rl/clear-background rl/raywhite)
    (rl/draw-text "Congrats! You created your first window!" 190 200 20
                  rl/lightgray)
    (rl/end-drawing)))