Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Small fix to rotate() primitive.

  • Loading branch information...
commit 606e228ae17dcd79fc17500c79d049eb733a691e 1 parent bbe8a44
@colah authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 Graphics/Implicit/ExtOpenScad/Primitives.hs
View
4 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
Please sign in to comment.
Something went wrong with that request. Please try again.