
// venndisk does one venn diagram disk
// :cx :cy = center of disk    :cr = radius    
// :dens = # of dots/chars     :char = the character(s) to be shown

to venndisk :cx :cy :cr :dens :char
repeat :dens [
  set dotx = (calc (calc :cx - :cr) + random (calc :cr * 2))
  set doty = (calc (calc :cy - :cr) + random (calc :cr * 2))
  pu; moveto :cx :cy
  if (distanceto :dotx :doty) > :cr [ continue ]
  pu; moveto :dotx :doty
  sayc :char
  ]
pu; moveto :cx :cy; pd; circle (calc :cr + 8)
end

  
logo textsize 6
logo linethick 0.5

logo linecolor = "red"
venndisk 250 400 200 2000 "a"

logo linecolor = "blue"
venndisk 500 450 180 1500 "b"

logo linecolor = "dullyellow"
venndisk 350 240 160 1600 "c"

logo linecolor = "green"
venndisk 550 200 100 500 "d"
