;;;; 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.fln 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"

const screen-width = 800
const screen-height = 450

fn 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/with-drawing:
      rl/clear-background(rl/raywhite)
      rl/draw-text("Congrats! You created your first window!", 190, 200, 20,
                   rl/lightgray)