Permalink
Browse files

Small fix to rotate() primitive.

  • Loading branch information...
colah committed Dec 13, 2012
1 parent bbe8a44 commit 606e228ae17dcd79fc17500c79d049eb733a691e
Showing with 2 additions and 2 deletions.
  1. +2 −2 Graphics/Implicit/ExtOpenScad/Primitives.hs
@@ -284,8 +284,8 @@ rotate = moduleWithSuite "rotate" $ \children -> do
-- Final entry must be fall through.
return $ return $ caseOType a $
( \xy ->
- objMap (Prim.rotate $ deg2rad xy ) (Prim.rotate3 (deg2rad xy, 0, 0) ) children
- ) <||> ( \(yz,xy,xz) ->
+ objMap (Prim.rotate $ deg2rad xy ) (Prim.rotate3 (0, 0, deg2rad xy) ) children
+ ) <||> ( \(yz,xz,xy) ->
objMap (Prim.rotate $ deg2rad xy ) (Prim.rotate3 (deg2rad yz, deg2rad xz, deg2rad xy) ) children
) <||> ( \(yz,xz) ->
objMap (id ) (Prim.rotate3 (deg2rad yz, deg2rad xz, 0)) children

0 comments on commit 606e228

Please sign in to comment.