diff options
author | Andrew Cady <d@jerkface.net> | 2019-03-16 00:55:42 -0400 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2019-03-16 00:55:42 -0400 |
commit | c8c8189435172c74d3d7f1a7a7cbf46fc7fd865a (patch) | |
tree | 0a648a14e29e69b1257dbd3cd5a3f8736f2a2283 /shelves.hs | |
parent | 984dafab748fa591583e011815c0da77535113b1 (diff) |
whitespacebunkbed
Diffstat (limited to 'shelves.hs')
-rw-r--r-- | shelves.hs | 48 |
1 files changed, 24 insertions, 24 deletions
@@ -39,45 +39,45 @@ modelShelf Shelf{..} = transBoxes [(p, V3 shelfLength shelfWidth shelfThickness) | |||
39 | myShelf :: Shelf | 39 | myShelf :: Shelf |
40 | myShelf = Shelf { | 40 | myShelf = 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 | ||
48 | data BunkBed = BunkBed { | 48 | data 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 | ||
58 | myBunkBed :: BunkBed | 58 | myBunkBed :: BunkBed |
59 | myBunkBed = BunkBed { | 59 | myBunkBed = 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 | ||
69 | modelBunkBed :: BunkBed -> Model3d | 69 | modelBunkBed :: BunkBed -> Model3d |
70 | modelBunkBed BunkBed{..} = union $ posts ++ topBed ++ bottomBed | 70 | modelBunkBed 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 | ||
82 | main :: IO () | 82 | main :: IO () |
83 | -- main = draw $ modelShelf myShelf | 83 | -- main = draw $ modelShelf myShelf |