#version unofficial MegaPov 1.1;
#include "sunpos.inc"
#include "math.inc"
#include "transforms.inc"
#include "functions.inc"

#declare Klok=.074; //clock;
#declare Klok_delta=.1; //clock_delta;

#declare MotionBlur=10;

#declare Banking = 1;

#declare Scene_Brightness=1.5;
#declare Sun_Brightness=2;

light_source {<50,500,-50> rgb 1}
#macro Punt (locatie,kleur)
	sphere {locatie,1 pigment {rgb <kleur.x,kleur.y,kleur.z>} finish 
{ambient 1}}
#end
#declare Punt1=<-1,10,90>;
#declare Punt2=<-25,-10,78>;  
#declare Punt3=<-50,10,70>;
#declare Punt4=<-80,-10,65>;
#declare Punt5=<-83,10,60>;
#declare Punt6=<-85,-10,55>;
#declare Punt7=<-82,10,50>;
#declare Punt8=<-78,-10,49>;
#declare Punt9=<-70,10,47>;
#declare Punt10=<-60,-10,43>;
#declare Punt11=<-50,10,35>;
#declare Punt12=<-40,-10,20>;

#declare Aantalpunten=4;
#declare Baan=
spline {
	natural_spline
	/*0, Punt1,
	1, Punt2,
	2, Punt3,
	3, Punt4,
	4, Punt5,
	5, Punt6,
	6, Punt7,
	7, Punt8,
	8, Punt9,
	9, Punt10,
	10, Punt11
	11, Punt12*/
	-1,<10,10,-10>
	0, <10,11,0>
	1, <10,10,10>
	2, <10,11,15>
	3, <20,10,15>
	4, <30,11,10>
	5, <40,10,10>
}
/*
#declare Location=trace(Landschap,Baan(Klok*10),-y);
#declare 
Location=<Location.x,max(Water_Level,Location.y)+Camera_Height,Location
.z>;
#declare Look_at=trace(Landschap,Baan((Klok*10+.1)),-y);
#declare 
Look_at=<Look_at.x,max(Water_Level,Look_at.y)+Camera_Height,Look_at.z>;

*/
#declare beeld=
texture {
	pigment {
		average
		pigment_map {
			#declare Aantal = MotionBlur;
			#declare Teller=0;
			#while(Teller<Aantal)
			#declare Klok2=Klok+Klok_delta*Teller/Aantal;  
		   #declare Location=Baan(Klok2*Aantalpunten);
		   #declare Look_at=Baan(Klok2*Aantalpunten+.1);
		   #declare Vorig=Baan(Klok2*Aantalpunten-.1);
		   #declare 
Dot=vdot(vnormalize(Look_at-Location),vnormalize(Vorig-Location));
		   #declare Dezehoek=VAngle(vnormalize(Look_at-Location),x);
		   #declare Vorigehoek=VAngle(vnormalize(Look_at-Location),x);
		   #declare 
Bank=vdot(vcross(y,vnormalize(Location-Vorig)),vnormalize(Look_at-Locat
ion));
				[1 
				camera_view{ 
					location Location-y*5 

   				//sky 
vrotate(y,-vnormalize(Look_at-Location)*degrees(atan2(VRotation(VProject_
Plane((Look_at-Location),y),VProject_Plane((Location-Vorig),y),y)*Banking
,1)))
   				sky vrotate(y,-vnormalize(Look_at-Location)*Bank*180)

right x*4 up y*3
					//sky y+Dot*x // vrotate(y,acos(Dot)) 
					angle 89.9 look_at Look_at-y*5 
					//location 0 look_at z
					
				}
				]
				#declare Teller=Teller+1;
			#end
		}
	} 
	finish {ambient 1 diffuse 0}
}

#debug concat("banking: ",str(Dot, 0, 3),"\n")

#declare Stap=.5;
#declare Teller=0;
#while (Teller <= Aantalpunten)
	sphere {
		Baan(Teller)+500,2
		pigment {rgb<0,1-(Teller/Aantalpunten),Teller/Aantalpunten>}
		finish {ambient 1 diffuse 0} no_shadow
	}
	#declare Teller=Teller+Stap;
#end
cone 
{Location+500+y*10,4,(Location+(Look_at-Location)*Aantalpunten)+500+y*10,
0 pigment {red 1}finish{ambient 1 diffuse 0} no_shadow}

#declare beeld2=
texture {
	pigment {
		camera_view{
			orthographic
			location y*100+500+x*20+z*10
			right x*40
			up y*40
			look_at 500+x*20+z*10
		}
	}
}
			
/*
union {
   cylinder {0,vnormalize(Look_at-Location),.1}
   sphere {0,.1}
   cylinder {0,vnormalize(Vorig-Location),.1}
	pigment {green 1}
	finish {ambient 1 diffuse 0}
	no_shadow
	translate -y*200
}
#declare beeld3=
texture {
	pigment {
		camera_view{
			orthographic
			location y*100-y*200
			right x*3
			up y*3
			look_at 0-y*200
		}
	}
}

union {
	cylinder {-y,0,.1}
	cylinder {0,y,.1 rotate z*acos(Dot)}
	pigment {green 1}
	finish {ambient 1 diffuse 0}
	no_shadow
	translate -y*200+x*500
}
#declare beeld4=
texture {
	pigment {
		camera_view{
			orthographic
			location z*100-y*200+x*500
			right x*3
			up y*3
			look_at 0-y*200+x*500
		}
	}
}
*/

#include "screen.inc"

Set_Camera_Location(<500,5000,500>)
Set_Camera_Look_At(y*10000)
Screen_Plane (beeld, 1, 0, 1)
Screen_Plane (beeld2, .05, .75, 1)
//Screen_Plane (beeld3, .05, 0, .25)
//Screen_Plane (beeld4, .05, <.75,0>, <1,.25>)
/*#declare OSD=texture {
	pigment {image_map {png "osd.png" interpolate 2 once}}
	finish {ambient 1 diffuse 0}
}*/
//Screen_Plane (OSD, .1, 0, 1)


#declare Hud2=
texture {
	pigment {
		average
		pigment_map {
			#declare Aantal = MotionBlur;
			#declare Teller=0;
			#declare Cirkelschaal=.3;
			#while(Teller<Aantal)
			
			#declare Klok2=Klok+Klok_delta*Teller/Aantal;  
		   #declare Location=Baan(Klok2*Aantalpunten);
		   #declare Look_at=Baan(Klok2*Aantalpunten+.1);
		   #declare Vorig=Baan(Klok2*Aantalpunten-.1);
		   #declare 
Dot=vdot(vnormalize(Look_at-Location),vnormalize(Vorig-Location));
		   #declare Dezehoek=VAngle(vnormalize(Look_at-Location),x);
		   #declare Vorigehoek=VAngle(vnormalize(Look_at-Location),x);
				[1
				#declare Y=(0.5 * 4 / tan(89.9 / 
2))*vnormalize(Location-Look_at).y/2; 

					boxed color_map{[0 green 1 transmit 1][.001 green 1]}
					scale <cos(asin(Y/Cirkelschaal))*Cirkelschaal,.0125*.3,10>
					
					translate y*Y
					rotate 
z*degrees(atan2(VRotation(VProject_Plane((Look_at-Location),y),VProject_P
lane((Location-Vorig),y),y)*Banking,1))
					scale <3/4,1,1>
					translate <.5,.5,0>
				]
				#declare Teller=Teller+1;
			#end

		}
	} 
	finish {ambient 1 diffuse 0}
}


#declare Hud1=texture {
	pigment {spherical color_map{[0 green 1 transmit 1][0 green 1][.025 
green 1][.025 green 1 transmit 1]}} 
	scale .3
	scale <3/4,1,1>
	translate <.5,.5,0>

	//pigment {image_map {png "osd.png" interpolate 2 once}}
	finish {ambient 1 diffuse 0}
}
/*
Screen_Plane (Hud1, .1, 0, 1)
Screen_Plane (Hud2, .09, 0, 1)
*/



plane {y,0 pigment {checker color rgb 0, rgb 1 scale 5}}