animate = proc do
	if ($solidZ <= MINZ || $transparentZ >= MAXZ)
		glutIdleFunc(nil)
	else
		$solidZ -= ZINC
		$transparentZ += ZINC
		glutPostRedisplay()
	end
end