summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--shelves.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/shelves.hs b/shelves.hs
index 0484ff5..6ed051a 100644
--- a/shelves.hs
+++ b/shelves.hs
@@ -1,8 +1,13 @@
1import Control.Lens 1import Control.Lens
2import GenSCAD (genscad)
3import Graphics.OpenSCAD 2import Graphics.OpenSCAD
4import Linear.V3 3import Linear.V3
5 4
5genscad :: [(V3 Double, V3 Double)] -> String
6genscad = render . union . map transBox
7 where
8 transBox :: (V3 Double, V3 Double) -> Model3d
9 transBox (V3 x1 y1 z1, V3 x2 y2 z2) = translate (x1,y1,z1) $ box x2 y2 z2
10
6data Shelf 11data Shelf
7 12
8myShelf :: Shelf 13myShelf :: Shelf