Joseph Ferano
afec482722
The first ten of raylib's core list, ported. Seven new bindings and the named colour palette; nothing else was added, because a binding called by nothing is the same as not having bound it. The gaps they found are the point. No number reaches draw-text: i64->bytes answers [u8], draw-text wants a string, and nothing bridges — five of the ten wanted TextFormat and got a glyph table instead. And an enum parameter cannot be driven by a loop variable: the index is an i32, the parameter is an enum, neither converts, and a second declare-c with an i32 face is refused because one C function gets one binding. Two correct rules that compose into a wall. None of the gaps expected blocked anything: no generics, no allocator, no Vec, no escaping closure, no block-scoped defer. These are input-and-draw programs over fixed-size state, which is the shape the language has.
33 lines
1.1 KiB
Plaintext
33 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.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)))
|