From eee0ea179902152ed2431adae99a15507eb1fc94 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Wed, 13 Mar 2019 01:57:11 -0400 Subject: remove unused code --- shelves.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/shelves.hs b/shelves.hs index feeabfa..8182e99 100644 --- a/shelves.hs +++ b/shelves.hs @@ -41,10 +41,6 @@ sides = [(p, side_dim) | p <- sides_pos] --V3_to_string v = drop 3 (show v) -_V32l :: R3 t => t a -> [a] -_V32l v3 = [v3 ^. _x, v3 ^. _y, v3 ^. _z] -_V32s :: (Show a, R3 t) => t a -> [Char] -_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 -- cgit v1.2.3