diff options
Diffstat (limited to 'shelves.hs')
-rw-r--r-- | shelves.hs | 19 |
1 files changed, 15 insertions, 4 deletions
@@ -1,8 +1,19 @@ | |||
1 | import Control.Lens | 1 | import Control.Lens |
2 | import Data.List | 2 | import GenSCAD (genscad) |
3 | import GenSCAD (genscad) | 3 | import Graphics.OpenSCAD |
4 | import Linear.V3 | 4 | import Linear.V3 |
5 | 5 | ||
6 | data Shelf | ||
7 | |||
8 | myShelf :: Shelf | ||
9 | myShelf = undefined | ||
10 | |||
11 | modelShelf :: Shelf -> Model3d | ||
12 | modelShelf = undefined | ||
13 | |||
14 | main :: IO () | ||
15 | main = draw $ modelShelf myShelf | ||
16 | |||
6 | shelf_thickness :: Double | 17 | shelf_thickness :: Double |
7 | shelf_thickness = 0.5 | 18 | shelf_thickness = 0.5 |
8 | shelf_width :: Double | 19 | shelf_width :: Double |
@@ -52,8 +63,8 @@ scadshelf = genscad $ shelves ++ sides | |||
52 | 63 | ||
53 | 64 | ||
54 | 65 | ||
55 | main :: IO () | 66 | -- main :: IO () |
56 | main = do putStrLn scadshelf | 67 | -- main = do putStrLn scadshelf |
57 | 68 | ||
58 | 69 | ||
59 | 70 | ||