123456789101112131415161718192021222324252627282930313233343536373839 |
- module Main where
- import Rolling.Common
- import qualified Rolling.FITD as FITD
- import qualified Rolling.Ironsworn as Ironsworn
- import qualified Rolling.PBTA as PBTA
- import qualified Rolling.PBTA20 as PBTA20
- import qualified Rolling.Render as Render
- main :: IO ()
- main = mapM_ Render.diagram diagrams
- diagrams :: [Diagram]
- diagrams =
- [ Diagram
- { title = "PbtA rolls (2d6)",
- filename = "pbta.png",
- rolls = [(n, PBTA.roll n) | n <- [0 .. 5]],
- render = Render.diagramPbtA
- },
- Diagram
- { title = "FitD roll (d6 pool)",
- filename = "fitd.png",
- rolls = [(n, FITD.roll n) | n <- [0 .. 5]],
- render = Render.diagramPbtA
- },
- Diagram
- { title = "PbtA-ish roll (d20)",
- filename = "d20.png",
- rolls = [(n, PBTA20.roll n) | n <- [0 .. 10]],
- render = Render.diagramPbtA
- },
- Diagram
- { title = "Ironsworn roll",
- filename = "ironsworn.png",
- rolls = [(n, Ironsworn.roll n) | n <- [0 .. 5]],
- render = Render.diagramPbtA
- }
- ]
|