bbox -100, -100, 200, 200, true

# the walls
ws = 20;
l = 99.99;
v = l*sin(pi/ws);
for phi (0:2*pi/ws:1.999*pi) {
	s = sin(phi);
	c = cos(phi);
	wall (s,c,l), -v, v, blue
}


# the block of balls
d = 1;
bmin = -65;
bmax =  05;


# weight is normally related to volume, so
# we make it proportional to the square of the radius
balltype t1, d, d*d, black


rr = 2.5*d;
for y (bmin:rr:bmax) {
	for x (-40:rr:40) {
 	ball (x,y), (0,20), t1
	}
}

d2 = 1;
balltype t2, d2, 100, magenta # small, but very heavy


x=randn;
#for x (-40:10:40) {
	ball (x,100*(1/3+(rand-.5)/3)), (0,0), t2
#}