1 files changed, 6 insertions, 4 deletions

diff --git a/shelves.hs b/shelves.hs
index 16f029f..cf935a0 100644
--- a/shelves.hs
+++ b/shelves.hs
@@ -91,14 +91,14 @@ assembleShelf s = assemble [shelves, sides]
     sides =
       let sideB = V3 (boardThickness s) (depth s) shelfHeight
           sideP = at [0, boardThickness s + width s] [0] [0]
-       in component "sides" sideB _xyz sideP
+      in component "sides" "blue" 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
+       in component "shelves" "red" shelfB _xyz shelfP
 
 
 shelf :: String
@@ -108,7 +108,9 @@ shelf' = renderL $ modelShelf' myShelf
 shelf'' :: String
 shelf'' = renderL $ modelShelf'' myShelf
 
-(cuts, model) = assembleShelf myShelf
+mesh = assembleShelf myShelf
 
 main :: IO ProcessHandle
-main = openTempSCAD $ shelf''
+main = let (cuts, model) = assembleShelf myShelf
+       in do putStrLn cuts
+             openTempSCAD $ renderL model