#version Unofficial MegaPov 0.7;
#include "macros.inc"
	#declare Rot=<0,-60,45>;
	#declare K=clock;

#macro Centrumplaats(Klok)
	Bezier (<5,10,10>,<0,5,10>,<0,5,10>,<-10,2,10>,Klok)*50
#end	
	#declare richting=<1,1,0>;
   #declare Centrum=<0,2,0>-richting*K*5+richting*2.5;
#declare camera_location=<3,1,-10>;
#declare camera_look_at=<0,7,0>;

light_source {
	<-5000,500,-500>*100
	rgb 1
}
blob {
	threshold .5
	#declare Lengte=.1+8*K;
	#declare Aantal=500*K+1;
	#declare Tel=0;
	#declare Scale=10;
	#declare Rbegin=2*Scale+K;
	#declare Reind=16*Scale;
	#declare Seed=seed(5150051207);
	#while (Tel<Aantal)
		sphere {
			0,1,.5
			scale Rbegin+(Tel/Aantal)*Reind*K
			translate Centrumplaats(K-(K*Tel/Aantal))
		}
		#declare Tel=Tel+1;
	#end 
		texture {
			pigment { 
				shader {
					shader_file "rook2.slp"
					"edgefalloff" 3+K*5
					"Centrum" Centrumplaats(K)
					"lengte" Lengte*2*100*(.5+K*.5)
					"scale" Scale/5
					"vuurgrootte" 50*Scale*.01
					"vuurgrootte2" Lengte*50
					"helderheid2" 20
					"vuurfalloff" 2
					"helderheid" 5*pow(1-K/2,1.5)
					"maxhelderheid" 5
					"Ambient" <.2,.25,.3>*0
					shadow_type no_shadow
				}
			}
			finish { 
				ambient 1 
				diffuse 0
			}
		}
		//texture {pigment{rgb 1}}
}
#declare effect_location=Centrumplaats(K);
#declare effect_seed=0;
#declare effect_type= "sparkle"

#declare source_colour=<3,1,1>;

#declare effect_scale=<1,1,1>*max(1-pow(K*5,.25),0)*2.5+1;
#declare effect_rotate=0;
#declare effect_brightness=1;
#declare effect_intensity=1/3;

#declare effect_always_on_top=1;
#include "lens.inc"
camera {
	location camera_location
	look_at camera_look_at
}

global_settings {
	max_trace_level 60
}


sky_sphere {
	pigment {
		gradient y
		color_map {
			[0 rgb <1,.5,.25>]
			[.5 rgb <.125,.25,.5>]
			[1 rgb <0,0,.5>]
		}
	}
	pigment {
		bozo
		color_map {
			[.5 rgbt <1,.9,.8,1>]
			[1 rgb <1,.8,.6>]
		}
		scale <.5,.25,.5>
		warp {turbulence .5 lambda 3}
	}
}