Here's an interesting pigment.  See if you can determine what it'll do before 
you render it.  Hopefully someone out there can find a use for this thing.  
It's a little long for a signature file a'la Warp, but I think it's worth 
posting and I'm sure Ken will appreciate the indenting style:

#include "colors.inc"

#declare MysteryPigment=pigment{#local C=array[6]{pigment{color Gray30}pigment{
color Gray30}pigment{color Gray70}pigment{color Gray70}pigment{color White}
pigment{color White}}#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 s=1.5*T;[i/6
gradient x pigment_map{[1/3 B scale 1/s rotate -a][1/3 B translate vrotate(T*x,
a)rotate -a scale 1/s]}scale s rotate a][(i+1)/6 gradient x pigment_map{[1/3 B
scale 1/s rotate -a][1/3 B translate vrotate(T*x,a)rotate -a scale 1/s]}scale s
rotate a]#local i=i+1;#end}translate x warp{repeat 3*x}warp{repeat T*z}scale .5}
  
plane { y,0 pigment {MysteryPigment}}         
camera { location 12*y sky z look_at 0 }
light_source { 6*y rgb 1}

Post a reply to this message