Fix Rotate2 bounding box issue.

Haskell-Things · Aug 10, 2012 · fb6801b · fb6801b
1 parent 216e101
commit fb6801b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Graphics/Implicit/ObjectUtil/GetBox2.hs b/Graphics/Implicit/ObjectUtil/GetBox2.hs
@@ -77,7 +77,7 @@ getBox2 (Scale2 s symbObj) =
 getBox2 (Rotate2 θ symbObj) = 
 	let
 		((x1,y1),(x2,y2)) = getBox2 symbObj
-		rotate (x,y) = ( cos(θ)*x + sin(θ)*y, cos(θ)*y - sin(θ)*x)
+		rotate (x,y) = ( cos(θ)*x - sin(θ)*y, sin(θ)*x + cos(θ)*y)
 		(xa, ya) = rotate (x1, y1)
 		(xb, yb) = rotate (x1, y2)
 		(xc, yc) = rotate (x2, y1)