1 files changed, 42 insertions, 23 deletions

diff --git a/shelves.hs b/shelves.hs
index be37931..e78a5cc 100644
--- a/shelves.hs
+++ b/shelves.hs
@@ -1,44 +1,63 @@
 import Text.Printf
 import Linear.V3
---import Control.Lens
+import Control.Lens
+import Data.List
 
-sp xa@(_:xs) = sp xs ++ [sum(xa)]
+shelf_thickness = 0.5
+shelf_width = 4
+shelf_length = 12 * 2
+shelf_dim = V3 shelf_length shelf_width shelf_thickness
 
+shelf_heights = [8, 8, 8, 8, 8]
 
--- fo2 f xs = 
+-- working algorithm doing the same as `scanl (+) 0 shelf_heights`
+--acc [] = [0]
+--acc xs = acc(init xs) ++ [sum xs]
 
---repeatlast xs = xs ++ 
--- sp sh = 0 ++ head sh ++ 
+shelf_height = (sum shelf_heights) + (shelf_dim ^. _z * (fromIntegral (length shelf_heights) + 1))
 
-shelf_thickness = 0.5
-shelf_width = 4
-shelf_length = 16
-shelfd = [shelf_thickness, shelf_width, shelf_length]
+side_dim = V3 0.5 shelf_width shelf_height
 
-shelf_heights = [2,3,5,5]
-sh = shelf_heights
+--shelf_y_poss = scanl (+) 0 shelf_heights
+shelf_y_poss = scanl (+) 0 [h+shelf_thickness| h <- shelf_heights]
+shelves_pos = [V3 (side_dim ^. _x) 0 y | y <- shelf_y_poss]
+shelves = [(p, shelf_dim) | p <- shelves_pos]
 
---side_dims = [0.5,last sh,shelf_width]
---side_poss = [[0,0,0], [shelf_length + (side_dims[0] * 2), 0, 0]]
+--sides = [(V3 0 0 0, side_dim), (V3 (side_dim ^. _x + shelf_length) 0 0, side_dim)]
+sides_pos = [V3 0 0 0, V3 (side_dim ^. _x + shelf_length) 0 0]
+sides = [(p, side_dim) | p <- sides_pos]
 
+--V3_to_string v = drop 3 (show v)
 
--- working algorithm doing the same as `scanl (+) 0 shelf_heights`
---acc [] = [0]
---acc xs = acc(init xs) ++ [sum xs]
+_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
 
+scadshelf = genscad $ shelves ++ sides
 
-shelf_y_poss = scanl (+) 0 shelf_heights
-shelf_poss = [ [0,y,0] | y <- shelf_y_poss ]
-shelf_height = sum shelf_heights
+--gen_shelf :: [Fractional] -> Fractional -> Fractional -> [Char]
+--gen_shelf shelf_heights depth length = 
 
-scad_place_board pos dim = "transform(" ++ show(pos) ++ ") { cube(" ++ show(dim) ++ ");}"
-scad_place_shelf pos = scad_place_board pos shelfd
-scad_place_shelves = map (scad_place_shelf) shelf_poss
---scad_place_sides = map (scad_place_board) [ [0, 0, 0], 
+
+
+main = do putStrLn scadshelf
+
+
+
+--main = map (putStrLn) ["one", "two"]
+
+--genshelf = genscad $ shelves ++ sides
+
+--main = map print $ gen_scad $ shelves ++ sides
+
+--scad_place_sides = map (scad_place_board) [[[V3 0 0 0], side_dim], [[V3 side_dim ^. _x, 0, 0], side_dim]]
 
 --scad_place_shelf vpos = scad_place_board show([0, vpos, 0]) show(shelfd)
 
 
+--genscad shelves ++ sides
+
 --gen_openscad = map (scad_place_piece
 
 --accu [x] = x