summaryrefslogtreecommitdiff
path: root/shelves.hs
diff options
context:
space:
mode:
Diffstat (limited to 'shelves.hs')
-rw-r--r--shelves.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/shelves.hs b/shelves.hs
index e42fe7d..feeabfa 100644
--- a/shelves.hs
+++ b/shelves.hs
@@ -1,7 +1,7 @@
1import Linear.V3 1import Control.Lens
2import Control.Lens 2import Data.List
3import Data.List 3import GenSCAD (genscad)
4import GenSCAD (genscad) 4import Linear.V3
5 5
6shelf_thickness :: Double 6shelf_thickness :: Double
7shelf_thickness = 0.5 7shelf_thickness = 0.5
@@ -52,7 +52,7 @@ scadshelf :: String
52scadshelf = genscad $ shelves ++ sides 52scadshelf = 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