From d5b97772cdc98ef90e139c1554442938dbf242a8 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Wed, 13 Mar 2019 02:45:14 -0400 Subject: rm shelves-pure.hs --- shelves-pure.hs | 52 ---------------------------------------------------- 1 file changed, 52 deletions(-) delete mode 100644 shelves-pure.hs diff --git a/shelves-pure.hs b/shelves-pure.hs deleted file mode 100644 index 85873f7..0000000 --- a/shelves-pure.hs +++ /dev/null @@ -1,52 +0,0 @@ -import Linear.V3 -import Control.Lens -import Data.List - --- Karens Specifies: - -shelf_heights = [12, 10, 10, 10, 6, 6] -shelf_length = 16 -shelf_depth = 6 - -shelf_thickness = 0.5 -side_thickness = 0.5 - --- Behind Karen's Back - -shelf_height = sum shelf_heights - -sided = V3 side_thickness shelf_height shelf_depth -shelfd = V3 shelf_length shelf_thickness shelf_depth - - -sideps = [(V3 0 0 0), (V3 (sided ^. _x + shelfd ^. _x) 0 0)] - -shelf_ys = scanl (+) 0 shelf_heights -shelfps = [(V3 x 0 0) | x <- shelf_ys] - - -place_pieces poss piece_dim = [[(p, piece_dim)] |p <- poss] - -shelves = place_pieces shelfps shelfd -sides = place_pieces sideps sided - -V32l v3 = [v3 ^. _x, v3 ^. _y, v3 ^. _z] -V32s v3 = intercalate ", " (map show (v32l v3)) -scadplace obj = genscadstr (fst (head obj)) (snd (head obj)) -genscadstr p o = "translate([" ++ v32s p ++ "]) { cube([" ++ v32s o ++ "]); }" -genscad ps = intercalate "" $ map scadplace ps - - - ---genscad ps = map printf "POS: %s DIM: %s\n" p d) ps) ---genscad ps = ["P: " ++ (fst p) ++ " | O: " ++ (snd p) |p<-ps] ---genscad ps = [fst(p) |p<-ps] ---genscad ps = ["P: " ++ p ++ "D: " ++ d|(p,d) <- ps] ---genscad ps = map () - -main = print 1 ---main = print $ genscad (shelves ++ sides) - - - - -- cgit v1.2.3