// I know that the posting of this will mess up the
// indenting, but most of it should stay in place.
// Mr. Art
#declare P1 = pigment { rgb  0}
#declare P2 = pigment { rgb .5}
#declare P3 = pigment { rgb  1}
  
#declare MysteryPigmentII=
pigment	{
	#local 
C=array[6]{pigment{P1}pigment{P1}pigment{P2}pigment{P2}pigment{P3}pigment{P3}}
	#local T=sqrt(3);
	#local B=
	pigment	{
		radial
		pigment_map
			{	#local i=0;
				#while(i<6)
					[i/6 C[i]][(i+1)/6 C[i]]
				#local i=i+1;
				#end
			}
		}
		radial
		pigment_map
			{
			#local i=0;
			#while(i<6)
				#local a=(i+.5)*60*y;
				#local G=1.5*T;
				[
				i/6
				gradient x 
				pigment_map
					{
					[1/3 B scale 1/G rotate -a]
					[1/3 B translate vrotate(T*x, a)rotate -a scale 					1/G]
					}
				scale G
				rotate a
				]
				[
				(i+1)/6
				gradient x pigment_map
					{
					[1/3 B scale 1/G rotate -a]
					[1/3 B translate vrotate(T*x,a)rotate -a scale 					1/G]
					}
				scale G rotate a
				]
			#local i=i+1;
			#end
			}
		translate x
		warp{repeat 5*x}
		warp{repeat T*z}
		scale .5
	}

#declare Test = function { pigment { MysteryPigmentII } }
  
plane	{ y,0 
	texture {
		pigment { average
			pigment_map {
				[.5 function {Test} rotate -90*x]
				[.5 function {Test} rotate -90*x translate y*.01]
				}
			rotate 90*x
			}
		normal { average 
			normal_map {
				[.5 granite 5 scale .25]
				[.5 function { Test } 5 rotate -90*x translate .01]
				}
			rotate 90*x
			}
		finish { ambient 1 }
		}
	texture {pigment { rgbt <.45,.3,.25,.5>}}
	}

camera { location<5,5,-5> look_at y*-2}

light_source { <0,100,-1000> rgb 1}

Post a reply to this message