gloss-examples-1.7.0.1: Visibility/Main.hs

-- | 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.
--

import Interface
import Draw
import State
import World
import Graphics.Gloss.Interface.Pure.Game

main :: IO ()
main
 = do	world		<- initialWorld
	let state	=  initialState world
	
	play   (InWindow "Visibility" (800, 800) (10,  10))
	       black 100 state
               drawState handleInput stepState