From 88f58da05df684baffb7dbc83a9a11a8bea424bc Mon Sep 17 00:00:00 2001 From: Eelis van der Weegen Date: Mon, 27 Apr 2020 19:48:26 +0200 Subject: [PATCH] Make name of rotate_extrude's angle parameter match OpenSCAD. --- Graphics/Implicit/ExtOpenScad/Primitives.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Graphics/Implicit/ExtOpenScad/Primitives.hs b/Graphics/Implicit/ExtOpenScad/Primitives.hs index b19d320d..0e364af2 100644 --- a/Graphics/Implicit/ExtOpenScad/Primitives.hs +++ b/Graphics/Implicit/ExtOpenScad/Primitives.hs @@ -62,7 +62,7 @@ primitiveModules = , onModIze rotate [([("a", noDefault), ("v", hasDefault)], requiredSuite)] , onModIze scale [([("v", noDefault)], requiredSuite)] , onModIze extrude [([("height", hasDefault), ("center", hasDefault), ("twist", hasDefault), ("scale", hasDefault), ("translate", hasDefault), ("r", hasDefault)], requiredSuite)] - , onModIze rotateExtrude [([("a", hasDefault), ("r", hasDefault), ("translate", hasDefault), ("rotate", hasDefault)], requiredSuite)] + , onModIze rotateExtrude [([("angle", hasDefault), ("r", hasDefault), ("translate", hasDefault), ("rotate", hasDefault)], requiredSuite)] , onModIze shell [([("w", noDefault)], requiredSuite)] , onModIze pack [([("size", noDefault), ("sep", noDefault)], requiredSuite)] , onModIze unit [([("unit", noDefault)], requiredSuite)] @@ -467,7 +467,7 @@ extrude = moduleWithSuite "linear_extrude" $ \_ children -> do rotateExtrude :: (Symbol, SourcePosition -> [OVal] -> ArgParser (StateC [OVal])) rotateExtrude = moduleWithSuite "rotate_extrude" $ \_ children -> do example "rotate_extrude() translate(20) circle(10);" - totalRot :: ℝ <- argument "a" `defaultTo` 360 + totalRot :: ℝ <- argument "angle" `defaultTo` 360 `doc` "angle to sweep" r :: ℝ <- argument "r" `defaultTo` 0 translateArg :: Either ℝ2 (ℝ -> ℝ2) <- argument "translate" `defaultTo` Left (0,0)