Permalink
Browse files

Whitespace fix (spaces -> tabs).

  • Loading branch information...
1 parent 20a2069 commit 7b4ab61c58ac697e7d167c592198294500311a4f @colah committed Dec 17, 2012
Showing with 10 additions and 10 deletions.
  1. +2 −2 Graphics/Implicit/ExtOpenScad/Primitives.hs
  2. +8 −8 Graphics/Implicit/ObjectUtil/GetImplicit3.hs
@@ -277,8 +277,8 @@ deg2rad x = x / 180.0 * pi
rotate = moduleWithSuite "rotate" $ \children -> do
a <- argument "a"
`doc` "value to rotate by; angle or list of angles"
- v <- argument "v" `defaultTo` (0, 0, 1)
- `doc` "Vector to rotate around if a is a single angle"
+ v <- argument "v" `defaultTo` (0, 0, 1)
+ `doc` "Vector to rotate around if a is a single angle"
-- caseOType matches depending on whether size can be coerced into
-- the right object. See Graphics.Implicit.ExtOpenScad.Util
@@ -92,14 +92,14 @@ getImplicit3 (Rotate3 (yz, zx, xy) symbObj) =
rotateYZ yz $ rotateZX zx $ rotateXY xy $ obj
getImplicit3 (Rotate3V θ axis symbObj) =
- let
- axis' = normalized axis
- obj = getImplicit3 symbObj
- in
- \v -> obj $
- v ^* cos(θ)
- ^-^ (axis' `cross3` v) ^* sin(θ)
- ^+^ (axis' ^* (axis' <.> (v ^* (1 - cos(θ)))))
+ let
+ axis' = normalized axis
+ obj = getImplicit3 symbObj
+ in
+ \v -> obj $
+ v ^* cos(θ)
+ ^-^ (axis' `cross3` v) ^* sin(θ)
+ ^+^ (axis' ^* (axis' <.> (v ^* (1 - cos(θ)))))
-- Boundary mods
getImplicit3 (Shell3 w symbObj) =

0 comments on commit 7b4ab61

Please sign in to comment.