import Graphics.UI.GLUT
import Graphics.Rendering.OpenGL

import PointsForRendering

main = do
  (progName,_) <- getArgsAndInitialize
  createWindow progName
  displayCallback $= display
  reshapeCallback $= Just reshape
  mainLoop

display = do 
  clear [ColorBuffer]
  displayPoints points Quads
   where 
    points 
     = [(0.5,0.5,0)
       ,(-0.5,0.5,0)
       ,(-0.5,-0.5,0)
       ,(0.5,-0.5,0)]

reshape s@(Size w h) = do
  viewport $= (Position 0 0, s)