diff options
Diffstat (limited to 'shelf.hs')
-rwxr-xr-x | shelf.hs | 17 |
1 files changed, 15 insertions, 2 deletions
@@ -2,7 +2,6 @@ | |||
2 | {- stack script --resolver lts-16.31 --install-ghc | 2 | {- stack script --resolver lts-16.31 --install-ghc |
3 | --ghc-options -Wall --ghc-options -Wno-unused-imports --ghc-options -Wno-name-shadowing -} | 3 | --ghc-options -Wall --ghc-options -Wno-unused-imports --ghc-options -Wno-name-shadowing -} |
4 | {-# language NoImplicitPrelude #-} | 4 | {-# language NoImplicitPrelude #-} |
5 | {-# language DuplicateRecordFields #-} | ||
6 | {-# language RecordWildCards #-} | 5 | {-# language RecordWildCards #-} |
7 | import Rebase.Prelude | 6 | import Rebase.Prelude |
8 | import Control.Lens | 7 | import Control.Lens |
@@ -46,6 +45,14 @@ bookshelf = Shelf { | |||
46 | shelves = [4, 4, 4, 3, 3] | 45 | shelves = [4, 4, 4, 3, 3] |
47 | } | 46 | } |
48 | 47 | ||
48 | roryShelf :: Shelf | ||
49 | roryShelf = Shelf { | ||
50 | boardLength = 6 * 12, | ||
51 | boardThickness = 5/8, | ||
52 | kickerHeight = 4 + 1/2, | ||
53 | shelves = [4, 4, 3, 3, 4] | ||
54 | } | ||
55 | |||
49 | pianoCubbies :: Shelf | 56 | pianoCubbies :: Shelf |
50 | pianoCubbies = Shelf { | 57 | pianoCubbies = Shelf { |
51 | boardLength = 52 + 1%8, | 58 | boardLength = 52 + 1%8, |
@@ -92,5 +99,11 @@ printPianoCubbies = do | |||
92 | putStrLn "-------------\n" | 99 | putStrLn "-------------\n" |
93 | printCutlist pianoCubbies | 100 | printCutlist pianoCubbies |
94 | 101 | ||
102 | printRoryShelf :: IO () | ||
103 | printRoryShelf = do | ||
104 | putStrLn "Rory Shelf" | ||
105 | putStrLn "----------\n" | ||
106 | printCutlist roryShelf | ||
107 | |||
95 | main :: IO () | 108 | main :: IO () |
96 | main = printPianoCubbies | 109 | main = printRoryShelf |