Main.hs 1.0 KB

123456789101112131415161718192021222324252627282930313233343536373839
  1. module Main where
  2. import Rolling.Common
  3. import qualified Rolling.FITD as FITD
  4. import qualified Rolling.Ironsworn as Ironsworn
  5. import qualified Rolling.PBTA as PBTA
  6. import qualified Rolling.PBTA20 as PBTA20
  7. import qualified Rolling.Render as Render
  8. main :: IO ()
  9. main = mapM_ Render.diagram diagrams
  10. diagrams :: [Diagram]
  11. diagrams =
  12. [ Diagram
  13. { title = "PbtA rolls (2d6)",
  14. filename = "pbta.png",
  15. rolls = [(n, PBTA.roll n) | n <- [0 .. 5]],
  16. render = Render.diagramPbtA
  17. },
  18. Diagram
  19. { title = "FitD roll (d6 pool)",
  20. filename = "fitd.png",
  21. rolls = [(n, FITD.roll n) | n <- [0 .. 5]],
  22. render = Render.diagramPbtA
  23. },
  24. Diagram
  25. { title = "PbtA-ish roll (d20)",
  26. filename = "d20.png",
  27. rolls = [(n, PBTA20.roll n) | n <- [0 .. 10]],
  28. render = Render.diagramPbtA
  29. },
  30. Diagram
  31. { title = "Ironsworn roll",
  32. filename = "ironsworn.png",
  33. rolls = [(n, Ironsworn.roll n) | n <- [0 .. 5]],
  34. render = Render.diagramPbtA
  35. }
  36. ]