diff options
Diffstat (limited to 'GenSCAD.hs')
-rw-r--r-- | GenSCAD.hs | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -11,11 +11,11 @@ module GenSCAD | |||
11 | , colorcubeat | 11 | , colorcubeat |
12 | ) where | 12 | ) where |
13 | 13 | ||
14 | import Linear.V3 | 14 | import Control.Lens |
15 | import Control.Lens | 15 | import Data.List |
16 | import Data.List | 16 | import Linear.V3 |
17 | import System.IO.Temp | 17 | import System.IO.Temp |
18 | import System.Process | 18 | import System.Process |
19 | 19 | ||
20 | 20 | ||
21 | v3tolist :: V3 a -> [a] | 21 | v3tolist :: 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" |
47 | place :: [String] -> String | 47 | place :: [String] -> String |
48 | place [d, p] = cubeat d p | 48 | place [d, p] = cubeat d p |
49 | place [r, d, p] = colorcubeat r d p | 49 | place [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) |