Commit before moving buffer swapping command

src/Render.hs

@@ -30,6 +30,8 @@ divideSize :: Int -> Size -> Size
 divideSize i (Size x y) = Size (div x $ fromIntegral i) (div y $ fromIntegral i)
 
 -- | Determine where light is shining in the world.
+-- think of the produced texture as showing what RGB values should be "taken
+-- away" from the shape colors.
 createLightMap ::
     RenderData ->
     [(Point3, Float, Point3)] -> -- Lights
@@ -55,6 +57,7 @@ createLightMap pdata lightPoints nWalls nSils nCaps drawObjShads toPos drawCPUSh
     -- we will not be changing that here
     depthMask $= Disabled
     -- clearColor is specified differently in preloadRender
+    -- the colors are inverted
     clearColor $= Color4 1 1 1 1
     clear [ColorBuffer]
     -- for each of the lights: