diff options
| author | Andrew Cady <d@jerkface.net> | 2019-03-13 01:26:05 -0400 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2019-03-13 01:26:05 -0400 |
| commit | ffd1c8173e981584d0b766c8b5881ed2d2be5393 (patch) | |
| tree | b2fc56217777ed3d601cb541fde61e4ba3669925 /GenSCAD.hs | |
| parent | 30683d96778e70b3d5db6a1289df4ad75ac0a39a (diff) | |
stylish haskell
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) |