--- Main.hs.orig	2005-07-18 18:35:22.710836440 +0200
+++ Main.hs	2005-07-18 18:36:01.478942792 +0200
@@ -32,8 +32,11 @@
          depthFunc $= Just Less
          clearColor $= Color4 0 0 0 1
          let (w,h) = (fromIntegral width,fromIntegral height)
+         viewport $= (Position 0 0,Size (fromIntegral width) (fromIntegral height))
+         matrixMode $= Projection
          loadIdentity
          perspective 45 (w/h) 0.1 100
+         matrixMode $= Modelview 0
     where width = 640
           height = 480