name: Kevin Loney
e-mail: kloney@pt2m.com
webpage: http://www.geocities.com/qsquared_1999/

code:
#local S=seed(4);
camera {
	location <12, 6, 2>
	look_at 2 * y
}

#macro B(a,l)
	#if(l)
		#local i = 0;
		#while(i < 5)
			#local b = 2 * vrotate( vrotate( y, 65 * (2 * rand( S ) - 1) * z ), 360 * rand( S ) * y ) + a;
			cone {
				a, l *	.05, b, (l - 1) * .05
			}
			B( b, l - 1 )
			#local i = i + 1;
		#end
	#else
		sphere {
			a, .03
		}
	#end
#end

union {
	cylinder {
		-6 * y, 0, .2
	}
	B( 0, 4 )
	pigment {
		spherical
		color_map {
			[0 rgb 0]
			[.4 rgb 1]
		}
		scale 17
		translate <12, 6, 6>
	}
	finish {
		ambient 1
	}
}
//KWL

I SUBMIT TO THE STANDARD 10BEST.RAYTRACE.COM COPYRIGHT