"Bob H." wrote:
> 
> I refuse to believe this is a 2D object or image_map until you give proof.

A Doubting Thomas, eh!

This needs MegaPov (Based on code originally posted by Ron Parker -
modified by yours truly to achieve this amazing incredible effect)

#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}


-- 
Ken Tyler

Post a reply to this message