diff options
Diffstat (limited to 'shelves.hs')
-rw-r--r-- | shelves.hs | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -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 | ||