summaryrefslogtreecommitdiff
path: root/GenSCAD.hs
diff options
context:
space:
mode:
Diffstat (limited to 'GenSCAD.hs')
-rw-r--r--GenSCAD.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/GenSCAD.hs b/GenSCAD.hs
index 548792f..bbc1299 100644
--- a/GenSCAD.hs
+++ b/GenSCAD.hs
@@ -11,11 +11,11 @@ module GenSCAD
11, colorcubeat 11, colorcubeat
12) where 12) where
13 13
14import Linear.V3 14import Control.Lens
15import Control.Lens 15import Data.List
16import Data.List 16import Linear.V3
17import System.IO.Temp 17import System.IO.Temp
18import System.Process 18import System.Process
19 19
20 20
21v3tolist :: V3 a -> [a] 21v3tolist :: V3 a -> [a]
@@ -45,7 +45,7 @@ colorcubeat rgb d pos = color rgb $ translate pos $ cube d
45 45
46--place [x] = "ERROR" 46--place [x] = "ERROR"
47place :: [String] -> String 47place :: [String] -> String
48place [d, p] = cubeat d p 48place [d, p] = cubeat d p
49place [r, d, p] = colorcubeat r d p 49place [r, d, p] = colorcubeat r d p
50 50
51--place[o] = scad (fst o) (snd o) 51--place[o] = scad (fst o) (snd o)