import PointsForRendering
import Circle
import Squares
import MyTransformations

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

main = renderInWindow$do
 loadIdentity
 clearColor $= Color4 1 1 1 1
 clear [ColorBuffer]
 translate$Vector3 0.5 0.5 (0::GLfloat)
 shear 0.5
 currentColor $= Color4 0 0 1 1
 fillCircle 0.5

 loadIdentity
 translate$Vector3 (-0.5) (-0.5) (0::GLfloat)
 shear 0.5
 currentColor $= Color4 1 0 0 1
 square 0.5