import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT  as GLUT
import PointsForRendering

main = renderInWindow display

display = do
  clearColor $= Color4 1 1 1 1
  clear [ColorBuffer]
  lineStipple $= Just (1,255) 
  currentColor $= Color4 0 0 0 1
  lineWidth $= 10 
  displayPoints squarePoints LineLoop
  flush

squarePoints
 = [(-0.7,-0.7,0),(0.7,-0.7,0),(0.7,0.7,0),(-0.7,0.7,0)]