// Entry code: jdqhnc
// Name      : Paolo Gibellini
// Frame rate: 15
// (Bumble)Bee - Paolo Gibellini 2008

// Some focal blur in order to simulate a bit of fur
camera{aperture.9 blur_samples 9 focal_point 15*z}

// A cloudy summer sky
sky_sphere{pigment{agate color_map{[0rgb<.3,.4,.7>][.5rgb.6][1rgb.8]}}}

// Random seed
#local S=seed(3);
// Random macro: returns and integer between 1 and m
#macro R(m)
	int(rand(S)*m+1)
#end

// A little macro for repeated actions
#macro K(r)
	pigment{rgbt<0,0,1,.8>}
	rotate 70*sin(pi*r)*x
#end

// The clock in a shorter variable
#local i=clock;

// The body of the bee is a sphere scaled in y and the wings are disc
union{
	sphere{0 .5 pigment{marble color_map{[0rgb 0][.5rgb<1,.8,0>]} scale.3} finish{ambient.9} scale.7*y}
	disc{.5*z y.5 K(-i)}
	disc{-.5*z y.5 K(i)}
	// A bit of wind...
	rotate-(25+R(9))*x
	// A simple circle
	translate<4*sin(2*pi*i),sin(4*pi*i)+R(1),8+2*sin(2*pi*i)>
}