/*
	trigon.pov - POV-ray 3.0 scene file
	A while-loop test image which turned out pretty nice.
	Yes, it was inspired by "blobloop.pov"...
	Copyright (c) 1997 Knut Arild Erstad
*/

#include "colors.inc"
#include "skies.inc"

camera {
	location <8, -18, -14>
	look_at <0,0,0>
}

light_source {
	<0, -100, 0>
	White
}

sky_sphere { S_Cloud4 }

background { White }

global_settings { max_trace_level 20 }

#declare X=0

blob {
	threshold 0.2
	#while (X<720)
		#declare Y=pi*X/180
		sphere {
			<sin(Y)*10, 0, 0>, 1 + sin(Y/2)/5, 1
			rotate <X, X*2, X/2>
			pigment { color rgb <sin(Y), cos(Y), 0.5> }
			finish {
				specular 0.8 roughness 0.05
				ambient 0.25 diffuse 0.5
				reflection 0.25
			}
		}
		#declare X=X+0.5
	#end
	rotate x*180
}