diff options
-rw-r--r-- | shelves.hs | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -41,10 +41,6 @@ sides = [(p, side_dim) | p <- sides_pos] | |||
41 | 41 | ||
42 | --V3_to_string v = drop 3 (show v) | 42 | --V3_to_string v = drop 3 (show v) |
43 | 43 | ||
44 | _V32l :: R3 t => t a -> [a] | ||
45 | _V32l v3 = [v3 ^. _x, v3 ^. _y, v3 ^. _z] | ||
46 | _V32s :: (Show a, R3 t) => t a -> [Char] | ||
47 | _V32s v3 = intercalate ", " (map show (_V32l v3)) | ||
48 | --scad_place (p,d) = "translate([ " ++ _V32s(p) ++ " ]) { cube([ " ++ _V32s(d) ++ " ]);}" | 44 | --scad_place (p,d) = "translate([ " ++ _V32s(p) ++ " ]) { cube([ " ++ _V32s(d) ++ " ]);}" |
49 | --genscad objs = concat $ map (++ "\n") $ map scad_place objs | 45 | --genscad objs = concat $ map (++ "\n") $ map scad_place objs |
50 | 46 | ||