diff --git a/Vis/VisObject.hs b/Vis/VisObject.hs
--- a/Vis/VisObject.hs
+++ b/Vis/VisObject.hs
@@ -84,7 +84,7 @@
 -- quad
 drawObject (VisQuad (Xyz x0 y0 z0) (Xyz x1 y1 z1) (Xyz x2 y2 z2) (Xyz x3 y3 z3) col) =
   preservingMatrix $ do
-    setMaterialDiffuse col
+    lighting $= Disabled
     setColor col
     glBegin gl_QUADS
     glVertex3d x0 y0 z0
@@ -92,6 +92,7 @@
     glVertex3d x2 y2 z2
     glVertex3d x3 y3 z3
     glEnd
+    lighting $= Enabled
 
 -- cylinder
 drawObject (VisCylinder (height,radius) (Xyz x y z) (Quat q0 q1 q2 q3) col) =
diff --git a/not-gloss.cabal b/not-gloss.cabal
--- a/not-gloss.cabal
+++ b/not-gloss.cabal
@@ -1,5 +1,5 @@
 name:                not-gloss
-version:             0.4.1
+version:             0.4.2
 stability:           Experimental
 synopsis:            Painless 3D graphics, no affiliation with gloss
 description:{