#include "textures.inc"
#include "colors.inc"
#include "math.inc"
#include "stones.inc"

camera
{
	location <15, 5, -15>
	look_at  <-20, 0, 20> 
}

light_source
{
	<20, 100, -100>
	color White * 1.5
}

background { color red 0.5 green 0.5 blue 0.5 }

//Weisser Untergrund
plane {
	y, 0
	pigment { color rgb <1, 1, 1> }
}

// Doppelstranghelix
#declare helix = union {
	#declare Y = 0;
	#while (Y < 20)
		#declare R = 0;
		#while ( R <= 180 )
			sphere {
				<0, Y, -5> 0.5
				#if (mod(Y,2) = 0) pigment { color Red }
				#else pigment { color Blue }
				#end
				rotate <0. Y*20+R, 0>
			}	
			sphere {
				<0, Y, -5> 0.6
				pigment { color rgbt <1, 1, 1, 0.85> }
				rotate <0. Y*20+R, 0>
			}
		#declare R = R + 180;
		#end
		cylinder {
			<0, Y, -5>,
			<0, Y, 5>,
			0.1
			pigment { color White }
			rotate <0. Y*20, 0>
		}
	#declare Y = Y + 1;
	#end
}
// Ende Helix

// Dose mit Pepsi-Textur
#declare body = union {
	#declare Height = 6;
	#declare Width = 2.3;
	#declare Ground = 0.5;
	#declare W = 0.5;
	#declare H = 0.3;
	torus {	Width-W, 0.2
		scale <1,1,1>
		translate <0, 0, 0>
		texture{ Silver_Metal }
	        finish { ambient 0.15 diffuse 0.85 phong 1}
	}	
	cone {
		<0, Ground, 0>, Width
		<0, 0, 0>, Width-W
		texture { Silver_Metal }
	}
	cylinder
	{
		<0, 0, 0>,
		<0, Height, 0>,
		Width
		texture {
			pigment {
				image_map { jpeg "pepsi_n.jpg" }
				scale Height
			}
		}
		translate <0, Ground, 0>
	}
	cone {
		<0, Height+2*Ground, 0>, Width-W
		<0, Height+Ground, 0>, Width
		texture { Silver_Metal }
	}
	torus {	Width-W, 0.2
		scale <1,1,1>
		translate <0, Height+2*Ground, 0>
		texture{ Silver_Metal }
	        finish { ambient 0.15 diffuse 0.85 phong 1}
	}	
}

#declare tin = difference {

	object {
		body
	}

	cylinder {
		<0, Height+Ground, 0>,
		<0, Height+2*Ground, 0>,
		Width-1
		pigment { color rgbt <1, 1, 1, 1> }
	}
}
// Ende Dose

// Kugelhaufen mit verschiedenen Texturen
#declare spherebunch = union {
	#declare R = 1;
	#declare X = R;
	#declare Y = R;
	#declare Z = R;
	sphere {
		<0, 2.4142136, 0>, R
		texture { Chrome_Metal }
	}
	sphere {
		<-X, Y, -Z>, R
		pigment{ gradient y
				color_map{
					[0.2 color Blue  ]
					[0.4 color Red   ]
					[0.6 color Yellow]
					[0.8 rgb<0,1,0>  ]
					[1.0 rgb<0,0,1>  ]
				}
			turbulence 1
		}
		finish { phong 0.5 }
	}

	sphere {
		<X, Y, -Z>, R
		texture {
			DMFWood4
			finish { phong 0.5 }
		}
	}

	sphere {
		<X, Y, Z>, R
		texture { T_Stone15 }
	}

	sphere {
		<-X, Y, Z>, R
		texture {
			pigment { color red 1 green 0 blue 1 }
		}
	}
}
// Ende Kugelhaufen

object {
	helix
	translate <-10, 1, 0>
}

object {
	tin
	translate <9, 0.2, -1>
}

object {
	spherebunch
	translate <6, 0, -10>
}

sphere {
  <4, 2, 0>, 2
       texture{Polished_Chrome
               pigment{color rgb<1,1,0.5>}
               normal {bumps 0.3 scale 0.15}
               finish {ambient 0.15 diffuse 0.55 phong 1}
  rotate <0, clock*360, 0>
	}
}

torus {	1.0, 0.25
	scale <1,1,1>
	rotate<30,0,20>
	translate<0,5,0>
	texture{ pigment{ color rgb<1, 0.65, 0> }
               finish { ambient 0.15 diffuse 0.85 phong 1}
	}
}
torus {	1.0, 0.25
	scale <1,1,1>
	rotate<80,0,20>
	translate<1,5,0>
	texture{ pigment{ color rgb<1, 0.65, 0> }
               finish { ambient 0.15 diffuse 0.85 phong 1}
	}
}

box {
	<0, 0, 0>,
	<3, 3, 0>
 texture{Polished_Chrome
               pigment{color rgb<1,1,0.5>}
               normal {bumps 0 scale 0.15}
               finish {ambient 0.15 diffuse 0.55 phong 1}
	}
	rotate <0, -50, 0>
	translate <0,0.5,-6>
}

cylinder {
        <-50, 0, 0>,
        <0, 0, 0>,
        0.05
        pigment {color Red}
}
cylinder {
        <0, 0, 0>,
        <50, 0, 0>
        0.05
        pigment {color Black}
}
cylinder {
        <0, 0, -50>,
        <0, 0, 0>,
        0.05
        pigment {color Red}
}
cylinder {
        <0, 0, 0>,
        <0, 0, 50>
        0.05
        pigment {color Black}
}
cylinder {
        <0, -50, 0>,
        <0, 0, 0>,
        0.05
        pigment {color Red}
}
cylinder {
        <0, 0, 0>,
        <0, 50, 0>
        0.05
        pigment {color Black}
}


#declare X = -50;
#declare Y = 0;
#declare Z = -50;

#while (X < 50)
#while (Z < 50)
   sphere
   {
      <X,Y,Z> 0.05
        pigment { color Black }
   }
   #declare Z = Z + 1;
#end
   #declare X = X + 1;
   #declare Z = -50;
#end