lost track

1 files changed, 6 insertions, 6 deletions

diff --git a/shelves.hs b/shelves.hs
index e78a5cc..0136e1c 100644
--- a/shelves.hs
+++ b/shelves.hs
@@ -1,14 +1,14 @@
-import Text.Printf
 import Linear.V3
 import Control.Lens
 import Data.List
+import GenSCAD
 
 shelf_thickness = 0.5
-shelf_width = 4
-shelf_length = 12 * 2
+shelf_width = 8
+shelf_length = 36 * 2
 shelf_dim = V3 shelf_length shelf_width shelf_thickness
 
-shelf_heights = [8, 8, 8, 8, 8]
+shelf_heights = [12, 10, 8, 8, 8, 8, 8]
 
 -- working algorithm doing the same as `scanl (+) 0 shelf_heights`
 --acc [] = [0]
@@ -31,8 +31,8 @@ sides = [(p, side_dim) | p <- sides_pos]
 
 _V32l v3 = [v3 ^. _x, v3 ^. _y, v3 ^. _z]
 _V32s v3 = intercalate ", " (map show (_V32l v3))
-scad_place (p,d)  = "translate([ " ++ _V32s(p) ++ " ]) { cube([ " ++ _V32s(d) ++ " ]);}"
-genscad objs = concat $ map (++ "\n") $ map scad_place objs
+--scad_place (p,d)  = "translate([ " ++ _V32s(p) ++ " ]) { cube([ " ++ _V32s(d) ++ " ]);}"
+--genscad objs = concat $ map (++ "\n") $ map scad_place objs
 
 scadshelf = genscad $ shelves ++ sides