;;;; rlgl's matrix stack, declared for Flan. (import rlgl "vendor:rlgl")
;;;; qualifies it as rlgl/…
;;;;
;;;; rlgl is raylib's layer over OpenGL, and every raylib draw goes through
;;;; it. The stack is how a draw is moved without moving its arguments: push,
;;;; transform, draw, pop, and everything drawn in between is transformed.
;;;; raylib's own begin-mode-2d and begin-mode-3d load a matrix onto the same
;;;; stack.
;;;;
;;;; Each call needs a window and a GL context, so none of this runs headless.
;;;;
;;;; The names drop rlgl's `rl` prefix, which the package alias already says,
;;;; and the `f` suffix, which says the arguments are floats — the signature
;;;; says that.

;; Save the current matrix, so the transforms after it can be undone.
(declare-c push-matrix [] "rlPushMatrix")

;; Restore the matrix the last push-matrix saved.
(declare-c pop-matrix [] "rlPopMatrix")

;; Replace the current matrix with the identity.
(declare-c load-identity [] "rlLoadIdentity")

;; Multiply the current matrix by a translation.
(declare-c translate [x f32  y f32  z f32] "rlTranslatef")

;; Multiply the current matrix by a rotation of `angle` degrees about the axis
;; (x, y, z).
(declare-c rotate [angle f32  x f32  y f32  z f32] "rlRotatef")

;; Multiply the current matrix by a scale along each axis.
(declare-c scale [x f32  y f32  z f32] "rlScalef")