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 | |
parent | 30683d96778e70b3d5db6a1289df4ad75ac0a39a (diff) |
stylish haskell
-rw-r--r-- | GenSCAD.hs | 12 | ||||
-rw-r--r-- | shelves.hs | 10 |
2 files changed, 11 insertions, 11 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) |
@@ -1,7 +1,7 @@ | |||
1 | import Linear.V3 | 1 | import Control.Lens |
2 | import Control.Lens | 2 | import Data.List |
3 | import Data.List | 3 | import GenSCAD (genscad) |
4 | import GenSCAD (genscad) | 4 | import Linear.V3 |
5 | 5 | ||
6 | shelf_thickness :: Double | 6 | shelf_thickness :: Double |
7 | shelf_thickness = 0.5 | 7 | shelf_thickness = 0.5 |
@@ -52,7 +52,7 @@ scadshelf :: String | |||
52 | scadshelf = genscad $ shelves ++ sides | 52 | scadshelf = genscad $ shelves ++ sides |
53 | 53 | ||
54 | --gen_shelf :: [Fractional] -> Fractional -> Fractional -> [Char] | 54 | --gen_shelf :: [Fractional] -> Fractional -> Fractional -> [Char] |
55 | --gen_shelf shelf_heights depth length = | 55 | --gen_shelf shelf_heights depth length = |
56 | 56 | ||
57 | 57 | ||
58 | 58 | ||