#include "colors.inc"

camera { 
	orthographic
	location < 4, 5.5, -15 >/6
	up 3*y
		right 3*x
         look_at  < 0, 0, 0 > 
}

/*  *************************** Poly 16 ********************************** */
polynomial { 16,
#switch(int(clock))
#case(0)
	xyz(2,0,0):1,
	xyz(0,2,0):1,
	xyz(0,0,2):1,
	xyz(0,0,0):-1
#break
#case(1)
	xyz(0,0,2):1,
	xyz(4,0,0):1,
	xyz(3,0,0):-1,
	xyz(2,0,0):-9/16,
	xyz(2,2,0):2,
	xyz(2,1,0):-1,
	xyz(1,2,0):-1,
	xyz(0,2,0):-9/16,
	xyz(0,4,0):1,
	xyz(0,3,0):-1,
	xyz(1,0,0):1,
	xyz(0,1,0):1,
	xyz(0,0,0):-7/16
#break
#case(2)
	xyz(0,0,2):1,
	xyz(6,0,0):1,
	xyz(0,0,0):-49/256,
	xyz(4,0,0):-9/8,
	xyz(2,0,0):81/256,
	xyz(4,2,0):3,
	xyz(4,1,0):-2,
	xyz(2,2,0):-1/4,
	xyz(2,1,0):9/8,
	xyz(2,4,0):3,
	xyz(2,3,0):-4,
	xyz(0,2,0):-431/256,
	xyz(0,4,0):7/8,
	xyz(0,3,0):9/8,
	xyz(0,6,0):1,
	xyz(0,5,0):-2,
	xyz(0,1,0):7/8
#break
#case(3)

// (z^2) + (x^8) + (x^7) - (343/4096) - (217*(x^2)/4096) + (4*(x^6)*(y^2))
	xyz(0,0,2):1,
	xyz(8,0,0):1,
	xyz(7,0,0):1,
	xyz(0,0,0):-343/4096,
	xyz(2,0,0):-217/4096,
	xyz(6,2,0):4,
// - (45*(x^4)/256) - (33*(x^4)*(y^2)/16) - (11*(x^6)/16) + (6*(x^4)*(y^4)) 
	xyz(4,0,0):-45/256,
	xyz(4,2,0):-33/16,
	xyz(6,0,0):-11/16,
	xyz(4,4,0):6,
// - ((x^3)*(y^2)/4) + (81*(x^3)/256) - (45*(x^2)*(y^2)/128) + (3*(x^5)*(y^2))
	xyz(3,2,0):-1/4,
	xyz(3,0,0):81/256,
	xyz(2,2,0):-45/128,
	xyz(5,2,0):3,
// - ((x^6)*y) - (2*(x^5)*y) - (7*(x^4)*y/8) + (9*(x^3)*y/8) + (431*(x^2)*y/256)
	xyz(6,1,0):-1,
	xyz(5,1,0):-2,
	xyz(4,1,0):-7/8,
	xyz(3,1,0):9/8,
	xyz(2,1,0):431/256,
// + (3*(x^3)*(y^4)) - (3*(x^4)*(y^3)) - (4*(x^3)*(y^3)) + (4*(x^2)*(y^6)) 
	xyz(3,4,0):3,
	xyz(4,3,0):-3,
	xyz(3,3,0):-4,
	xyz(2,6,0):4,
// - (33*(x^2)*(y^4)/16) + ((x^2)*(y^3)/4) - (9*(x^5)/8) - (217*(y^2)/4096) 
	xyz(2,4,0):-33/16,
	xyz(2,3,0):1/4,
	xyz(5,0,0):-9/8,
	xyz(0,2,0):-217/4096,
// + (7*(y^4)*x/8) - (431*(y^2)*x/256) - (45*(y^4)/256) + (9*(y^3)*x/8) 
	xyz(1,4,0):7/8,
	xyz(1,2,0):-431/256,
	xyz(0,4,0):-45/256,
	xyz(1,3,0):9/8,
// - (81*(y^3)/256) - (3*(y^5)*(x^2)) + ((y^6)*x) - (2*(y^5)*x) 
  xyz(0,3,0):-81/256,
	xyz(2,5,0):-3,
	xyz(1,6,0):1,
	xyz(1,5,0):-2,
// + (y^8) - (y^7) - (11*(y^6)/16) + (9*(y^5)/8) - (49*x/256) 
	xyz(0,8,0):1,
	xyz(0,7,0):-1,
	xyz(0,6,0):-11/16,
	xyz(0,5,0):9/8,
	xyz(1,0,0):-49/256,
// + (7*y*x/8) + (49*y/256)
	xyz(1,1,0):7/8,
	xyz(0,1,0):49/256,
#break
#case(4)
// (z^2) + (x^10) - (2401/65536) - (5*(x^8)/4) + (83*(x^6)/128) 
	xyz(0,0,2):1,
	xyz(10,0,0):1,
	xyz(0,0,0):-2401/65536,
	xyz(8,0,0):-5/4,
	xyz(6,0,0):83/128,
// - (457*(x^4)/1024) + (5537*(x^2)/65536) + (5*(x^8)*(y^2)) 
	xyz(4,0,0):-457/1024,
	xyz(2,0,0):5537/65536,
	xyz(8,2,0):5,
// + (1591*(x^2)*(y^2)/512) + (10*(x^6)*(y^4)) - (263*(x^4)*(y^2)/128) 
	xyz(2,2,0):1591/512,
	xyz(6,4,0):10,
	xyz(4,2,0):-263/128,
// - (15*(x^4)*(y^4)/2) - (263*(x^2)*(y^4)/128) - (5*(x^6)*(y^2)) 
	xyz(4,4,0):-15/2,
	xyz(2,4,0):-263/128,
	xyz(6,2,0):-5,
// + (10*(x^4)*(y^6)) + (5*(x^2)*(y^8)) - (5*(x^2)*(y^6)) + (5537*(y^2)/65536) 
	xyz(4,6,0):10,
	xyz(2,8,0):5,
	xyz(2,6,0):-5,
	xyz(0,2,0):5537/65536,
// - (457*(y^4)/1024) + (83*(y^6)/128) + (y^10) - (5*(y^8)/4)
	xyz(0,4,0):-457/1024,
	xyz(0,6,0):83/128,
	xyz(0,10,0):1,
	xyz(0,8,0):-5/4,
#break
#case(5)
// (z^2) + (x^12) + (2401/1048576) - (21*(x^10)/16) + (93*(x^8)/128) 
	xyz(0,0,2):1,
	xyz(12,0,0):1,
	xyz(0,0,0):2401/1048576,
	xyz(10,0,0):-21/16,
	xyz(8,0,0):93/128,
// - (997*(x^6)/2048) + (7365*(x^4)/65536) + (6*(x^10)*(y^2)) 
	xyz(6,0,0):-997/2048,
	xyz(4,0,0):7365/65536,
	xyz(10,2,0):6,
// - (105*(x^8)*(y^2)/16) - (35*(x^6)*(y^2)/32) + (5713*(x^4)*(y^2)/2048) 
	xyz(8,2,0):-105/16,
	xyz(6,2,0):-35/32,
	xyz(4,2,0):5713/2048,
// - (827*(x^2)*(y^2)/32768) - (43953*(x^2)/1048576) + (15*(x^8)*(y^4)) 
	xyz(2,2,0):-827/32768,
	xyz(2,0,0):-43953/1048576,
	xyz(8,4,0):15,
// + (5713*(x^2)*(y^4)/2048) - (105*(x^6)*(y^4)/8) - (233*(x^4)*(y^4)/64) 
	xyz(2,4,0):5713/2048,
	xyz(6,4,0):-105/8,
	xyz(4,4,0):-233/64,
// + (20*(x^6)*(y^6)) - (105*(x^4)*(y^6)/8) - (35*(x^2)*(y^6)/32) 
	xyz(6,6,0):20,
	xyz(4,6,0):-105/8,
	xyz(2,6,0):-35/32,
// + (15*(x^4)*(y^8)) + (6*(x^2)*(y^10)) - (105*(x^2)*(y^8)/16) 
	xyz(4,8,0):15,
	xyz(2,10,0):6,
	xyz(2,8,0):-105/16,
// + (7365*(y^4)/65536) - (43953*(y^2)/1048576) - (997*(y^6)/2048) 
	xyz(0,4,0):7365/65536,
	xyz(0,2,0):-43953/1048576,
	xyz(0,6,0):-997/2048,
// + (93*(y^8)/128) + (y^12) - (21*(y^10)/16)
	xyz(0,8,0):93/128,
	xyz(0,12,0):1,
	xyz(0,10,0):-21/16,
#break
#case(6)
// y^16 -0.57*y^14 +8*x^2*y^14 -4.99*x^2*y^12 +0.0846*y^12 +28*x^4*y^12 -17.97*x^4*y^10 -2.4424*x^2*y^10 +56*x^6*y^10 -0.30101*y^10 -34.95*x^6*y^8 -9.481*x^4*y^8 +0.08395*x^2*y^8 -0.13505715*y^8 +70*x^8*y^8 -0.0522222021*y^6 +5.2259*x^4*y^6 -39.95*x^8*y^6 -11.808*x^6*y^6 +56*x^10*y^6 +1.6239814*x^2*y^6 -0.0153166563*x^2*y^4 +8.1639*x^6*y^4 -4.231*x^8*y^4 -26.97*x^10*y^4 -0.023261301068*y^4 +28*x^12*y^4 -0.0265129*x^4*y^4 +1.7576*x^10*y^2 -9.99*x^12*y^2 +2.49095*x^8*y^2 +0.009493927964*x^2*y^2 -0.00308255208576*y^2 +8*x^14*y^2 -0.0474707063*x^4*y^2 -1.4251986*x^6*y^2 +x^16 +z^2 -1.57*x^14 +1.1346*x^12 +3.320525376E-05 +0.035059229032*x^4 -0.00365903218576*x^2 -0.83201*x^10 +0.36035285*x^8 -0.1243762521*x^6

	xyz(0,16,0):1,
	xyz(0,14,0): -0.57,
	xyz(2,14,0): +8,
	xyz(2,12,0):-4.99,
	xyz(0,12,0):+0.0846,
	xyz(4,12,0):+28,
	xyz(4,10,0):-17.97,
	xyz(2,10,0):-2.4424,
	xyz(6,10,0):+56,
	xyz(0,10,0):-0.30101,
	xyz(6,8,0):-34.95,
	xyz(4,8,0):-9.481,
	xyz(2,8,0):+0.08395,
	xyz(0,8,0):-0.13505715,
	xyz(8,8,0):+70,
	xyz(0,6,0):-0.0522222021,
	xyz(4,6,0):+5.2259,
	xyz(8,6,0):-39.95,
	xyz(6,6,0):-11.808,
	xyz(10,6,0):+56,
	xyz(2,6,0):+1.6239814,
	xyz(2,4,0):-0.0153166563,
	xyz(6,4,0):+8.1639,
	xyz(8,4,0):-4.231,
	xyz(10,4,0):-26.97,
	xyz(0,4,0):-0.023261301068,
	xyz(12,4,0):+28,
	xyz(4,4,0):-0.0265129,
	xyz(10,2,0):+1.7576,
	xyz(12,2,0):-9.99,
	xyz(8,2,0):+2.49095,
	xyz(2,2,0):+0.009493927964,
	xyz(0,2,0):-0.00308255208576,
	xyz(14,2,0):+8,
	xyz(4,2,0):-0.0474707063,
	xyz(6,2,0):-1.4251986,
	xyz(16,0,0):1,
	xyz(0,0,2):1,
	xyz(14,0,0):-1.57,
	xyz(12,0,0):+1.1346,
	xyz(0,0,0):+3.320525376E-05,
	xyz(4,0,0):+0.035059229032,
	xyz(2,0,0):-0.00365903218576,
	xyz(10,0,0):-0.83201,
	xyz(8,0,0):+0.36035285,
	xyz(6,0,0):-0.1243762521,





#break
#end
	sturm   

	//	bounded_by {sphere { 0,(1+1/pow((clock+1),2)) }}

 pigment { pavement number_of_sides 4 number_of_tiles 6 pattern 8 exterior 2 form 2 scale 1/9
 } }
 plane { y, 0  pigment { color Gray } translate -2*y}

light_source { <  100,  100, -100 > color White }  // rechts,boven,achter
light_source { < -100,  100, -100 > color White }  // links,boven,achter
light_source { < -100,  100,  100 > color White }  // links,boven,voor
light_source { <  100,  100,  100 > color White }  // rechts,boven,voor