import PointsForRendering
import Squares
import Graphics.Rendering.OpenGL

displayAt x y displayMe = do 
  displayMe
  loadIdentity

main = do 
  renderInWindow  someSquares

someSquares = do
  clearColor $= Color4 1 1 1 1
  clear [ColorBuffer]
  currentColor $= Color4 0 0 0 1
  square 0.5
  loadIdentity
  currentColor $= Color4 0 0 1 1
  translate$Vector3 0.5 0.5 (0::GLfloat)
  square 0.5
  loadIdentity
  currentColor $= Color4 0 1 1 1
  rotate 35 $Vector3 0 0 (1::GLfloat)
  square 0.5
  loadIdentity
  currentColor $= Color4 1 0 0 1
  translate$Vector3 0.5 0.5 (0::GLfloat)
  rotate 35 $Vector3 0 0 (1::GLfloat)
  square 0.5
  loadIdentity
  currentColor $= Color4 1 1 0 1
  rotate 35 $Vector3 0 0 (1::GLfloat)
  translate$Vector3 0.5 0.5 (0::GLfloat)
  square 0.5
  loadIdentity