Main.hs

{-# LANGUAGE OverloadedStrings #-}

{-| Visibility on the 2D plane.
  Uses an instance of Warnocks algorithm.
  TODO: animate the line segments, make them spin and move around so we can see
        that it's a dynamic visiblity algorithm -- not pre-computed.
        Draw lines in random shades of color depending on the index.
        Make a key to swap between rectangular and polar projections.
        Allow viewpoint to be set with the mouse.

 TODO:  To start with just do brute force visibility by dividing field into cells
        and doing vis based on center point of cell.
-}
module Main where

import Brillo.Interface.Pure.Game (Display (InWindow), black, play)
import Draw (drawState)
import Interface (handleInput, stepState)
import State (initialState)
import World (initialWorld)


main :: IO ()
main =
  do
    world <- initialWorld
    let state = initialState world

    play
      (InWindow "Visibility" (800, 800) (10, 10))
      black
      100
      state
      drawState
      handleInput
      stepState