1 files changed, 50 insertions, 2 deletions

diff --git a/shelves.hs b/shelves.hs
index c560cf4..16f029f 100644
--- a/shelves.hs
+++ b/shelves.hs
@@ -14,8 +14,8 @@ data Shelf = Shelf {
 } deriving (Show)
 
 myShelf :: Shelf
-myShelf = Shelf { width = 36, depth = 8, boardThickness = 1,
-                  shelfHeights = [12, 12, 10, 10, 6, 6, 6] }
+myShelf = Shelf { width = 12*4, depth = 12, boardThickness = 1,
+                  shelfHeights = [15, 8, 8, 8] }
 
 
 calcShelfHeights :: Shelf -> [Double]
@@ -54,6 +54,52 @@ modelShelf'' s =
         shelfBoard = V3 (width s) (depth s) (boardThickness s)
         shelfZs = scanl (+) 0 [h + (boardThickness s)|h <- (shelfHeights s)]
 
+data ModeledShelf = ModeledShelf {
+  shelfDimensions :: V3 Double,
+  shelfPositions :: [V3 Double],
+  sideDimensions :: V3 Double,
+  sidePositions :: [V3 Double],
+  rendered :: [Model3d],
+  cutlist :: String
+} deriving (Show)
+
+modelShelf''' :: Shelf -> ModeledShelf
+modelShelf''' s =
+  ModeledShelf { shelfDimensions = shelfB,
+                 shelfPositions = shelfP,
+                 sideDimensions = sideB,
+                 sidePositions = sideP,
+                 rendered = placeColored red  sideB sideP ++
+                            placeColored blue shelfB shelfP,
+                 cutlist = cutlist
+               }
+  where shelfHeight = sum (shelfHeights s) + (boardThickness s) *
+                  (fromIntegral (length $ shelfHeights s) + 1)
+        sideB =  V3 (boardThickness s) (depth s) shelfHeight
+        sideP = at [0, boardThickness s + width s] [0] [0]
+        shelfB = V3 (width s) (depth s) (boardThickness s)
+        shelfP = at [(boardThickness s)] [0] $ scanl (+) 0 [h + (boardThickness s)|h <- (shelfHeights s)]
+        cutlist = "Shelves: (" ++ (show (length shelfP)) ++ ") @ "
+                  ++ (show shelfB) ++
+                  "\nSides: (2) @ " ++ (show sideB)
+
+assembleShelf s = assemble [shelves, sides]
+  where
+    shelfHeight =
+      sum (shelfHeights s) +
+      (boardThickness s) * (fromIntegral (length $ shelfHeights s) + 1)
+    sides =
+      let sideB = V3 (boardThickness s) (depth s) shelfHeight
+          sideP = at [0, boardThickness s + width s] [0] [0]
+       in component "sides" sideB _xyz sideP
+    shelves =
+      let shelfB = V3 (width s) (depth s) (boardThickness s)
+          shelfP =
+            let pz =
+                  scanl (+) 0 [h + (boardThickness s) | h <- (shelfHeights s)]
+             in at [(boardThickness s)] [0] pz
+       in component "shelves" shelfB _xyz shelfP
+
 
 shelf :: String
 shelf = renderL $ modelShelf myShelf
@@ -62,5 +108,7 @@ shelf' = renderL $ modelShelf' myShelf
 shelf'' :: String
 shelf'' = renderL $ modelShelf'' myShelf
 
+(cuts, model) = assembleShelf myShelf
+
 main :: IO ProcessHandle
 main = openTempSCAD $ shelf''