@verb #8084:"spheres" none none none rdo #8084
@program #8084:"spheres" none none none
colors = {"Red", "Blue", "Green", "Yellow"}
for x in [1..200]
  y = tofloat(random(10)) + tofloat(random(10000)) / 10000.0
  rand = sqrt(y) * 3.0
  x = tofloat(random(toint(rand))) + tofloat(random(10000)) / 10000.0 - rand / 2.0
  z = tofloat(random(toint(rand))) + tofloat(random(10000)) / 10000.0 - rand / 2.0
  player:tell("sphere { < ", x, ", ", y, ", ", z, " >, 0.1   pigment { color ", colors[random($)], " } }")
endfor
"Last modified by Lao-Tzu (#8084) on Sat Jul 21 10:56:37 2001 MDT."
.