/*
Autor
Daniel Baumgartner Kantonsschule Baden
Fuer die vielen Anregungen und Hinweise danke ich Reto H"auptli von der Firma Infinox (www.infinox.ch)
*/

#include "colors.inc"
#include "glass.inc"

//graustufe
#macro grau(g_) color rgb<g_,g_,g_> #end


global_settings{
    assumed_gamma 1.0
    max_trace_level 24
    photons {count 500000}
    adc_bailout 0.1}

camera {location <-16,0,0> rotate z*-26 rotate y*-60look_at <0,0,0> angle 0}//

light_source {<0,0,-30> White*2 rotate x*36 rotate y*-45}


//Boden
plane{<0,1,0>,-0.001
	pigment{checker color Gray40 color Gray60 scale <10,10,10>}
	finish{ambient 0.2 diffuse 0.6}}

//Waende
#declare T_wand=texture{pigment{White} finish{ambient 0.5 diffuse 0.5}}

plane {<0,0,1>,30 texture{T_wand}}//Wand N
plane {<0,0,1>,-50 texture{T_wand}}//Wand S
plane {<1,0,0>,30 texture{T_wand}}//Wand O
plane {<1,0,0>,-80 texture{T_wand}}//Wand W
plane {<0,1,0>,100 texture{T_wand}}//Wand oben

//Parameter fuer Glas
#declare T_wglas=texture {
	pigment{Clear}
    finish{
    	reflection{fresnel true}//
    	//conserve_energy
    	specular 0.8 roughness 0.003}}
    	//phong 1 phong_size 400}}
#declare I_wglas=interior{
	ior 1.569 
	fade_power 2 fade_distance 2
	dispersion 1.05 dispersion_samples 20
	}
	
// RotationsKoerper
#declare katenoid=lathe{cubic_spline 34,
<3.,0.>, <2.65739,0.248529>, <2.37465,0.497058>, <2.14541,0.745586>, <1.9645,0.994115>, <1.82786,1.24264>, <1.7324,1.49117>, <1.67597,1.7397>//0
<1.6573,1.98823>, <1.67597,2.23676>, <1.7324,2.48529>, <1.82786,2.73382>, <1.9645,2.98235>, <2.14541,3.23087>, <2.37465,3.4794>, <2.65739,3.72793>//0
<3.,3.97646>, <2.7,3.97646>, <2.35739,3.72793>, <2.07465,3.4794>, <1.84541,3.23087>, <1.6645,2.98235>, <1.52786,2.73382>, <1.4324,2.48529>//0
<1.37597,2.23676>, <1.3573,1.98823>, <1.37597,1.7397>, <1.4324,1.49117>, <1.52786,1.24264>, <1.6645,0.994115>, <1.84541,0.745586>, <2.07465,0.497058>//0
<2.35739,0.248529>, <2.7,0.>
texture{T_wglas} interior{I_wglas}}

object{katenoid
photons {target refraction on reflection on}
}