Skip to content
This repository
Browse code

Small fix to rotate() primitive.

  • Loading branch information...
commit 606e228ae17dcd79fc17500c79d049eb733a691e 1 parent bbe8a44
Christopher Olah authored

Showing 1 changed file with 2 additions and 2 deletions. Show diff stats Hide diff stats

  1. +2 2 Graphics/Implicit/ExtOpenScad/Primitives.hs
4 Graphics/Implicit/ExtOpenScad/Primitives.hs
@@ -284,8 +284,8 @@ rotate = moduleWithSuite "rotate" $ \children -> do
284 284 -- Final entry must be fall through.
285 285 return $ return $ caseOType a $
286 286 ( \xy ->
287   - objMap (Prim.rotate $ deg2rad xy ) (Prim.rotate3 (deg2rad xy, 0, 0) ) children
288   - ) <||> ( \(yz,xy,xz) ->
  287 + objMap (Prim.rotate $ deg2rad xy ) (Prim.rotate3 (0, 0, deg2rad xy) ) children
  288 + ) <||> ( \(yz,xz,xy) ->
289 289 objMap (Prim.rotate $ deg2rad xy ) (Prim.rotate3 (deg2rad yz, deg2rad xz, deg2rad xy) ) children
290 290 ) <||> ( \(yz,xz) ->
291 291 objMap (id ) (Prim.rotate3 (deg2rad yz, deg2rad xz, 0)) children

0 comments on commit 606e228

Please sign in to comment.
Something went wrong with that request. Please try again.