garden/go.fnl

; export LIBGL_ALWAYS_INDIRECT=1
(local fennel (require :fennel))
(import-macros {: def : q : ttype : static : printform} :terra)
(local SDL (require :SDL))

(local CreateWindowAndRenderer (printform (def [w int h int flags uint32]
  (var window [SDL.Window] nil)
  (var renderer [SDL.Renderer] nil)
  (var result (SDL.CreateWindowAndRenderer w h flags (& window) (& renderer)))
  (return result window renderer))))

(fn rect [x y w h]
  (SDL.Rect {: x : y : w : h}))

(SDL.Init SDL.INIT_EVERYTHING)
(let [windowflags SDL.WINDOW_RESIZABLE ;(bit.bor SDL.WINDOW_RESIZABLE SDL.WINDOW_OPENGL)
      (window renderer) (CreateWindowAndRenderer 640 480 windowflags)]
  (SDL.RenderFillRect renderer (rect 0 0 640 480))
  {: window : renderer})