From c8c8189435172c74d3d7f1a7a7cbf46fc7fd865a Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Sat, 16 Mar 2019 00:55:42 -0400 Subject: whitespace --- shelves.hs | 48 ++++++++++++++++++++++++------------------------ 1 file 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) myShelf :: Shelf myShelf = Shelf { shelfThickness = 0.5, - shelfWidth = 8, - shelfLength = 36 * 2, - shelfHeights = [12, 10, 8, 8, 8, 8, 8], - shelfSideDimX = 0.5 + shelfWidth = 8, + shelfLength = 36 * 2, + shelfHeights = [12, 10, 8, 8, 8, 8, 8], + shelfSideDimX = 0.5 } data BunkBed = BunkBed { - bunkBedWidth :: Inches, - bunkBedLength :: Inches, - bunkBedPostThickness :: Inches, - bunkBedPostRise :: Inches, - bunkBedShelfThickness :: Inches, + bunkBedWidth :: Inches, + bunkBedLength :: Inches, + bunkBedPostThickness :: Inches, + bunkBedPostRise :: Inches, + bunkBedShelfThickness :: Inches, bunkBedBottomShelfHeight :: Inches, - bunkBedTopShelfHeight :: Inches + bunkBedTopShelfHeight :: Inches } myBunkBed :: BunkBed myBunkBed = BunkBed { - bunkBedWidth = 54, - bunkBedLength = 75, - bunkBedPostThickness = 3, - bunkBedPostRise = 2, - bunkBedShelfThickness = 8, + bunkBedWidth = 54, + bunkBedLength = 75, + bunkBedPostThickness = 3, + bunkBedPostRise = 2, + bunkBedShelfThickness = 8, bunkBedBottomShelfHeight = 18, - bunkBedTopShelfHeight = 50 + bunkBedTopShelfHeight = 50 } modelBunkBed :: BunkBed -> Model3d modelBunkBed BunkBed{..} = union $ posts ++ topBed ++ bottomBed where bunkBedPostHeight = bunkBedPostRise + bunkBedTopShelfHeight + bunkBedShelfThickness - post = box bunkBedPostThickness bunkBedPostThickness bunkBedPostHeight - posts = [post, - translate (bunkBedWidth - bunkBedPostThickness, 0, 0) post, - translate (0, bunkBedLength - bunkBedPostThickness, 0) post, - translate (bunkBedWidth - bunkBedPostThickness, bunkBedLength - bunkBedPostThickness, 0) post] - bedShelf = box bunkBedWidth bunkBedLength bunkBedShelfThickness - topBed = [translate (0, 0, bunkBedBottomShelfHeight) bedShelf] - bottomBed = [translate (0, 0, bunkBedTopShelfHeight) bedShelf] + post = box bunkBedPostThickness bunkBedPostThickness bunkBedPostHeight + posts = [post, + translate (bunkBedWidth - bunkBedPostThickness, 0, 0) post, + translate (0, bunkBedLength - bunkBedPostThickness, 0) post, + translate (bunkBedWidth - bunkBedPostThickness, bunkBedLength - bunkBedPostThickness, 0) post] + bedShelf = box bunkBedWidth bunkBedLength bunkBedShelfThickness + topBed = [translate (0, 0, bunkBedBottomShelfHeight) bedShelf] + bottomBed = [translate (0, 0, bunkBedTopShelfHeight) bedShelf] main :: IO () -- main = draw $ modelShelf myShelf -- cgit v1.2.3