add rory shelf design

1 files changed, 15 insertions, 2 deletions

diff --git a/shelf.hs b/shelf.hs
index 7e3fe86..d465aa5 100755
--- a/shelf.hs
+++ b/shelf.hs
@@ -2,7 +2,6 @@
 {- stack script --resolver lts-16.31 --install-ghc
   --ghc-options -Wall --ghc-options -Wno-unused-imports --ghc-options -Wno-name-shadowing -}
 {-# language NoImplicitPrelude #-}
-{-# language DuplicateRecordFields #-}
 {-# language RecordWildCards #-}
 import Rebase.Prelude
 import Control.Lens
@@ -46,6 +45,14 @@ bookshelf = Shelf {
   shelves = [4, 4, 4, 3, 3]
 }
 
+roryShelf :: Shelf
+roryShelf = Shelf {
+  boardLength = 6 * 12,
+  boardThickness = 5/8,
+  kickerHeight = 4 + 1/2,
+  shelves = [4, 4, 3, 3, 4]
+}
+
 pianoCubbies :: Shelf
 pianoCubbies = Shelf {
   boardLength = 52 + 1%8,
@@ -92,5 +99,11 @@ printPianoCubbies = do
   putStrLn "-------------\n"
   printCutlist pianoCubbies
 
+printRoryShelf :: IO ()
+printRoryShelf = do
+  putStrLn "Rory Shelf"
+  putStrLn "----------\n"
+  printCutlist roryShelf
+
 main :: IO ()
-main = printPianoCubbies
+main = printRoryShelf