summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Cady <d@jerkface.net>2019-03-16 00:55:42 -0400
committerAndrew Cady <d@jerkface.net>2019-03-16 00:55:42 -0400
commitc8c8189435172c74d3d7f1a7a7cbf46fc7fd865a (patch)
tree0a648a14e29e69b1257dbd3cd5a3f8736f2a2283
parent984dafab748fa591583e011815c0da77535113b1 (diff)
whitespacebunkbed
-rw-r--r--shelves.hs48
1 files changed, 24 insertions, 24 deletions
diff --git a/shelves.hs b/shelves.hs
index 6cd0f4c..4e53eeb 100644
--- a/shelves.hs
+++ b/shelves.hs
@@ -39,45 +39,45 @@ modelShelf Shelf{..} = transBoxes [(p, V3 shelfLength shelfWidth shelfThickness)
39myShelf :: Shelf 39myShelf :: Shelf
40myShelf = Shelf { 40myShelf = Shelf {
41 shelfThickness = 0.5, 41 shelfThickness = 0.5,
42 shelfWidth = 8, 42 shelfWidth = 8,
43 shelfLength = 36 * 2, 43 shelfLength = 36 * 2,
44 shelfHeights = [12, 10, 8, 8, 8, 8, 8], 44 shelfHeights = [12, 10, 8, 8, 8, 8, 8],
45 shelfSideDimX = 0.5 45 shelfSideDimX = 0.5
46} 46}
47 47
48data BunkBed = BunkBed { 48data BunkBed = BunkBed {
49 bunkBedWidth :: Inches, 49 bunkBedWidth :: Inches,
50 bunkBedLength :: Inches, 50 bunkBedLength :: Inches,
51 bunkBedPostThickness :: Inches, 51 bunkBedPostThickness :: Inches,
52 bunkBedPostRise :: Inches, 52 bunkBedPostRise :: Inches,
53 bunkBedShelfThickness :: Inches, 53 bunkBedShelfThickness :: Inches,
54 bunkBedBottomShelfHeight :: Inches, 54 bunkBedBottomShelfHeight :: Inches,
55 bunkBedTopShelfHeight :: Inches 55 bunkBedTopShelfHeight :: Inches
56} 56}
57 57
58myBunkBed :: BunkBed 58myBunkBed :: BunkBed
59myBunkBed = BunkBed { 59myBunkBed = BunkBed {
60 bunkBedWidth = 54, 60 bunkBedWidth = 54,
61 bunkBedLength = 75, 61 bunkBedLength = 75,
62 bunkBedPostThickness = 3, 62 bunkBedPostThickness = 3,
63 bunkBedPostRise = 2, 63 bunkBedPostRise = 2,
64 bunkBedShelfThickness = 8, 64 bunkBedShelfThickness = 8,
65 bunkBedBottomShelfHeight = 18, 65 bunkBedBottomShelfHeight = 18,
66 bunkBedTopShelfHeight = 50 66 bunkBedTopShelfHeight = 50
67} 67}
68 68
69modelBunkBed :: BunkBed -> Model3d 69modelBunkBed :: BunkBed -> Model3d
70modelBunkBed BunkBed{..} = union $ posts ++ topBed ++ bottomBed 70modelBunkBed BunkBed{..} = union $ posts ++ topBed ++ bottomBed
71 where 71 where
72 bunkBedPostHeight = bunkBedPostRise + bunkBedTopShelfHeight + bunkBedShelfThickness 72 bunkBedPostHeight = bunkBedPostRise + bunkBedTopShelfHeight + bunkBedShelfThickness
73 post = box bunkBedPostThickness bunkBedPostThickness bunkBedPostHeight 73 post = box bunkBedPostThickness bunkBedPostThickness bunkBedPostHeight
74 posts = [post, 74 posts = [post,
75 translate (bunkBedWidth - bunkBedPostThickness, 0, 0) post, 75 translate (bunkBedWidth - bunkBedPostThickness, 0, 0) post,
76 translate (0, bunkBedLength - bunkBedPostThickness, 0) post, 76 translate (0, bunkBedLength - bunkBedPostThickness, 0) post,
77 translate (bunkBedWidth - bunkBedPostThickness, bunkBedLength - bunkBedPostThickness, 0) post] 77 translate (bunkBedWidth - bunkBedPostThickness, bunkBedLength - bunkBedPostThickness, 0) post]
78 bedShelf = box bunkBedWidth bunkBedLength bunkBedShelfThickness 78 bedShelf = box bunkBedWidth bunkBedLength bunkBedShelfThickness
79 topBed = [translate (0, 0, bunkBedBottomShelfHeight) bedShelf] 79 topBed = [translate (0, 0, bunkBedBottomShelfHeight) bedShelf]
80 bottomBed = [translate (0, 0, bunkBedTopShelfHeight) bedShelf] 80 bottomBed = [translate (0, 0, bunkBedTopShelfHeight) bedShelf]
81 81
82main :: IO () 82main :: IO ()
83-- main = draw $ modelShelf myShelf 83-- main = draw $ modelShelf myShelf