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

main = do
  getArgsAndInitialize
  createAWindow "more points"
  mainLoop

createAWindow windowName = do
  createWindow windowName
  displayCallback $= display

display = do 
  clear [ColorBuffer]
  currentColor $= Color4 1 1 0 1
  renderPrimitive Points $
   do 
  

      vertex (Vertex3 (0.1::GLfloat) 0.6 0)    

      vertex (Vertex3 (0.1::GLfloat) 0.1 0)    
  flush