h-raylib-4.5.0.10: examples/basic-window/src/Main.hs

{-# OPTIONS -Wall #-}
module Main where

import Control.Monad (unless)
import Raylib
  ( beginDrawing,
    clearBackground,
    closeWindow,
    drawText,
    endDrawing,
    initWindow,
    setTargetFPS,
    windowShouldClose,
  )
import Raylib.Colors (lightGray, rayWhite)

main :: IO ()
main = do
  initWindow 600 450 "raylib example - basic window"
  setTargetFPS 60
  gameLoop
  closeWindow

gameLoop :: IO ()
gameLoop = do
  beginDrawing

  clearBackground rayWhite
  drawText "Basic raylib window" 30 40 18 lightGray

  endDrawing

  shouldClose <- windowShouldClose
  unless shouldClose gameLoop