30 lines
1.1 KiB
Plaintext
30 lines
1.1 KiB
Plaintext
;;;; 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)
|