Debug bezier quad, doesn't draw straighter lines well

src/Dodge/Floor.hs

@@ -32,6 +32,7 @@ lev1 = do
             (
             [return $ return $ Right deadEndRoom
             ]
+            ++ [slowDoorRoom]
             ++ [return $ connectRoom corridor
                ,return $ connectRoom door]
             ++ firstWeapon