summon: Draw a summoning circle diagram
In will-r-chase/glyph:

Draw a summoning circle diagram

1
2
3

summon(seed_probs = c(0.3, 0.5, 0.1, 0.1), inscribed_probs = c(0.2,
  0.3, 0.3, 0.2), sec_shape_probs = c(0.4, 0.6),
  third_shape_probs = c(0.5, 0.5))

`seed_probs`	probabilities of choosing each shape (none, circle, diamond, square), numeric vector of length 4
`inscribed_probs`	probabilities for how many inscribed shapes (0, 1, 2, 3), numeric vector of length 4
`sec_shape_probs`	probabilities of second inscribed shape, numeric vector of length 2
`third_shape_probs`	probabilities of third inscribed shape, numeric vector of length 2