module MyTransformations where
import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT  as GLUT

shear f = do
  m <-  (newMatrix RowMajor [1,f,0,0
                              ,0,1,0,0
                              ,0,0,1,0 
                              ,0,0,0,1])
  multMatrix (m:: GLmatrix GLfloat)