Main.hs 900 B

123456789101112131415161718192021222324252627282930313233343536
  1. module Main where
  2. import Rolling.Common
  3. import qualified Rolling.Render as Render
  4. import qualified Rolling.PBTA as PBTA
  5. import qualified Rolling.FITD as FITD
  6. import qualified Rolling.PBTA20 as PBTA20
  7. import qualified Rolling.Ironsworn as Ironsworn
  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. }
  17. , Diagram
  18. { title = "FitD roll (d6 pool)"
  19. , filename = "fitd.png"
  20. , rolls = [ (n, FITD.roll n) | n <- [0..5] ]
  21. }
  22. , Diagram
  23. { title = "PbtA-ish roll (d20)"
  24. , filename = "d20.png"
  25. , rolls = [ (n, PBTA20.roll n) | n <- [0..10] ]
  26. }
  27. , Diagram
  28. { title = "Ironsworn roll"
  29. , filename = "ironsworn.png"
  30. , rolls = [ (n, Ironsworn.roll n) | n <- [0..5] ]
  31. }
  32. ]