Calculate and render light polygons
[L-seed.git] / src / Lseed / Geometry / Generator.hs
index 1c3ead9..b97b4f7 100644 (file)
@@ -34,7 +34,7 @@ translated p (GeometryGenerator act) = do
 
 rotated :: Double -> GeometryGenerator a -> GeometryGenerator a
 rotated r (GeometryGenerator act) = 
-       GeometryGenerator $ local (\(p,r') -> (p, r' + r)) act
+       GeometryGenerator $ local (\(p,r') -> (p, r' - r)) act
 
 addLine :: Line -> GeometryGenerator ()
 addLine (p1,p2) = do