diff options
-rw-r--r-- | shelves.hs | 7 |
1 files changed, 2 insertions, 5 deletions
@@ -22,8 +22,8 @@ data Shelf = Shelf { | |||
22 | shelfSideDimX :: Inches | 22 | shelfSideDimX :: Inches |
23 | } | 23 | } |
24 | 24 | ||
25 | shelves' :: Shelf -> [(V3 Double, V3 Double)] | 25 | modelShelf :: Shelf -> Model3d |
26 | shelves' Shelf{..} = [(p, V3 shelfLength shelfWidth shelfThickness) | p <- shelvesPos] | 26 | modelShelf Shelf{..} = transBoxes [(p, V3 shelfLength shelfWidth shelfThickness) | p <- shelvesPos] |
27 | where | 27 | where |
28 | shelfHeight = sum shelfHeights + (shelfThickness * (fromIntegral (length shelfHeights) + 1)) | 28 | shelfHeight = sum shelfHeights + (shelfThickness * (fromIntegral (length shelfHeights) + 1)) |
29 | 29 | ||
@@ -45,9 +45,6 @@ myShelf = Shelf { | |||
45 | shelfSideDimX = 0.5 | 45 | shelfSideDimX = 0.5 |
46 | } | 46 | } |
47 | 47 | ||
48 | modelShelf :: Shelf -> Model3d | ||
49 | modelShelf = transBoxes . shelves' | ||
50 | |||
51 | data BunkBed = BunkBed { | 48 | data BunkBed = BunkBed { |
52 | bunkBedWidth :: Inches, | 49 | bunkBedWidth :: Inches, |
53 | bunkBedLength :: Inches, | 50 | bunkBedLength :: Inches, |